title image


Smiley Re: Wer kennt die API - Funktion zum öffnen das CD LW ?
Option Explicit Private Declare Function mciExecute Lib "winmm.dll" (ByVal lpstrCommand As String) As Long Private Sub cmdCloseCD_Click()On Error Resume Next Screen.MousePointer = vbHourglass Call mciExecute("Set CDaudio door closed") ' Laufwerkstür schließen Screen.MousePointer = vbDefaultEnd Sub Private Sub cmdOpenCD_Click()On Error Resume Next Screen.MousePointer = vbHourglass Call mciExecute("Set CDaudio door open") ' Laufwerkstür öffnen Screen.MousePointer = vbDefaultEnd SubViel Erfolg!Thomas Prötzschcu
Thomas Prötzsch

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: