Como Fazer Aplicação No Systemtray

[GameOver]

Como fazer para um programa ficar na bandeja do sistema e poder ser encerrado por lá?

[Thales Pontes Martins]

O Delphi 2006 vem com o componente TTrayIcon. é só você colocar um no form. Em tempo de execução, toda vez que você setar a propriedade visible dele para true ele aparece no tray. aí é só configurar aguns eventos e atribuir um popupmenu a ele. Se você não tiver o Delphi 2006 você pode baixar este componente em algum lugar, como no site do torrys por exemplo.

Para o programa ir para o tray em vez de fechar coloque no evento OnClose do form principal

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Action:=canone;
  hide;
  TrayIcon1.Visible:= true;
end;

aí você coloca um botão restaurar num TPopUpMenu associado ao TTrayIcon e no OnClick dele coloque

TrayIcon1.Visible:=false;
Show;

e um botão fechar

Application.Terminate

[GameOver]

Valeu cara!!!!!!!!Brigado