API - impedir o windows de desligar

Top  Previous  Next

Declare a seguinte função em Private:

 

procedure WMQueryEndSession( var Message: TWMQueryEndSession); message

WM_QUERYENDSESSION;

 

Em Implementation:

 

procedure TMainFrm.WMQueryEndSession(var Message: TWMQueryEndSession);

begin

  Message.Result:=1;

  Application.Terminate;

end;

 

A função acima sempre é chamada quando o Windows pede para desligar aí ele

finaliza seu aplicativo!