Evento OnCloseQuery de sistema que roda como serviço

Delphi

05/09/2007

Bom dia

Pessoal... desenvolvi um sistema o qual o usuário não poderá fechar, ou seja, no evento OnCloiseQuery defini CanClose := False e forço a aplicação a se minimizar na bandeja do windows com uso do componente TrayIcon do BDS 2006. Estava funcionando certinho, mas como preciso que essa aplicação esteja sempre rodando, adicionei um Service a ela, fazendo com que a aplicação inicie sempre junto com o Windows, mas agora quando efetuo logon na máquina, o sistema abre normal, só que quando clico no Fechar não acontece nada, parece que em modo de serviço não está conseguindo ativar o evento CloseQuery. Adicionei um botão, e chamei o método Close do formulário, que também não funcionou. Alguém sabe como contornar esse problema? Deixar que o usuário vizualise a tela do sistema e quando clicar para fechar que a mesma volte a rodar somente no tray do windows??

Agradeço pela ajuda

Att


Maikel

Maikel

Curtidas 0

Respostas

Maikel

Maikel

05/09/2007

Alguma dica?

Att


GOSTEI 0
POSTAR