系统托盘图标例子程序

inherited;ifmessage.LParam=wm_rbuttonupthenbegin//用鼠标右键点击图标getcursorpos(mousept);//获取光标位置popupmenu1.popup(mousept.x,mousept.y);//在光标位置弹出选单end;ifmessage.LParam=wm_lbuttonupthenbegin//用鼠标左键点击图标//显示应用程序窗口ShowWindow(Handle,SW_SHOW);//在任务栏上显示应用程序窗口ShowWindow(Appli