計(jì)算機(jī)畢業(yè)論文:系統(tǒng)托盤的編程

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

托盤消息處理：

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

unitpro2;

interface

uses

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

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

constWM_MYTRAYICONCALLBACK=WM_USER+1000;

。。。。

private

MyTrayIcon:TNotifyIconData;

procedureWMMyTrayIconCallBack(VarMsg:TMessage);messageWM_MYTRAYICONCALLBACK;

//托盤消息處理過程

procedureWMCommand(Varmsg:TWMCommand);messageWM_Command;

//處理托盤圖標(biāo)的右鍵菜單事件

procedureMinimize(varmess:TWMNCLBUTTONDOWN);messageWM_NCLBUTTONDOWN;

//窗體最小化時(shí)的消息處理

。。。。。。。。

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)部標(biāo)識(shí)，可設(shè)為任意數(shù)

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

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

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

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

Shell_NotifyIcon(NIM_ADD,@MyTrayIcon);

ShowWindow(Handle,sw_Hide);

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

Application.ShowMainForm:=False;

SetForegroundWindow(Application.Handle);

end;

////消息過程實(shí)現(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://鼠標(biāo)右鍵：彈出菜單

begin

GetCursorPos(CursorPos);

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

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

pm:=createpopupmenu;//建立一個(gè)Hmenu,pm:hmenu;

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

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

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

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

//在圖標(biāo)上方顯示該彈出式菜單

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)閉時(shí)通知Windows去掉小圖標(biāo)}

nid:TNotifyIconData;

begin

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

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

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

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

end;