Autorun-Programm beenden wenn CD ausgeworfen

[Martin K]

Hi Leute,

ich habe ein Programm geschrieben, dass mit autorun automatisch gestartet wird, wenn die CD eingelegt wird.

Wie kann es machen, dass das Programm auch wieder geschlossen wird, wenn die CD ausgeworfen wird?
Gibt es da noch eine andere Möglichkeit, außer mit einem Timer ständig zu überprüfen, ob die CD noch drin ist?

[Martin K]

Gibt's da evtl. was mit TMsg.Message?
Irgendein Befehl von Windows?

[ichbins]

Überprüfe einfach mit einem Timer, ob eine bestimmte Datei auf der CD existiert. Wenn nein -> beenden

[Martin K]

@ichbins:

Was glaubst du wohl, wie ich das hier meinte:

Zitat von Martin K:

Gibt es da noch eine andere Möglichkeit, außer mit einem Timer ständig zu überprüfen, ob die CD noch drin ist?

Ob die CD noch drin ist hätte ich wohl dann auch so überprüft...

Aber ich meinte eine andere Möglichkeit, ohne Timer.

Gibt es da nicht von Windows einen Befehl, der gesendet wird, wenn sich die CD-Schublade öffnet ?
Dann müsste ich noch in mein Programm einbinden, dass es beendet werden soll, wenn es diesen Befehl empfängt.
(Da werden doch ständig von Windows irgend welche Befehle gesendet...)

Wenn ein Ordner von einer CD geöffnet ist und ich die CD auswerfe, dann klappt das doch auch...

[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 ?

[Bernhard Geyer]

CDEvents

[Martin K]

@Bernhard Geyer:
Nett, dass du mir einen Link schickst. So eine Seite mit einer Übersicht aller Windows Messages wäre auch net schlecht...
Aber leider gibt's die Seite nicht

[Bernhard Geyer]

Zitat von Martin K:

@Bernhard Geyer:
Nett, dass du mir einen Link schickst. So eine Seite mit einer Übersicht aller Windows Messages wäre auch net schlecht...
Aber leider gibt's die Seite nicht

Schau dir halt die Sourcen an. Das Auswerfen der CD-Rom wird über WM_DEVICECHANGE gesteuert

[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...

[Martin K]

Das geht leider nicht:

Zitat:

[Fehler] Unit1.pas(893): Undefinierter Bezeichner: 'WM_DEVICECHANGE'
[Warnung] Unit1.pas(893): Vorzeichenbehaftete und -lose Typen werden verglichen - beide Operanden werden erweitert

Wo könnte der Fehler liegen?