T
tkole
Guest
I have been trying to find a way to eject my cdrom with a single executable file and found this from Kruger in a search:
Script below:
****
Option Explicit
Public Declare Function mciSendString Lib "winmm.dll" _
Alias "mciSendStringA" _
(ByVal lpstrCommand As String, _
ByVal lpstrReturnString As String, _
ByVal uReturnLength As Long, _
ByVal hwndCallback As Long) As Long
Private Sub Command1_Click()
Call mciSendString("Set CDAudio Door Open Wait", 0&, 0&, 0&)
End Sub
'--end block--'
****
I am totally new to prgramming and wonder how I might use this info to create a single executable file?
Script below:
****
Option Explicit
Public Declare Function mciSendString Lib "winmm.dll" _
Alias "mciSendStringA" _
(ByVal lpstrCommand As String, _
ByVal lpstrReturnString As String, _
ByVal uReturnLength As Long, _
ByVal hwndCallback As Long) As Long
Private Sub Command1_Click()
Call mciSendString("Set CDAudio Door Open Wait", 0&, 0&, 0&)
End Sub
'--end block--'
****
I am totally new to prgramming and wonder how I might use this info to create a single executable file?