Login | Register   
Twitter
RSS Feed
Download our iPhone app
TODAY'S HEADLINES  |   ARTICLE ARCHIVE  |   FORUMS  |   TIP BANK
Browse DevX
Sign up for e-mail newsletters from DevX


Tip of the Day
Language: VB7
Expertise: beginner
May 12, 2003

Opening and closing the CD door

<System.Runtime.InteropServices.DllImport("winmm.dll")> Shared Function _
    mciSendString(ByVal lpstrCommand As String, ByVal lpstrReturnString As _
    String, ByVal uReturnLength As Integer, ByVal hwndCallback As Integer) As _
    Integer
End Function

Sub OpenCDDoor()
    mciSendString("Set CDAudio Door Open Wait", vbNullString, 0, 0)
End Sub

Sub CloseCDDoor()
    mciSendString("Set CDAudio Door Closed Wait", vbNullString, 0, 0)
End Sub
Alberto Falossi
 
Comment and Contribute

 

 

 

 

 


(Maximum characters: 1200). You have 1200 characters left.

 

 

Sitemap