Jak dodać ikonę programu do Traya. ( ikonka obok zegara Windows )

Oto kod. Aha, dodaj do listy modułów słowo "ShellAPI".

1. Do sekcji private dodaj takie pozycje:

IconNotifyData: TNotifyIconData;
procedure WndProc(var Msg: TMessage); override;

1. Teraz w OnCreate wpisz taki oto kod:

  with IconNotifyData do 
  begin
    hIcon := Application.Icon.Handle;
    uCallbackMessage := WM_USER + 1;
    cbSize := SizeOf(IconNotifyData);
    Wnd := Handle;
    uID := 100;
    uFlags := NIF_MESSAGE + NIF_ICON+NIF_TIP;
  end;
  // Kopiujemy tytuł aplikacji jako "dymek"
  StrPCopy(IconNotifyData.szTip, Application.Title);

  // Dodajemy ikonę do traya
  Shell_NotifyIcon(NIM_ADD, @IconNotifyData);

Następnie uzupełnij procedurę "WndProc" w taki oto sposób:

procedure TMainFrm.WndProc(var Msg: TMessage);
var
  p: TPoint;
begin
{
Ta procedura służy do przechwytywania komunikatów po naciśnięciu przycisku w obrębie ikony.
}
//Jezeli nacisnieto prawym przyciskiem myszy
  if (Msg.Msg=WM_USER+1) and (Msg.lParam = WM_RBUTTONDOWN) then
  begin
//Nastepuje pobranie pozycji kursora myszki
    GetCursorPos(p);
//i wyswietlenie menu 
    TrayMenu.Popup(p.x, p.y);
  end;
//Jezeli nacisnieto lewy przycisk nastepuje wyswietlenie //formy
  if Msg.LParam = WM_LBUTTONDOWN then
    MainFrm.Show;

  inherited;
end;

Dodatkowo przy zamykaniu programu możesz dopisać linie:

Shell_NotifyIcon(NIM_DELETE, @IconNotifyData);

Usuwa ona ikonę z Tray'a.

Zobacz też:

• ShellApi