728 - Como interromper o desligamento do Windows
Esta dica ensina como interromper o processo de desligamento do
Windows. Com esta dica você poderá evitar que desliguem o Windows enquanto a
sua aplicação estiver aberta e correr o risco de perder ou corromper dados.
O código abaixo mostra como fazer isto.
private
{ Private declarations }
procedure WMQueryEndSession (var Msg : TWMQueryEndSession); message
WM_QueryEndSession;
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.WMQueryEndSession (var Msg : TWMQueryEndSession);
begin
if MessageDlg('O Windows deseja desligar agora, Permitir ?',
mtConfirmation, [mbYes,mbNo], 0) = mrNo then
Msg.Result := 0
else
Msg.Result := 1;
end;
A Msg "WM_QUERYENDSESSION" é enviada para todas as aplicações que estão
"abertas" quando o usuário clica em uma das opções "desligar" do windows ou
quando uma aplicação chama a função "ExitWindows". Se qualquer aplicação
retornar zero, o Windows não se fechará e sistema irá parar de enviar as Msg
"WM_QUERYENDSESSION".
Após ter processado esta Msg, o sistema envia a mensagem "WM_ENDSESSION"
junto do parâmetro "wParam" com os resultados da mensagem de
"WM_QUERYENDSESSION". Finalizando ou não o Windows.
- Original Message -
From: "Jefferson Hilgert" <[EMAIL PROTECTED]>
To:
Sent: Wednesday, March 15, 2006 8:03 PM
Subject: [delphi-br] ajuda: quando os usuários desligam o windows???
Amigos, recorro a vocês.
Eu sei que o Windows manda mensagens para os aplicativos, avisando que
o sistema Operacional está sendo fechado.
Como faço para interceptar estas mensagens no delphi?
Qualquer ajuda ou palavra chave será bem vinda, pois não estou
encontrando no google.
[ ]s...
Jefferson.
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Yahoo! Grupos, um serviço oferecido por:
PUBLICIDADE
Links do Yahoo! Grupos
a.. Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
b.. Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço
do Yahoo!.
No virus found in this incoming message.
Checked by AVG Free Edition.
Version: 7.1.385 / Virus Database: 268.2.3/281 - Release Date: 14/03/2006
___
Yahoo! Acesso Grátis - Internet rápida e grátis. Instale o discador agora!
http://br.acesso.yahoo.com
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
<*> Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
<*> Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED]
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
