Buchempfehlung
Mikrocomputertechnik mit Controllern der Atmel AVR-RISC-Familie
Mikrocomputertechnik mit Controllern der Atmel AVR-RISC-Familie
Umfassend, aber leicht verständlich führt dieses Buch in die Programmierung von ATMEL AVR Mikrocontrollern ein. [Mehr Infos...]
FreeBASIC-Chat
Es sind Benutzer im FreeBASIC-Chat online.
(Stand:  )
FreeBASIC bei Twitter
Twitter FreeBASIC-Nachrichten jetzt auch über Twitter erhalten. Follow us!

fb:porticula NoPaste

Info
Info / Hilfe Liste
Übersicht / Liste Neu
Datei hochladen Suche
Quellcode suchen Download
Dateidownload

Laufwerk öffnen

Uploader:Mitgliedmax06
Datum/Zeit:28.12.2007 12:30:25

Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As ZString ptr, ByVal _
      lpstrReturnString As ZString ptr, ByVal uReturnLength As Long, _
      ByVal hwndCallback As Long) As Long

Dim returnstring As string ptr

'CD-Laufwerk öffnen
Sub OpenCD()
   mciSendString("set CDAudio door open", _
         "", 127, 0)
End Sub

'CD-Laufwerk schließen
Sub CloseCD()
   mciSendString("set CDAudio door closed", _
         "", 127, 0)
End Sub

OpenCD()

Sleep