OnClose problem

[qb-tim]

Hi,

Ich glaube ich werde schon im DP-Forum für meine etwas merkwürdigen Beiträge für Überwachungsprogramme berüchtigt. Tut mir leid, wenn ich irgendetwas falsch gemacht habe...

Ich Programmiere ein Programm, der etwas wie ein Task-Manager "4Dummies" ist. Es kann nur anzeigen, welche Fenster und Programme offen oder minimiert sind und die Programme in der Taskbar auflisten. Es kann aber auch die Programme schließen (eben wie ein normaler Task-Manager). Damit das Programm nicht von externen Personen (Häcker u.a) dazu benutzt werden kann, Programme zum Abstürzen zu bringen, muss der Benutzter einen PIN eingeben, der bei der ersten Benutzung festgelegt und codiert gespeichert wird.
Außerdem soll dieses Programm anzeigen, wann zuletzt ein- und ausgelogged wurde. Ich habe mich entschieden dazu die ONCLOSE Prozedur dafür zu benutzen... Mein Problem ist:

Wie lasse ich die OnClose Prozedur laufen, wenn der Benutzer auslogged bzw. den Computer herunterfährt?

[sh17]

Du meinst, das OnClose nicht aufgerufen wird, wenn Windows herunterfährt?

Der Einstiegspunkt beim Herunterfahren wäre:

Delphi-Quellcode:

TMyForm = class(TForm)
private
    procedure WMQueryEndSession(var Message: TWMQueryEndSession); message WM_QUERYENDSESSION;
    procedure WMEndSession(var Msg: TMessage); message WM_ENDSESSION;
end;

Dort kannst Du Deine abschliessenden Dinge ausführen lassen.

[qb-tim]

:? Wie baue ich das denn ein?

(Tut mir leid wenn ich so dumm frage... :( )

[sh17]

Einfach die beiden prozeduren oben in in den private-Bereich Deines Hauptformulares kopieren, Klasse vervollständigen.

Du benötigst eigentlich nur die WMEndSession.

Delphi-Quellcode:

TMyForm = class(TForm) 
  procedure FormCreate(Sender: TObject);
  procedure FormClose(Sender: TObject; var Action: TCloseAction);
private 
  Closed : Boolean;
  procedure DoClose;
  procedure WMEndSession(var Msg: TMessage); message WM_ENDSESSION; 
end;

...

procedure TMyForm.FormCreate(Sender: TObject);
begin
  Closed := false;
end;

procedure TMyForm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  DoClose;
end;

procedure TMyForm.WMEndSession(var Msg: TMessage);
begin
  DoClose;
end;

procedure TMyForm.DoClose;
begin
  if Closed then exit;
  Closed := true;
 
  //sonst was machen
end;