System Tray

← →
Vadim (2003-09-13 19:05) [0]

Как добавить значок программы в System Tray?

← →
panov © (2003-09-13 19:22) [1]

Удалено модератором
Примечание: Offtopic

← →
panov © (2003-09-13 19:29) [2]

http://www.delphimaster.ru/faq.shtml

← →
Grouzd[E]v © (2003-09-13 19:37) [3]

Поковыряйся мобильничков в здешней кладовке - я нашел.
Называлось это Krey Media, да и других компонентов найти можно.

← →
Ig (2003-09-13 21:11) [4]

protected
Procedure ControlWindow(Var Msg:TMessage); message WM_SYSCOMMAND;
Procedure IconMouse(var Msg : TMessage); message WM_USER+1;

Procedure Ic(n:Integer;Icon:TIcon);
Var Nim:TNotifyIconData;
begin
With Nim do
Begin
cbSize:=SizeOf(Nim);
Wnd:=SDA.Handle;
uID:=1;
uFlags:=NIF_ICON or NIF_MESSAGE or NIF_TIP;
hicon:=Icon.Handle;
uCallbackMessage:=wm_user+1;
szTip:="Hint";
End;
Case n OF
1: Shell_NotifyIcon(Nim_Add,@Nim);
2: Shell_NotifyIcon(Nim_Delete,@Nim);
3: Shell_NotifyIcon(Nim_Modify,@Nim);
End;
end;

Procedure TSDA.ControlWindow(Var Msg:TMessage);
var i:integer;
Begin
IF Msg.WParam=SC_MINIMIZE then
Begin
Ic(1,Application.Icon);
ShowWindow(Handle,SW_HIDE);
ShowWindow(Application.Handle,SW_HIDE);
End else inherited;
If (Msg.WParam=SC_CLOSE) then
Begin
Ic(2,Application.Icon);
Inherited
End

End;

procedure TSDA.IconMouse(var Msg:TMessage);
Var p:tpoint; i:integer;
begin
GetCursorPos(p);
Case Msg.LParam OF
WM_LBUTTONDBLCLK:
Begin
Ic(3,Application.Icon);
ShowWindow(Handle,SW_SHOWNORMAL);
SetForegroundWindow(Handle);
ShowWindow(Application.Handle,SW_SHOWNORMAL);
WM_RBUTTONUP:
Begin
SetForegroundWindow(Handle);
PopupMenu1.Popup(screen.Width,screen.Height-32);
PostMessage(Handle,WM_NULL,0,0)
end;
End;
end;

Автора точно не помню(вроде Song), но мне помогло :)
ЗЫ Или зайди на Delphibase.ru там это точно есть +Коментарии.

System Tray Найти похожие ветки