Schon wieder Shutdown XP

[CallmeMad]

Hallo Leute,

ich habe schon einige Artikel über Shutdown gelesen, habe aber folgendes Prob : Wenn man WindowsXP runterfährt, geht es nicht, da meine Anwendung noch läuft.
Wie genau muss denn mein Code aussehen, damit Windows ordnungsgemäß runterfährt ??

[sakura]

Kennst Du den schon? http://www.delphipraxis.net/viewtopic.php?t=56

Wichtig ist auch der 2. Beitrag von Daniel.

......

[CallmeMad]

Ja,

ist doch aber nur, wenn ich Win XP aus meinem Progg heraus beenden will.
Das funzt auch...aber löst leider mein Problem nicht.
Oder doch... blick ich das nicht ??

[sakura]

Oops, ich habe es falsch verstanden. Was für eine Anwendung hast Du denn geschrieben, weil Delphi diese Dinge eigentlich von selbst übernimmt und es normalerweise keine Probleme geben sollte.

......

[CallmeMad]

Meine Anwendung ist absolut harmlos, kein Registry Zugriff, FTP oder Internet, einfach simpel.Sie landet im Tray mit Hilfe der RXLIB - Trayicon - Geschichte. Liegt aber nicht daran, auch wenn Das Form sichtbar ist, weigert sich mein Progg, dass Windows beendet wird.

Habe gelesen, dass Windows uber Fenster Handle nachfragt ob runterfahren kann. Aber wie sage ich in meinem Progg : Jau, kann'ste !

[Luckie]

WM_QUERYENDSESSION bekommst du von Windows geschickt, wenn es runterfahren will. Gibst du hier 0 oder FALSE zurück, dann bricht Windows das Runterfahren ab.

Aber ich habe schon von diversen TrayIcon-Komponenten gehört, dass sie das Beenden des Programms beim Runterfahren verhindern. Die aus der RXLib gehörte glaube ich dazu.

Du mußt es übrigens nicht deinem Programm sagen, sondern Windows!

[CallmeMad]

Stimmt, aber wo gebe ich denn nun 0 oder false zurück ?
Nicht über canclose = true, denn dann fährt Windows runter, nur wenn die Anwendung beendet wird.

[Luckie]

Das hat mit dem Flag CanClose von TForm.CloseQuery nichts zu tun. Das ist eine Message, die du abfangen mußt.
Und desweiteren mußt du natürlcih TRUE oder eins zurückgeben, Windows soll ja weiter runterfahren.

[CallmeMad]

Schluchz....aber wie ????

[Luckie]

So jetzt nimmst du erst mal das Taschentuch, schnäuzt dir die Nase, trocknest deine Tränen und dann kuckst du dir mal den Code vom lieben Onkel Luckie an:

Delphi-Quellcode:

type
  TForm1 = class(TForm)
  private
    { Private-Deklarationen }
    procedure WMQUERYEBDSESSION(var msg: TMessage); message WM_QUERYENDSESSION;
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.WMQUERYEBDSESSION(var msg: TMessage);
begin
  msg.Result := Integer(TRUE);
end;

Wenn du hier: msg.Result := Integer(TRUE); FALSE zurückgibst bricht Windows den Shutdown ab.