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.

去下载一个Delphi下竖手的系统托盘控件，TrayIcon，安装后，将该控件拖到窗体上，稍稍设余姿嫌置一下就好。

随便下载一个For Delphi版本的就好了，然后下载下来的安装文件中应该有扩展名为.dpk的文件，双击该文件，在随后画面中点击install应册铅该就好了。

---