F�rum Aplica��o Tray #380196

28/06/2010

Bom dia Criei uma aplica��o Tray que � carregada e fica na barra de tarefas na �rea do rel�gio do windows. Gostaria que, ao desligar o computador, a aplica��o fosse encerrada. Atualmente ela fica aguardando que se feche manualmente Tem algum jeito de fazer isso ? Obrigada Silvia

Silvia Berezin

Curtir t�pico

+ 0

Responder

Posts

28/06/2010

Wesley Yamazack

Ol� Boa tarde.

Existem v�rias mensagens, do SO, que conseguimos detectar uma delas � o desligamento. Veja o Exemplo abaixo declare no Private do seu formul�rio a procedure WMQueryEndSession, e implemente ela da maneira que voc� possa fechar sua aplica��o, coloque o application.terminated, por exemplo.

unit uFrmDesligamento; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs; type TForm1 = class(TForm) private { Private declarations } procedure WMQueryEndSession(var Msg: TWMQueryEndSession); message WM_QueryEndSession; public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} { TForm1 }
procedure TForm1.WMQueryEndSession(var Msg: TWMQueryEndSession); begin if MessageDlg('Fecha o Windows ?', mtConfirmation, [mbYes, mbNo], 0) = mrNo then Msg.Result := 0 else Msg.Result := 1; end;

end.

Att,

Wesley Y

Responder

Gostei + 0

02/07/2010

Silvia Berezin

Oi Wesley Infelizmente n�o funcionou. A aplica��o continua na memoria quando pe�o para desligar a maquina Ent�ol tenho que fechar a aplica��o manualmente e depois desligar o computador Silvia

Responder

Gostei + 0

02/07/2010

Wesley Yamazack

Silvia,
Me mande o exemplo como voc� esta fazendo, crie um formul�rio e me mande para eu poder testar.

Att,

Wesley Y

Responder

Gostei + 0

08/07/2010

Wesley Yamazack

Ol� S�lvia,

Estou aguardando o exemplo.

Att,

Wesley Y

Responder

Gostei + 0

16/07/2010

Wesley Yamazack

Silvia

Estamos fechando este chamado, caso tenha alguma d�vida reabriremos o mesmo.

Att,

Wesley Y

Responder

Gostei + 0