Como saber se o sistema est� finalizando?

Question

Ol� amigos, preciso gravar numa tabela no meu banco quando o sistema � fechado, mas pra isso preciso saber quando ele est� finalizando, antes da conex�o ser destru�da, ir no banco e gravar que o sistema foi fechado.

Como fa�o isso?

[]s

Paullsoftware · Answer

n�o fiz esse teste mais ser� que no evento OnDestroy do Form Principal voc� n�o consegue isso?...

Nightshade · Answer

tenta o onCloseQueryesse evento � acionado antes do formulario fechar..se tu utiliza application.terminate;n�o funcionar�.mas clicanco no [X] para finalizar ela sim.tu ainda pode fzr assim[code:1:d8cc678896]procedure TFMain.FormCloseQuery(Sender: TObject; var CanClose: Boolean);begin   try    salva;    except      canclose := false;      showmessage(�ocorreu um erro ao salvar..�);   end;end;[/code:1:d8cc678896]breckando a aplica��o de ser fechada caso de algo errado...

Titanius · Answer

Eu j� utilizo no OnCloseQuery... mas de vez em quando n�o grava... me parece que j� foi fechado a conex�o de dados..

E Utilizo o Application.Terminate;

Qual seria melhor usar sem ser ele? Visto que meu Form Principal � um DM depois vem o Form principal da aplica��o...

[]s

Ipc$ · Answer

[code:1:c591e62746]procedure WndProc(var Msg: TMessage); override;[/code:1:c591e62746]A� vc pega todas as msgs antes que ela feche....

Titanius · Answer

valeu ipc, mas qual � a mensagem de fechar, n�o consegui ver no debug...[]s...

Ipc$ · Answer

N�o tenho certeza mas acho que uma delas � o WM_Close.Vc pode gerar um txt nessa procedure, gravar e verificar as �ltimas msgs que o Windows enviou para sua aplica��o antes de fechar....

Ipc$ · Answer

Oops, n�o esque�a de colocar [b:18b97192dc]inherited[/b:18b97192dc] nesta procedure pq ela � override....

Titanius · Answer

valeu ipc.. vou tentar aki...[]s...

Rvano · Answer

Colocar uma linha antes do �Application.Terminate;� com a rotina de grava��o n�o resolve o problema?...

Rvano · Answer

Colocar uma linha antes do �Application.Terminate;� com a rotina de grava��o n�o resolve o problema?

Poderia criar uma procedure que fecha a aplica��o

procedure FechaAplicativo;
begin
  DataModule.Query1.Insert;
  DataModulo.Query1.FieldByName(�Campo�).AsDate := now;
  DataModule.Query1.Post;
  Application.Terminate;
end;

Coloque esse c�digo no seu dataModule, como p�blico. Substitua as linhas do seu fonte que est�o com �Application.Terminate;� por esta rotina �FechaAplicativo�.

Paullsoftware · Answer

[quote:7aaee2b20e=�rvano�]Colocar uma linha antes do �Application.Terminate;� com a rotina de grava��o n�o resolve o problema?Poderia criar uma procedure que fecha a aplica��o[code:1:7aaee2b20e]procedure FechaAplicativo;begin  DataModule.Query1.Insert;  DataModulo.Query1.FieldByName(�Campo�).AsDate := now;  DataModule.Query1.Post;  Application.Terminate;end;[/code:1:7aaee2b20e]Coloque esse c�digo no seu dataModule, como p�blico. Substitua as linhas do seu fonte que est�o com �Application.Terminate;� por esta rotina �FechaAplicativo�.[/quote:7aaee2b20e] Eu creio que isso ele j� tentou, agora me diz uma coisa!!! se o kra for no X do form e d� um clickizinho, como ele vai disparar essa procedure?? :lol:...

Rvano · Answer

No onClose do form coloca assim:[code:1:50d266165b]  if Application.MessageBox(�Deseja fechar?�, �Aviso�, MB_YESNO+MB_ICONQUESTION) = mrYes then  FechaAplicativo;[/code:1:50d266165b]Assim, sempre que algu�m clicar no X do form, o aplicativo executa essa rotina!!!...

Rvano · Answer

No onClose do form coloca assim:[code:1:5b7023fb02]  if Application.MessageBox(�Deseja fechar?�, �Aviso�, MB_YESNO+MB_ICONQUESTION) = mrYes then  FechaAplicativo;[/code:1:5b7023fb02]Assim, sempre que algu�m clicar no X do form, o aplicativo executa essa rotina!!!...

F�rum Como saber se o sistema est� finalizando? #341767