Arşiv

Posts Tagged ‘Visual basic’te cdyi çıkartma ve takma’

Visual Basic 6 ile CD/DVD-ROM’u açmak ve kapatmak

21/12/2010 Yorum bırakın

private 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 cikart_click()
call mcisendstring("set cdaudio open wait",0&,0&,0&)
end sub

Private sub tak_click()
call mcisendstring("set cdaudio closed wait",0&,0&,0&)
end sub

 


TD Software


Kategoriler:Kodlar Etiketler:, , , , , , , , , , , , ,