Autorun-Programm beenden wenn CD ausgeworfen

[Martin K]

Ich hatte mal einen Bildschirmschoner programmiert, den hatte ich so beendet:

Delphi-Quellcode:

//global:
var i: Byte;

//bei FormCreate:
  Application.OnMessage:=Beenden;
  i:=0;

procedure TForm1.Beenden(var Msg: TMsg; var Handled: Boolean);
begin
  If Msg.Message=WM_MouseMove then
    Inc(i)
  else
  If (Msg.Message=WM_KeyDown) or (Msg.Message=WM_Activate) or (Msg.Message=WM_ActivateApp) or (Msg.Message=WM_NCActivate) then
    i:=99;

  If i>15 then
    Close;
end;

Jetzt bräuchte ich eigentlich nur den Befehl von Windows, ob die CD ausgeworfen wurde.
Also irgendwas mit:
If Msg.Message=WM_CDAusgeworfen then Close; Kennt sich jemand damit aus ?