導(dǎo)語：計算機畢業(yè)論文:系統(tǒng)托盤的編程一文來源于網(wǎng)友上傳，不代表本站觀點，若需要原創(chuàng)文章可咨詢客服老師，歡迎參考。

托盤消息處理：

在Shell32.DLL動態(tài)鏈接庫中包括一個函數(shù)Shell_NotifyIconA()可通知Windows在任務(wù)條右下角加入一個小圖標，可惜該函數(shù)的詳細說明未收入Delphi的幫助文檔中?，F(xiàn)將實現(xiàn)例程示范如下：

unitpro2;

interface

uses

。。。,Menus,shellAPI;//TNotifyIconData是定義在shellAPI單元的

{自定義消息，當小圖標捕捉到鼠標事件時Windows向回調(diào)函數(shù)發(fā)送此消息}

constWM_MYTRAYICONCALLBACK=WM_USER+1000;

。。。。

private

MyTrayIcon:TNotifyIconData;

procedureWMMyTrayIconCallBack(VarMsg:TMessage);messageWM_MYTRAYICONCALLBACK;

//托盤消息處理過程

procedureWMCommand(Varmsg:TWMCommand);messageWM_Command;

//處理托盤圖標的右鍵菜單事件

procedureMinimize(varmess:TWMNCLBUTTONDOWN);messageWM_NCLBUTTONDOWN;

//窗體最小化時的消息處理

。。。。。。。。

procedureTForm1.FormCreate(Sender:TObject);

begin

//將程序窗口樣式設(shè)為TOOL窗口，避免在任務(wù)欄上出現(xiàn)

SetWindowLong(Application.Handle,GWL_EXSTYLE,WS_EX_TOOLWINDOW);

end;

procedureTForm1.FormShow(Sender:TObject);

begin

//設(shè)置托盤

Icon.Handle:=LoadIcon(Hinstance,''''MAINICON'''');

MyTrayIcon.cbSize:=SizeOf(TNotifyIconData);//nid變量的字節(jié)數(shù)

MyTrayIcon.Wnd:=Handle;//主窗口句柄

MyTrayIcon.uID:=1;//內(nèi)部標識，可設(shè)為任意數(shù)

MyTrayIcon.uFlags:=NIF_ICONorNIF_TIPorNIF_MESSAGE;//指明哪些字段有效

MyTrayIcon.uCallBackMessage:=WM_MYTRAYICONCALLBACK;//回調(diào)函數(shù)消息，將自定義托盤消息傳遞進去

MyTrayIcon.hIcon:=Application.Icon.Handle;//要加入的圖標句柄，可任意指定

StrCopy(MyTrayIcon.szTip,PChar(Caption));

Shell_NotifyIcon(NIM_ADD,@MyTrayIcon);

ShowWindow(Handle,sw_Hide);

//Visible:=False;//當程序啟動時就最小化在托盤區(qū)即Form.Create時啟用此語句

Application.ShowMainForm:=False;

SetForegroundWindow(Application.Handle);

end;

////消息過程實現(xiàn)

procedureTForm1.WMMyTrayIconCallBack(varMsg:TMessage);

varCursorPos:TPoint;

begin

caseMsg.LParamof

WM_LBUTTONDBLCLK://雙擊消息：彈出主窗口

begin

Visible:=notVisible;

Application.ShowMainForm:=Visible;

SetForegroundWindow(Application.Handle);

end;

WM_RBUTTONDOWN://鼠標右鍵：彈出菜單

begin

GetCursorPos(CursorPos);

{Popupmenu1.Popup(CursorPos.X,CursorPos.Y);

popupmen1里面就可以加入顯示主窗口、退出等功能。這個右鍵菜單可以是靜態(tài)的，如上面一句來彈出；也可以動態(tài)建立，如下面所示的方法：}

pm:=createpopupmenu;//建立一個Hmenu,pm:hmenu;

AppendMenu(pm,0,ord(''''A''''),''''關(guān)于....'''');//在指定的菜單里添加一個菜單項

AppendMenu(pm,0,Ord(''''B''''),''''&Exit'''');

//加入菜單事件---》處理WMCOMMAND消息即可

TrackPopupMenu(pm,Tpm_BottomAlignorTpm_RightAlign,CursorPos.x,CursorPos.y,0,handle,nil);

//在圖標上方顯示該彈出式菜單

end;

end;

end;

procedureTForm1.WMCommand(varmsg:TWMCommand);

begin

Casemsg.ItemIDof

Ord(''''A''''):showmessage(''''我的右鍵菜單！'''');

Ord(''''B''''):Self.close;//關(guān)閉程序主窗體

elseinherited;

end;

end;

procedureTform1.Minimize(varmess:TWMNCLBUTTONDOWN);//應(yīng)用程序最小化消息處理

begin

ifMess.Hittest=htReducethen

Self.Hide

elseinherited;

end;

procedureTForm1.FormClose(Sender:TObject;varAction:TCloseAction);

var{程序被關(guān)閉時通知Windows去掉小圖標}

nid:TNotifyIconData;

begin

nid.cbSize:=sizeof(nid);//nid變量的字節(jié)數(shù)

nid.uID:=1;//內(nèi)部標識，與加入小圖標時的數(shù)一致

nid.Wnd:=Handle;//主窗口句柄

Shell_NotifyIcon(NIM_DELETE,@nid);//去掉小圖標

end;