Как свернуть программу в трей

[fossil]

Как можно сделать чтобы при запуске программа добавляла иконку в трей и при нажатии "Свернуть" сворачивалась в трей?

[JCooper]

fossil
Shell_NotifyIcon

[fossil]

Ну я в курсе. А где и как им пользоваться?
Я находил много статей и исходников по этой теме, но ничего непонятно.. Я вообще так понял что Shell_NotifyIcon это какой-то компонент, но где его брать незнаю. Объясните может на примере каком-нибдуь?

[JCooper]

fossil это апи функция, для ее использования необходимо включить в программу модуль ShellAPI.pas (если пишете на Делфи). Прошу прощения но я сейчас убегаю, подробнее об использовании ф-ции напишу чуть позже :)

[fossil]

хе-хе-хе :) ок..
Уже по этой небольшой статье появились вопросы ;)
Как включить в прогу модуль ShellAPI.pas?
Пишу на Delphi 7

[[mzd]]

В разделе interface подключаешь uses ShellAPI

[fossil]

а потом?

[[mzd]]

type TForm1 = class(TForm)
...
protected
PROCEDURE MYWMNOTIFYICON(VAR Message: TMessage); MESSAGE MYWM_NOTIFYICON;
...
FUNCTION MyTaskBarAddIcon(wnd: HWND; uID: integer; Icon: HICON; S: STRING): Boolean;
VAR tnid: TNOTIFYICONDATA;
BEGIN
 tnid.cbSize := SizeOf(TNOTIFYICONDATA);
 tnid.Wnd := wnd;
 tnid.uID := uID;
 tnid.uFlags := NIF_MESSAGE OR NIF_ICON OR NIF_TIP;
 tnid.uCallbackMessage := MYWM_NOTIFYICON;
 tnid.hIcon := Icon;
 Lstrcpyn(tnid.szTip, PChar(S), SizeOf(tnid.szTip));
 Result := Shell_NotifyIcon(NIM_ADD, @tnid);
END;

FUNCTION MyTaskBarDeleteIcon(wnd: HWND; uID: integer): Boolean;
VAR tnid: TNOTIFYICONDATA;
BEGIN
 tnid.cbSize := SizeOf(TNOTIFYICONDATA);
 tnid.Wnd := wnd;
 tnid.uID := uID;
 Result := Shell_NotifyIcon(NIM_DELETE, @tnid);
END;

FUNCTION MyTaskBarModifyIcon(wnd: HWND; uID: integer; Icon: HICON; S: STRING): Boolean;
VAR tnid: TNOTIFYICONDATA;
BEGIN
 tnid.cbSize := SizeOf(TNOTIFYICONDATA);
 tnid.Wnd := wnd;
 tnid.uID := uID;
 tnid.uFlags := NIF_MESSAGE OR NIF_ICON OR NIF_TIP;
 tnid.uCallbackMessage := MYWM_NOTIFYICON;
 tnid.hIcon := Icon;
 Lstrcpyn(tnid.szTip, PChar(S), SizeOf(tnid.szTip));
 Result := Shell_NotifyIcon(NIM_MODIFY, @tnid);
END;
...
procedure TForm1.FormCreate(Sender: TObject);
begin
...
MyTaskBarAddIcon(Handle, MyIconID, Application.Icon.Handle, 'Имя проги');
...
end;
...
PROCEDURE TForm1.MYWMNOTIFYICON(VAR Message: TMessage);
VAR Cur: TPoint;
BEGIN
 IF Message.WParam = MyIconID THEN
   CASE Message.LParam OF
     WM_RBUTTONDOWN:
     BEGIN
       GetCursorPos(Cur);
       PopupMenu1.Popup(Cur.X, Cur.Y);
     END;
     WM_LBUTTONUP:
      BEGIN
       GetCursorPos(Cur);
       PopupMenu1.Popup(Cur.X, Cur.Y);
     END;
   END;
END;

[fossil]

Спасибо, но как-то не сразу вылазиет popup?!

Исправлено: fossil, 9:19 15-04-2004