delphi 托盘程序问题

在delphi的Additional里面有一个宴粗渣TrayIcon组件，可以轻松实现这个功能：新建工程，添加一个TrayIcon组件。代码：

uses shellapiprocedure TForm1.FormCreate(Sender: TObject)

begin

SetWindowLong(Handle,GWL_EXSTYLE,WS_EX_TOOLWINDOW)//在任务栏隐藏凳嫌程序

TrayIcon1.Visible:=True//在托盘显示程序图标

TrayIcon1.Hint:='托盘程晌悄序'//提示信息

end

end.

托盘区域这个TTBButton结构的dwData实际上是指向用于接收橡伍对应图标的通知消息的窗口句柄（含扮即NOTIFYICONDATA结构的hWnd）的指针梁老或，根据此句柄就可以得到PID了！

---