v-adix » 18.05.2003 (Вс) 10:18
еслу нужно запустить mp3 когда вставляешь диск
в авторане
[autorun]
open=mp3launcher.exe
на диске у тебя:
mp3launcher.exe
mymp3.mp3
autorun.inf
msvbvm60.dll
mp3launcher.exe Это программа написанная тобой которая при старте запускает mp3 а потом выгружается. для запуска mp3 будет использоваться программа ассоциированная с расширением "mp3". вот полный код программы mp3launcher.exe:
------------------------------------------------------------------------------------
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Private Declare Function GetDesktopWindow Lib "user32" () As Long
Function startdoc(DocName As String)
Dim Scr_hDC As Long
Scr_hDC = GetDesktopWindow()
startdoc = ShellExecute(Scr_hDC, "Open", DocName, "", "C:\", 1)
End Function
Private Sub Form_Load()
me.hide
Dim r As Long
r = startdoc("mymp3.mp3")
unload me
set form1 = nothing
End Sub