unit1.cpp

制作托盘鼠标

//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "Unit1.h"

//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
 ico1=new TIcon();
 TNotifyIconData IconData;
 ico1->LoadFromFile("14.ico");
 IconData.cbSize=sizeof(IconData);
 IconData.hWnd=Handle;
 IconData.uID=100;
 IconData.hIcon=ico1->Handle;
 IconData.uFlags=NIF_ICON|NIF_MESSAGE|NIF_TIP;
 IconData.uCallbackMessage=WM_USER+100;
 strcpy(IconData.szTip,"托盘图标示例");
 Shell_NotifyIcon(NIM_ADD,&IconData);


}
//---------------------------------------------------------------------------
__fastcall TForm1::~TForm1()
{
 TNotifyIconData IconData;
 IconData.cbSize=sizeof(IconData);
 IconData.hWnd=Handle;
 IconData.uID=100;
 Shell_NotifyIcon(NIM_DELETE,&IconData);
 delete ico1;
}
//--------------------------------------------------
void __fastcall TForm1::IconClick(TMessage& Msg)
{
 TPoint po;
 if(Msg.LParam==WM_LBUTTONDBLCLK)
 {
Application->Restore();
 }
 if(Msg.LParam==WM_RBUTTONDOWN)
 {
 GetCursorPos(&po);
 PopupMenu1->Popup(po.x,po.y);
 }
}
void __fastcall TForm1::N3Click(TObject *Sender)
{
Application->Terminate();
}
//---------------------------------------------------------------------------