CD mit Programm auswerfen

[Jens Rossbach]

Wie kann ich von einem Delphi-Programm aus eine CD oder eine ZIP-Diskette aus dem Laufwerk auswerfen?

[unknown]

MediaPlayer1: TMediaPlayer; auf das formular ziehen und dann

procedure cd_auswerfen;

begin

MediaPlayer1.DeviceType := dtCDAudio;

MediaPlayer1.Open;

MediaPlayer1.Eject;

MediaPlayer1.Close;

end;

:-

[M.Pannier]

Das ganze geht, so denke ich noch etwas eleganter mit einem API - Befehl

mciSendString('Set cdaudio door open wait', nil, 0, handle)