"Wirklich beenden"abfrage...[erledigt]

patrick · Beiträge: 1481 WIN2k, WIN XP D6 Personal, D2005 PE

In einem programm von mir hab ich eine funktion die den user fägt ob er das programm wirklich beenden will.

Delphi-Quelltext

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

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  CanClose := MessageDlg('LANner wirklich beenden?',
                       mtConfirmation,
                       [mbYes,mbNo],
                       0) = mrYes;
end;

der haken an der sache ist, das beim windows-herunterfahren auch aufgerufen wird, was ja nicht sinn der sache ist.

wie kann ich also die abfrage beim herunterfahren des PC's unterbinden

_________________
Patrick
im zweifelsfall immer das richtige tun!!!

Ehemaliges Mitglied Erhaltene Danke: 1

Windows sendet beim Herunterfahren eine Nachricht - Suche in: Delphi-Forum, Delphi-Library

WM_ENDSESSION bzw. Suche in: Delphi-Forum, Delphi-Library

WM_QUERYENDSESSION, wenn ich mich nicht irre. Reagierst du darauf, könntest du bspw. eine globale Bool-Variable setzen, die dann die von dir gezeigte Abfrage übergeht. Etwa so:

markieren

Delphi-Quelltext

1:
2:

CanClose := (WindowsFaehrtGeradeRunter) or
  (MessageDlg('LANner wirklich beenden?',mtConfirmation,[mbYes,mbNo],0) = mrYes);

Die Variable "WindowsFaehrtGeradeRunter" musst du, wie gesagt!, entsprechend setzen.

patrick · Beiträge: 1481 WIN2k, WIN XP D6 Personal, D2005 PE

danke, hat funktioniert

_________________
Patrick
im zweifelsfall immer das richtige tun!!!

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme