Delphi cdrom laufwerk auswerfen

Thema durchsuchen

Ansicht

Themen-Optionen

cdrom laufwerk auswerfen

Ein Thema von profiz · begonnen am 5. Jul 2003 · letzter Beitrag vom 9. Jul 2003

Thema geschlossen

Illuminator-23-5

(Gast)

n/a Beiträge

6. Jul 2003, 09:31

markieren

Delphi-Quellcode:

			procedure CDOut(LW: Char);

  if mciSendString(PChar('open '+LW+'\: type cdaudio alias cdlw'), nil, 0, 0) = 0 then begin

    mciSendString(PChar('set cdlw door open wait'), nil, 0, 0);

    mciSendString(PChar('close cdlw'), nil, 0, 0);

  end;

end;

Damit kann man ein ganz bestimmtes Laufwerk öffnen, zum schließen einfach 'set cdlw door closed wait'senden [google suchergebnis]