- 相關推薦
系統(tǒng)托盤的編程
托盤消息處理：
在Shell32.DLL動態(tài)鏈接庫中包括一個函數(shù)Shell_NotifyIconA()可通知Windows在任務條右下角加入一個小圖標，可惜該函數(shù)的詳細說明未收入Delphi的幫助文檔中。現(xiàn)將實現(xiàn)例程示范如下：
unit pro2;
interface
uses
。。。, Menus,shellAPI; //TNotifyIconData是定義在shellAPI單元的
{自定義消息，當小圖標捕捉到鼠標事件時Windows向回調函數(shù)發(fā)送此消息}
const WM_MYTRAYICONCALLBACK = WM_USER + 1000 ;
。。。。
private
MyTrayIcon : TNotifyIconData ;
procedure WMMyTrayIconCallBack(Var Msg : TMessage); message WM_MYTRAYICONCALLBACK ;
//托盤消息處理過程
procedure WMCommand(Var msg : TWMCommand); message WM_Command;
//處理托盤圖標的右鍵菜單事件
procedure Minimize(var mess:TWMNCLBUTTONDOWN); message WM_NCLBUTTONDOWN;
//窗體最小化時的消息處理
。。。。。。。。
procedure TForm1.FormCreate(Sender: TObject);
begin
//將程序窗口樣式設為TOOL窗口，避免在任務欄上出現(xiàn)
SetWindowLong(Application.Handle,GWL_EXSTYLE,WS_EX_TOOLWINDOW);
end;
procedure TForm1.FormShow(Sender: TObject);
begin
//設置托盤
Icon.Handle := LoadIcon(Hinstance,'MAINICON');
MyTrayIcon.cbSize := SizeOf(TNotifyIconData);// nid變量的字節(jié)數(shù)
MyTrayIcon.Wnd := Handle ;// 主窗口句柄
MyTrayIcon.uID := 1 ;// 內部標識，可設為任意數(shù)
MyTrayIcon.uFlags := NIF_ICON or NIF_TIP or NIF_MESSAGE ;// 指明哪些字段有效
MyTrayIcon.uCallBackMessage := WM_MYTRAYICONCALLBACK ;//回調函數(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)
procedure TForm1.WMMyTrayIconCallBack(var Msg: TMessage);
var CursorPos : TPoint;
begin
case Msg.LParam of
WM_LBUTTONDBLCLK : //雙擊消息：彈出主窗口
begin
Visible := not Visible ;
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'),'關于....');//在指定的菜單里添加一個菜單項
AppendMenu(pm,0,Ord('B'),'&Exit');
//加入菜單事件---》處理WMCOMMAND消息即可
TrackPopupMenu(pm,Tpm_BottomAlign or Tpm_RightAlign, CursorPos.x, CursorPos.y, 0,handle,nil);
//在圖標上方顯示該彈出式菜單
end ;
end ;
end;
procedure TForm1.WMCommand(var msg : TWMCommand);
begin
Case msg.ItemID of
Ord('A') : showmessage('我的右鍵菜單！');
Ord('B') : Self.close;//關閉程序主窗體
else inherited;
end;
end;
procedure Tform1.Minimize(var mess:TWMNCLBUTTONDOWN);//應用程序最小化消息處理
begin
if Mess.Hittest = htReduce then
Self.Hide
else inherited;
end;
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
var {程序被關閉時通知Windows去掉小圖標}
nid: TNotifyIconData;
begin
nid.cbSize := sizeof(nid); // nid變量的字節(jié)數(shù)
nid.uID := 1; //內部標識，與加入小圖標時的數(shù)一致
nid.Wnd := Handle; //主窗口句柄
Shell_NotifyIcon(NIM_DELETE, @nid); //去掉小圖標
end;