este codigo me lo pasaron a mi hace rato aunq no lo probe del todo
pero parece q lo q hace es q cuando cierras el programa te lo deja en el systray y lo puedes volver a abrir o algo asi.
algunas cosas estan en ingles porq asi me lopasaron.
haber si lo pueds hacer correr ,creo q es lo q quieres
In your uses statement, include 'shellapi'.
Create a program constant like this:
WM_NOTIFYICON = WM_USER+333;
At the end of your procedure listing for your form include these lines:
private
{ Private declarations }
tnid: TNotifyIconData;
HMainIcon: HICON;
procedure CMClickIcon(var msg: TMessage); message WM_NOTIFYICON;
The actual procedure looks like this:
procedure TForm.CMClickIcon(var msg: TMessage);
begin
case msg.lparam of
WM_LBUTTONDBLCLK, WM_LBUTTONDOWN : Show;
end;
end;
In your TForm.FormCreate procedure include these lines:
HMainIcon := LoadIcon(MainInstance, 'MAINICON');
Shell_NotifyIcon(NIM_DELETE, @tnid);
tnid.cbSize := sizeof(TNotifyIconData);
tnid.Wnd := handle;
tnid.uID := 123;
tnid.uFlags := NIF_MESSAGE or NIF_ICON or NIF_TIP;
tnid.uCallbackMessage := WM_NOTIFYICON;
tnid.hIcon := HMainIcon;
tnid.szTip := 'Volume Control';
Shell_NotifyIcon(NIM_ADD, @tnid);
In your TForm.FormClose procedure add these lines:
Action := caNone;
Hide;