dê seu feedback
post favorito
Como detectar em uma aplicação Delphi se o Windows esta desligando
Como detectar em uma aplicação Delphi se o Windows esta desligando
Para seu programa executar uma tarefa quando o usuário tiver clicado em
Desligar Computador (ou Reiniciar, qualquer coisa do tipo), primeiramente vá
na seção private da declaração de classe na unit do form principal e digite
a seguinte linha:
procedure WMEndSession (var Msg : TWMEndSession); message WM_ENDSESSION;
Depois, na seção implementation da unit, digite a seguinte rotina:
procedure TNomeDoForm.WMEndSession (var Msg : TWMEndSession);
begin
if Msg.EndSession = TRUE then
FazAlgo; // Aqui você faz o que tem que fazer
inherited;
end;
FONTE: http://www.guiadodelphi.com.br/ler.php?codigo=667
Desligar Computador (ou Reiniciar, qualquer coisa do tipo), primeiramente vá
na seção private da declaração de classe na unit do form principal e digite
a seguinte linha:
procedure WMEndSession (var Msg : TWMEndSession); message WM_ENDSESSION;
Depois, na seção implementation da unit, digite a seguinte rotina:
procedure TNomeDoForm.WMEndSession (var Msg : TWMEndSession);
begin
if Msg.EndSession = TRUE then
FazAlgo; // Aqui você faz o que tem que fazer
inherited;
end;
FONTE: http://www.guiadodelphi.com.br/ler.php?codigo=667
0 COMENTÁRIO
[Este post ainda não foi associado a uma sequência]
Você está em:
canal Delphi
Publicidade
Estudo comparativo entre banco de dados IBM Informix e Microsoft SQL
0
0
Conheça os planos de créditos DevMedia e visualize esse post agora mesmo!