托盘编程实战演练的

三．双击主窗体，进入FormCreate的代码区域：

rmCreate(Sender:TObject);

Begin

//NotifyIcon为全局变量，在程序的开头已经定义了

with NotifyIcon do

begin

cbSize:=SizeOf(TNotifyIconData);

Wnd:=Handle; //指向当前窗体Form1的句柄

uID:=1;

uFlags:=NIM_ICON or NIM_MESSAGE or NIM_TIP;

uCallBackMessage:=WM_NID;

hIcon:=ndle;

szTip:=”张家恶少”；

end;.

//把设置好的变量NotifyIcon加入到系统中以便处理

Shell_NotifyIcon(NIM_ADD,@NotifyIcon);

净利润为负3243.88万元 End;

四．接下来就是定义一个消息处理函数：系统给窗体发来了一个消息，就由下面这个函数来处理。每个消息处理函数都是处理某一类消息的，大家仔细地看看下面函数体的定义和一般的函数定义有什么不一样：消息处理函数要在后面加上消息的名称，这样当系统发来WM_NID消息时，就是自动触发WMNID消息处理函数。

procedure WMNID(var msg:TMessage);message WM_NID;

begin

case aram of

WM_LBUTTONUp; sible:=not sible;

WM_RBUTTONUP: ShowMessage(‘您点击的是右键’);

End;

End;

好了，一个最简单的程序诞生了，大家自己设置好自己喜欢的图标.

Project-Options,选中Application页面，在Icon项中加载自己喜欢的图标，这样程序运行时，在任务栏里显示的就是你喜欢的图标了。当你单击图标时，窗体Form1会在可见与不可见之间切换，也就是说单击一下显示，再单击一下又隐藏。当你右击图标的时候会弹出一条消息：“你点击的是右键”。

五．最后要记住在关闭应用程序的时候要释放掉建立的托盘程序，否则会占用系统资源。

rmDestroy(Sender:TObject);

Begin

Shell_NotifyIcon(NIM_DELETE,@NotifyIcon);

End;

毕业快半年了，很多东西在学校总理解不了，认识不够深刻；出到社会，接触了不少道中朋友，受益非浅，每有心得体会，总想写成文字，一来总结自己学的东西，二来和大家共同交流。查看本文来源

昆明哪里治疗白癜风
脑积水
痛风关节炎怎么治疗