1、新建一个工程，将工程存到目录D:\BCBTray下，并在这个目录下拷入一个icon图标文件，文件名为Icon1.ico，作为本程序的系统托盘处的图标。
2、在这个工程中再增加一个窗体Form2，要注意的是这个工程中，Form1是启动窗体，它负责系统托盘图标的总控工作，并不负有其它责任。应用程序的主窗口是由Form2 来负责的。在Form1的代码窗Unit1.cpp增加如下代码：
#include "Unit2.h"
3、将Form1的BorderStyle属性设置为bsNone
4、在Form1的OnShow事件写如下代码：
void __fastcall TForm1::FormShow(TObject *Sender)
{
Form1->Width=0;
}
5、在Form1中增加一个PopupMenu1，并为它增加一个子菜单：它的两个菜单条为：显示网址管理专家、退出程序。
为“显示网址管理专家”写如下单击事件：
void __fastcall TForm1::N1Click(TObject *Sender)
{
Form2->Show();
}
为“退出程序”写如下单击事件：
void __fastcall TForm1::N2Click(TObject *Sender)
{
Form1->Close();
}
6、在Form1的代码头文件Unit1.h中的TForm1的类定义的public成员函数中写下如下代码：
__fastcall ~TForm1();
TIcon *MyIcon;
void virtual __fastcall IconClick(TMessage& Msg);
BEGIN_MESSAGE_MAP
MESSAGE_HANDLER(WM_USER+100,TMessage,IconClick)
END_MESSAGE_MAP(TForm)
这样，TForm1的类定义全貌为：
class TForm1 : public TForm
{
__published: // IDE-managed Components
TPopupMenu *PopupMenu1;
TMenuItem *N1;
TMenuItem *N2;
void __fastcall N1Click(TObject *Sender);
void __fastcall N2Click(TObject *Sender);
void __fastcall FormShow(TObject *Sender);
private: // User declarations
public: // User declarations
__fastcall TForm1(TComponent* Owner);
__fastcall ~TForm1();
TIcon *MyIcon;
void virtual __fastcall IconClick(TMessage& Msg);
BEGIN_MESSAGE_MAP
MESSAGE_HANDLER(WM_USER+100,TMessage,IconClick)
END_MESSAGE_MAP(TForm)
};
7、在Unit1.cpp中的窗体的构造函数中写如下代码：
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
MyIcon=new TIcon();
TNotifyIconData IconData;
MyIcon->LoadFromFile("Icon1.ico");
IconData.cbSize=sizeof(IconData);
IconData.hWnd=Handle;
IconData.uID=100;
IconData.hIcon=MyIcon->Handle;
IconData.uFlags=NIF_ICON | NIF_MESSAGE | NIF_TIP;
IconData.uCallbackMessage=WM_USER+100;
strcpy(IconData.szTip,"网址管理专家 单击左键显示窗体");
Shell_NotifyIcon(NIM_ADD,&IconData);
SetWindowLong(Application->Handle,GWL_EXSTYLE,WS_EX_TOOLWINDOW);
}
8、在Unit1.cpp中的窗体的析构函数中写如下代码：
__fastcall TForm1::~TForm1()
{
TNotifyIconData IconData;
IconData.cbSize=sizeof(IconData);
IconData.hWnd=Handle;
IconData.uID=100;
Shell_NotifyIcon(NIM_DELETE,&IconData);
delete MyIcon;
}
9、在Unit1.cpp中写窗体的公用成员函数IconClick代码：
void __fastcall TForm1::IconClick(TMessage& Msg)
{
TPoint po;
if(Msg.LParam==WM_LBUTTONDOWN)
{
Form2->Show();
}
if(Msg.LParam==WM_RBUTTONUP)
{
GetCursorPos(&po);
PopupMenu1->Popup(po.x,po.y);
}
}
10、由于Shell_NotifyIcon函数定义在ShellAPI.hpp文件中所以请将下面一句写到Unit1.h中：
#include <shellapi.hpp>
11、现在运行程序，系统图标就写到托盘中去了。
正文
