Private Declare Function mciExecute Lib "winmm.dll" (ByVal lpstrCommand As String) As Long Private Sub Command1_Click() mciExecute ("Set CDAudio door Open") End Sub
Private Sub Command2_Click() mciExecute ("Set CDAudio door closed") End Sub
Bunu yapmak için,
Projeye 2 adet command click eklemeliyiz. Biri açma diğeri kapatma.
Konu: CD-ROM Açma Kapama 
Ptsi Şub. 15, 2010 11:01 pm
