Shellapi 托盘程序完整版本

//托盘程序完整版本
{
需要控件
ImageList1
PopupMenu1

其他:2个Icon图标
}
uses Shellapi;{引入Shellapi}

{在Interface的uses下面定义}
Const
My_IconEvent = WM_USER + 1000;

private
{ Private declarations }
myIcon:TNotifyIcondata;
NormalIcon,DisableIcon:Ticon;
procedure IconOnClick(Var msg:TMessage);
Message My_IconEvent;

procedure TForm1.FormCreate(Sender: TObject);
begin
NormalIcon:=TIcon.Create; {创建NormalIcon图标}
DisableIcon:=TIcon.Create ; {创建DisableIcon图标}
ImageList1.GetIcon(0,NormalIcon); {创建图标1}
ImageList1.GetIcon(1,DisableIcon); {创建图标2}
myIcon.cbSize:=Sizeof(TNotifyIcondata);
myIcon.wnd:=handle;
myIcon.uID:=1;
myIcon.uFlags:=nif_Message or nif_tip or nif_Icon;
myIcon.uCallbackMessage:=My_IconEvent;
myIcon.Sztip:='鼠标放在图标上的提示信息'; {鼠标放在图标上 的 提示信息}
myIcon.hIcon:=NormalIcon.handle; {这具是默认图标显示}
Shell_NotifyIcon(nim_add,@myIcon); {这具是默认图标显示}
end;

procedure TForm1.IconOnClick(Var msg:TMessage);
Var
Mousepos:Tpoint;
begin
Case Msg.LParam of
wm_Lbuttonup: begin {左键单击图标显示主窗体}
ShowWindow(Self.Handle,SW_SHOW);{窗体的显示位置会出现一些问题}
end;
wm_Rbuttonup: begin {右键单击图标显示参数菜单}
GetCursorpos(Mousepos);
PopupMenu1.Popup(Mousepos.X,Mousepos.Y);
end;
end;
end;

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
if (Application.MessageBox('确定要退出该监测系统吗？','警示',MB_YESNO or MB_ICONINFORMATION)= IDYES) then
begin
Shell_NotifyIcon(nim_delete,@myIcon); {程序退出时会迅速释放图标}
NormalIcon.Free;
DisableIcon.Free;
CanClose:=True;
end
else CanClose:=False;
end;

procedure TForm1.N1Click(Sender: TObject);
begin
ShowWindow(Self.Handle,SW_SHOW);
end;

procedure TForm1.N21Click(Sender: TObject);
begin
myIcon.hIcon:=NormalIcon.handle;{DisableIcon图标显示}
Shell_NotifyIcon(nim_modify,@myIcon);
end;

procedure TForm1.N2Click(Sender: TObject);
begin
myIcon.hIcon:=DisableIcon.handle; {NormalIcon图标显示}
Shell_NotifyIcon(nim_modify,@myIcon);
end;

procedure TForm1.Exit1Click(Sender: TObject);
begin
Close;
end;