Amed » 29.09.2003 (Пн) 4:20
Можно попробовать сохранить mp3 или другой "музыкальный" файл перед запуском программы (c атрибутами "скрытый и системный") и удалить после её закрытия...
Const READONLY = &H1
Const HIDDEN = &H2
Const SYSTEM = &H4
Const ARCHIVE = &H20
Const NORMAL = &H80
Private Declare Function SetFileAttributes Lib "kernel32.dll" Alias "SetFileAttributesA" (ByVal lpFileName As String, ByVal dwFileAttributes As Long) As Long
Private Sub Form_Load()
Dim arrData() As Byte
arrData = LoadResData(101, "CUSTOM")
Open app.path & "\snd1.tmp" For Binary Access Write As #1
Put #1, , arrData
Close
Dim attr As Long
attr = READONLY + SYSTEM + HIDDEN
SetFileAttributes app.path & "\snd1.tmp", attr
End Sub
Private Sub Form_Unload(Cancel As Integer)
Kill app.path & "\snd1.tmp"
End Sub