Problemas ao desligar o Windows

Question

Ol�, tenho um programa que roda no tray do windows.... ele eh executado na inicializacao do windows, porem quando vou finalizar o windows o programa nao deixa o windows desligar... como soluciono este problema.

Desde j� agradeco.

Manoeljr · Answer

Declare essa procedure na cl�usula Private da unit principal de seu aplicativo:
procedure WMQueryEndSession (var Msg : TWMQueryEndSession); message WM_QueryEndSession;

Em seguida Digite o Corpo da Procedure na se��o implementation da mesma unit:

procedure TForm1.WMQueryEndSession (var Msg : TWMQueryEndSession);
begin
Application.ProcessMessages;
Application.terminate;
Msg.Result := 1;
end;

Acredito que assim seu aplicativo agora deixara o windows se desligar normalmente, Qualquer d�vida me manda um e-mail.

F�rum Problemas ao desligar o Windows #203415