1、用文本工具建立RC文件放在工程目录下，如tray_test.rc，内容如下：

101    ICON    "Aire_095.ico"
102    ICON    "Aire_063.ico"

用lazarus的lazarusppbini386-win32中的Windres生成RES文件：

windres -i tray_test.rc -o tray_test.res

2、从组件栏的Additional中选择TTrayIcon，放在Form上，并修改主Main的Form的代码：

在Interface区添加：

{$ifdef win32}
  {$R tray_test.res}
{$endif}

在Uses区添加：

//contains LOADICON（针对Windows平台）

Jwawinuser

3、在运用TrayIcon的按钮中添加实效代码：

procedure Form1.Button1Click(Sender: TObject);
const
  IDI_ICON1=101;
begin
{$ifdef win32}
  SystrayIcon.Icon.Handle := LoadIcon(hInstance,MAKEINTRESOURCE(IDI_ICON1));
{$else}
  SystrayIcon.Icon.LoadFromFile(‘/path_to_icon/icon.ico’);
{$endif}

  SystrayIcon.ShowHint := True;
  SystrayIcon.Hint := ‘my tool tip’;
  SystrayIcon.PopUpMenu := MyPopUpMenu;
  SystrayIcon.Show;
end;

[From]半步: 电脑工程