Fórum meu programa não deixa o windows ser encerrado #236402

Amigo,
Faça o seguinte: detecte a finalização do windows e feche seu aplicativo ai o windows vai desligar sem problemas.


[i:d252343a1e]Retirado do 800 dicas[/i:d252343a1e]

[i:9bcfda695f]Retirado do 800 dicas[/i:9bcfda695f][/quote:9bcfda695f]

JÁ TENTEI USAR ESSA ROTINA COLOCANDO APPLICATION.TERMINATE NO CÓDIGO. MAS NAO DEU CERTO. É PRECISO COLOCÁ-LA EM ALGUMA EVENTO ESPECÍFICO??OU SÓ BASTA COLOCÁ-LA NO CÓDIGO???

// na clausula [b:21bb83e74d]var[/b:21bb83e74d] declare a variavel cancel



//No evento onclose do form


Caso ainda não consiga poste o erro....

Continuo empancado... Não aprece nenhuma mensagem de erro. O Windows apenas não é finalizado. Aí vai partes do programa q podem estar causando isso:

{ Private declarations }
procedure FinalizandoWindows(var Msg: TWMEndSession);message WM_ENDSESSION;

{...}
var
frmFormPrinc : TfrmFormPrinc; {form principal}
{...}
Cancelar : Boolean;

implementation

{$R *.DFM\}

procedure TfrmFormPrinc.FinalizandoWindows(var Msg: TWMEndSession);
begin
if Msg.EndSession= true then
Cancelar:= true;
Close;
inherited;
end;

procedure TfrmFormPrinc.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
if not Cancelar then
begin
//anima a janela
AnimateWindow(frmFormPrinc.Handle,500,AW_VER_POSITIVE Or AW_HOR_NEGATIVE Or AW_HIDE);
//impede o encerramento do programa e oculta a janela principal
CanClose:= false;
frmFormPrinc.Hide;
end
else
//deveria dar continuidade ao encerramento do form
CanClose:= true;
end;

procedure TfrmFormPrinc.FormClose(Sender: TObject; var Action: TCloseAction);
begin
{ tentei o seguinte mas também não funcionou
if not Cancelar then
Action:= caNone
else
Action:= caFree;}
end;

procedure TfrmFormPrinc.FormDestroy(Sender: TObject);
var
i: Integer;
F: TextFile;
begin
//atualiza a lista de arquivos
AssignFile(F,ArqLst);
Rewrite(F);
for i:=0 to TotImg-1 do
begin
//elimina os componentes criados durante a execu\´e7\´e3o
//e escreve os nomes das imagens em uso
Lbl[I].Free;
Img[I].Free;
Panel[I].Free;
if Imagem[i]<>´´ then
Writeln(F,Imagem[i]);
end;
CloseFile(F);
//limpa o objeto registro
Registro.Free;
end;

A idéia do programa é que fique rodando oculto, mas com um ícone adicionado na bandeija de sistema(próximo ao relógio).
A partir desse ícone, o usuário pode exibir a janela ou encerrar o programa.
Esse ícone é adicionado através de um componente (Tanis Notification Icon).
Quando é dado OK na janela de finalizar o windows nada acontece.