prog wird nicht beendet windows nicht runtergefahren

barty · Hält's aus hier Beiträge: 10

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

markieren

Delphi-Quelltext

1:
2:
3:

private
    { Private-Deklarationen }
      procedure WMQueryEndSession (var Msg : TWMQueryEndSession); message WM_QueryEndSession;

markieren

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 · Beiträge: 2971 Windows Vista Ultimate D7 Enterprise

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 · Hält's aus hier Beiträge: 10

ok, hat sich erledigt.

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme