Autorun-Programm beenden wenn CD ausgeworfen

[Martin K]

Dann müsste das also so gehen?

Delphi-Quellcode:

procedure TForm1.Beenden(var Msg: TMsg; var Handled: Boolean);
begin
  If (Msg.Message=WM_DEVICECHANGE) and (not FileExists(Application.ExeName)) then  Close;
end;

Werd's gleich mal testen...