NT Logon/-off event

Det kan du få at vide ved at checke på den message der hedder : WM_QUERYENDSESSION

/Martin

Okay det må jeg lige prøve - men hvad med login ??

Prøv at tage noget API hjælp på WM_QUERYENDSESSION
jeg kan ikke lige huske om der er noget Login også

mojn mojn

type
TForm1 = class(TForm)
  procedure FormCreate(Sender: TObject);
  {Add this AppMessage here for your OnMessage procedure}
  procedure AppMessage(var Msg: TMsg; var Handled: Boolean);
private
  { Private declarations }
public
  { Public declarations }
end;

...

procedure TForm1.FormCreate(Sender: TObject);
begin
{you will have to set the OnMessage to a procedure
of this form}
Application.OnMessage := AppMessage;
end;


procedure TForm1.AppMessage(var Msg: TMsg; var Handled: Boolean);
begin
{ ONLY set Handled to True if you want the message to stop here. set it to False at the begining}
Handled := False;
if Msg.message = WM_QUERYENDSESSION then
begin
Showmessage(\'Windows Close now...\');
Handled := True;
end;
end;