cd-lade öffnen

[Affje800]

hi

wie kann ich auf knopfdruck das cd-laufwerk öffnen und wieder schließen???
ist das scher, ich kenne mich da nicht aus

[SleepyMaster]

http://www.swissdelphicenter.ch/de/tipsindex.php

[SleepyMaster]

Delphi-Quellcode:

uses 
  MMSystem; 


// Open , Öffnen 

{Simple Way:} 

  mciSendstring('SET CDAUDIO DOOR OPEN WAIT', nil, 0, Self.Handle); 

{More complex way:} 

function OpenCD(Drive: Char): Boolean; 
var 
  Res: MciError; 
  OpenParm: TMCI_Open_Parms; 
  Flags: DWORD; 
  S: string; 
  DeviceID: Word; 
begin 
  Result := False; 
  S := Drive + ':'; 
  Flags  := MCI_OPEN_TYPE or MCI_OPEN_ELEMENT; 
  with OpenParm do 
  begin 
    dwCallback := 0; 
    lpstrDeviceType := 'CDAudio'; 
    lpstrElementName := PChar(S); 
  end; 
  Res := mciSendCommand(0, MCI_OPEN, Flags, Longint(@OpenParm)); 
  if Res <> 0 then Exit; 
  DeviceID := OpenParm.wDeviceID; 
  try 
    Res := mciSendCommand(DeviceID, MCI_SET, MCI_SET_DOOR_OPEN, 0); 
    if Res = 0 then Exit; 
    Result := True; 
  finally 
    mciSendCommand(DeviceID, MCI_CLOSE, Flags, Longint(@OpenParm)); 
  end; 
end; 


//Close, Schliessen 

{Simple Way:} 

  mciSendstring('SET CDAUDIO DOOR CLOSED WAIT', nil, 0, Self.Handle); 


{More complex way:} 

function CloseCD(Drive: Char): Boolean; 
var 
  Res: MciError; 
  OpenParm: TMCI_Open_Parms; 
  Flags: DWORD; 
  S: string; 
  DeviceID: Word; 
begin 
  Result := False; 
  S := Drive + ':'; 
  Flags  := MCI_OPEN_TYPE or MCI_OPEN_ELEMENT; 
  with OpenParm do 
  begin 
    dwCallback := 0; 
    lpstrDeviceType := 'CDAudio'; 
    lpstrElementName := PChar(S); 
  end; 
  Res := mciSendCommand(0, MCI_OPEN, Flags, Longint(@OpenParm)); 
  if Res <> then Exit; 
  DeviceID := OpenParm.wDeviceID; 
  try 
    Res := mciSendCommand(DeviceID, MCI_SET, MCI_SET_DOOR_CLOSED, 0); 
    if Res = 0 then Exit; 
    Result := True; 
  finally 
    mciSendCommand(DeviceID, MCI_CLOSE, Flags, Longint(@OpenParm)); 
  end; 
end;

[Affje800]

hmm, irgendwas mache ich falsch....

[Luckie]

Zitat von Affje800:

hmm, irgendwas mache ich falsch....

Schön. Und was jetzt? Sollen wir raten was? Gut. Hiermit eröffnet Gameshow-Moderator Luckie das Quizz. Der einfachheithalber nehmen wir die Regeln von JoeParty. Wir suchen zur Antwort die Frage.

Ich wähle "Funzt nicht 100".

[Nightshade]

42 !

[Luckie]

@Affje800: Bitte nicht persönlich nehmen, aber mit deiner aussage können wir absolut nichts anfangen. Wenn wir dir helfen sollen, musst du uns schon etwas mehr Hinweise geben.

[Affje800]

naja hat sich erledigt, trotzdem danke.
war nur mal so ne frage, aber das is mir momentan noch zu kompliziert *g*