Windows beenden lassen

AXMD · Verfasst: Fr 19.11.04 16:36

Hi,

ich will von Windows die WMEndSession erhalten, wenn es runterfährt, 0 zurückgeben und das Prog beenden. Nur irgendwie bleibt manchmal das Prog offen, manchmal häng Win. Code:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:

procedure TForm1.WMEndSession(var Msg: TMessage);
begin
  Msg.Result := 0;
  inherited;
  Halt;
end;

Was mach ich falsch?

AXMD

BenBE · Verfasst: Fr 19.11.04 20:39

Siehe MSDN\PSDK unter Suche im MSDN

WM_QUERYENDSESSION bzw. Suche im MSDN

WM_ENDSESSION

Weiterhin sollte Inherited immer zu erst aufgerufen werden.

Weiterhin solltest du Application.Terminate anstatt Halt verwenden. Halt ist kein guter Programmierstil!

_________________

Anyone who is capable of being elected president should on no account be allowed to do the job.
Ich code EdgeMonkey - In dubio pro Setting.

AXMD · Verfasst: Sa 20.11.04 09:11

Danke für die Links.

Zitat:

If any application returns zero, the session is not ended.

Die Frage ist nur: was soll das Programm dann zurückgeben?

Folgender Code funktioniert nicht

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:

procedure TForm1.WMEndSession(var Msg: TMessage);
begin
  inherited;
  end_flag := true;
  Application.Terminate;
end;

AXMD

Ehemaliges Mitglied Erhaltene Danke: 1

Irgenddwas ungleich null eben.

AXMD · Verfasst: Sa 20.11.04 12:03

Muss ich das angeben oder macht das bereits der inherited-Teil?

AXMD

Ehemaliges Mitglied Erhaltene Danke: 1

Ich würde es angeben. Desweiteren wäre WM_QUERYENDSESSION besser, da bei WM_ENDSESSION schon alles gelaufen ist. Steht doch auch so im PSDK.

AXMD · Verfasst: Sa 20.11.04 12:12

Sorry, hatte vergessen zu erwähnen, dass ich WM_QUERYENDSESSION verwende; hab die Funktion nur verkürzt geschrieben, weil ich mir Schreibarbeit ersparen wollte ^^

AXMD

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme