Entwickler-Ecke

Windows API - prog wird nicht beendet windows nicht runtergefahren


barty - Mo 27.02.06 22:46
Titel: prog wird nicht beendet windows nicht runtergefahren
servus

habe ein kleines großes problem

wenn mein prog läuft lässt sich windows nicht runterfahren und das programm schließt sich ewinfach nicht.
habe schon gesucht und auch beiträge gefunden aber es funzt einfach nicht.

fange das won windows gesendete WMQueryEndSession so ab


Delphi-Quelltext 
1:
2:
3:
 
private
    { Private-Deklarationen }
      procedure WMQueryEndSession (var Msg : TWMQueryEndSession); message WM_QueryEndSession;



Delphi-Quelltext 
1:
2:
3:
4:
5:
 
procedure TForm1.WMQueryEndSession (var Msg : TWMQueryEndSession);
begin
Msg.Result := 1;
Close;
end;


form ist stay ontop
habe ein button und 2 timer am laufen


wer kann mir noch weiterhelfen ich weiß einfach nicht wie ich es machen soll


JayEff - Di 28.02.06 01:37
Definiere eine globale Variable vom Typ Boolean (foo)
Setzte diese auf False.
setzte im Close CanClose := foo;
schreib in deine QueryEndSession procedure foo:=true; close;

das sollte klappen.

Oder zumindest denke ich, dass du CanClose auf False gesetzt hast. Denn sonst sollte das eh keine Probleme geben...


barty - Di 28.02.06 22:36
ok, hat sich erledigt.


Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2026 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!