Sistema não deixa o computador desligar

[danielrgoes]

Bom dia pessoal

eu tenho um sistema que eu escondo ele na barra de tarefas e ele fica lá

Codigo no evento FormCloseQuery

if CanClose then { se o comando para fechar for acionado }

CanClose := false; { cancela o comando }

h := FindWindow(nil,'TrayIcon'); { acha o ponteiro da aplicação no sistema}

ShowWindow(h,SW_HIDE); { esconde a aplicação da barra de tarefas}

RxTrayIcon1.Active := true; { coloca ícone no tray icon}

hide; { esconde o form }

eu utilizo o componente RxTrayIcon da biblioteca RxLib

funciona certinho o sistema fica escondido

potem quando o usuario vai tentar desligar o computador ele não deixa o SO (Windows XP, Vista)

fica parado

alguém sabe porque? e se possivel tem a soluçao ehehehhe

abraços

[Jhonas]

porem quando o usuario vai tentar desligar o computador ele não deixa o SO (Windows XP, Vista)

fica parado

if CanClose then { se o comando para fechar for acionado }
CanClose := false; { cancela o comando }

Elimine este comando

abraço