Como detectar finalizacao do windows?

Delphi

08/12/2003

Olá, gostaria de saber como faco para q meu programa detecte a finalizacao do windows, para q ele feche automaticamente...


desde ja agradeco...

[]s


Titanius

Titanius

Curtidas 0

Respostas

Maicongabriel

Maicongabriel

08/12/2003

Declarare uma rotina de manipulação de mensagens na sessao private do form:

procedure WMEndSession(var Msg : TWMEndSession); message WM_ENDSESSION;
Adicionar a procedure à seção implementation de sua unit:


e sua procedure:

procedure TFormPrincipal.WMEndSession(var Msg : TWMEndSession);
begin
  if Msg.EndSession = True then
    ShowMessage(´O Windows está sendo finalizado!´);
  inherited;
end;



GOSTEI 0
Titanius

Titanius

08/12/2003

Certo, coloquei estes codigos, porem nao esta funcionando... ele nao deixa o widndows desligar....

[]s


GOSTEI 0
Maicongabriel

Maicongabriel

08/12/2003

Eu acabei de testar esta função no [i:4b623547bb]Windows 2000 Professional[/i:4b623547bb] e ela funcionou corretamente!
A mensagem apareceu e o Windows Desligou após fecha-la.
Tem que funcionar, mas mesmo assim, que versão do Windows você usa ?


GOSTEI 0
Titanius

Titanius

08/12/2003

utilizo win98.. tenho istalado em winxp, e win2000.. contudo nao desliga...
digitei o seguinte codigo:


if Msg.EndSession = True then
Application.Terminate;
inherited;

sera q noa posso usar o Terminate?

[]s


GOSTEI 0
POSTAR