Fórum Detectando a saída do Windows #175994
19/08/2003
0
Alguém tem algo pronto, que realmente funcione relacionado à saída do Windows?
Por Exemplo:
Eu quero fazer um programa que detecta a chamada de saída do Windows, ou o Desligamento do Windows ou a efetuação de logoff, alguém sabe fazer isto?
Atenciosamente, NetCrusher
Por Exemplo:
Eu quero fazer um programa que detecta a chamada de saída do Windows, ou o Desligamento do Windows ou a efetuação de logoff, alguém sabe fazer isto?
Atenciosamente, NetCrusher
Netcrusher
Curtir tópico
+ 0
Responder
Posts
19/08/2003
Nildo
Para detectar a finalização do Windows, deve-se capturar a mensagem WM_ENDSESSION. Estes passos devem ser tomados:
Declarar uma rotina de manipulação de mensagens na sessao private de sua form:
procedure WMEndSession(var Msg : TWMEndSession); message WM_ENDSESSION;
Adicionar a procedure à seção implementation de sua unit:
procedure TForm1.WMEndSession(var Msg : TWMEndSession);
begin
if Msg.EndSession = TRUE then
ShowMessage(´O Windows está finalizando ´ + #13 + ´às ´ +
FormatDateTime(´c´, Now));
inherited;
end;
// Dica 154 do Dicas e Truques de Delphi - 800 dicas: http://www.lloydsoft.hpg.com.br
Declarar uma rotina de manipulação de mensagens na sessao private de sua form:
procedure WMEndSession(var Msg : TWMEndSession); message WM_ENDSESSION;
Adicionar a procedure à seção implementation de sua unit:
procedure TForm1.WMEndSession(var Msg : TWMEndSession);
begin
if Msg.EndSession = TRUE then
ShowMessage(´O Windows está finalizando ´ + #13 + ´às ´ +
FormatDateTime(´c´, Now));
inherited;
end;
// Dica 154 do Dicas e Truques de Delphi - 800 dicas: http://www.lloydsoft.hpg.com.br
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)