Windows n�o reinicia com o programa rodando

Question

Eae pessoal,Tenho um aplicativo de backup desenvolvido em Delphi.Ao iniciar ele vai para a area de notifica��o e em determinada hora ele executa o backup dos dados do computador (utiliza um Timer para...

Delphi32 · Answer

Bem, tem uma pergunta b�sica que voc� n�o respondeu acima:

Seu programa faz alguma intercepta��o da Mensagem do windows que �avisa� aos programas que ele est� sendo desligado/reiniciado?

t+!

Netosdr · Answer

Caro colega,N�o tem nada no programa que �avisa� ao sistema operacional que o programa foi encerrado, nem nada do g�nero.� um aplicativo muito b�sico:- Ao iniciar ele vai para a �rea de notifica��o- Tem um timer que verifica se est� na hora (if Time = vTime then..)- Se for na hora, desabilita o timer- Executa a opera��o (simples Winexec)- Habilita o Timer novamente.Basicamente isso.....

Rodc · Answer

J� tive este problema quando usava um TNMSMTP, da palheta FastNet. Para resolver o problema tive de criar o componente dinamicamente na hora de enviar o e-mail. Voc� pode tamb�m interceptar a mensagem de desligar do Windows e mandar fechar o seu sistema.

Como fazer isso amigo?

Netosdr · Answer

[quote:46a3f29358=�rodc�]J� tive este problema quando usava um TNMSMTP, da palheta FastNet. Para resolver o problema tive de criar o componente dinamicamente na hora de enviar o e-mail.Voc� pode tamb�m interceptar a mensagem de desligar do Windows e mandar fechar o seu sistema.[/quote:46a3f29358]Como fazer isso amigo?...

Rodc · Answer

[quote:8159d0d2f0=�netosdr�]Como fazer isso amigo?[/quote:8159d0d2f0]Isto oqu�? Criar o TNMSMTP dinamicamente ou pegar a mensagem do Windows?...

Netosdr · Answer

Pegar a mensagem de desligamento, logoff, reinicar do windows....

Rodc · Answer

Segue um exemplo:[code:1:3a79081dda]protected    procedure WMQueryEndSession(var Msg : TWMQueryEndSession); message WM_QueryEndSession;......procedure TForm1.WMQueryEndSession(var Msg : TWMQueryEndSession);begin    Close();end;[/code:1:3a79081dda]...

Rodc · Answer

Ou melhor, para ficar mais l�gico, use a mensagem WM_ENDSESSION. A mensagem WM_QUERYENDSESSION � para voc� definir se o windows pode ou n�o fechar.

protected 
    procedure WMQuerySession(var Msg : TWMEndSession); message WM_EndSession; 

...... 

procedure TForm1.WMEndSession(var Msg : TWMEndSession); 
begin 
    Close(); 
end;

Netosdr · Answer

Beleza funcionou mas tem um detalhe:- Se eu usar Close continua sem nenhuma a��o, os outros programas sao encerrados, o meu aplicativo continua impedindo;- Se eu usar Application.Terminate o aplicativo termina quando mando reiniciar, mas n�o reinicia, a� tenho que entrar em reiniciar de novo, a� sim funciona.Obs: o aplicativo tem 01 form e 01 datamodule....

Rodc · Answer

Tenta usar o QueryEndSession ent�o... � apenas um chute......

Delphi32 · Answer

ou... se voc� estiver usando o componente que rodc falou, tente cri�-lo dinamicamente... pode haver um bug nesse componente...

caso voc� n�o use esse componente, fa�a testes para descobrir quem � que est� impedindo o windows de desligar.

exemplo: remova o timer do projeto, compile, execute e veja se reinicia... vai fazendo assim at� descobrir quem �... depois que descobrir quem � fica mais f�cil de resolver...

t+!

Rodc · Answer

[quote:99d2a3d7e3=�delphi32�]caso voc� n�o use esse componente, fa�a testes para descobrir quem � que est� impedindo o windows de desligar.[/quote:99d2a3d7e3]� verdade, foi bem assim que eu descobri o erro!!! Fui removendo componentes, units, rotinas, at� encontrar o que causava o erro....

Netosdr · Answer

N�o estava lembrando, tenho um componente TNmFTP no meu Form, ele que estava dando pau (segui o conselho de ir removendo item por item).
Acho que esses componentes desse fabricante d�o um pouco de canseira como o colega mencionou.

Tirei ele, criei em tempo de execu��o e problema resolvido.

Obrigado a todos pela aten��o!

F�rum Windows n�o reinicia com o programa rodando #329389