系統(tǒng)托盤的編程

系統(tǒng)托盤的編程

系統(tǒng)托盤的編程

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

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

{自定義消息，當(dāng)小圖標(biāo)捕捉到鼠標(biāo)事件時Windows向回調(diào)函數(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;
//處理托盤圖標(biāo)的右鍵菜單事件
procedure Minimize(var mess:TWMNCLBUTTONDOWN); message WM_NCLBUTTONDOWN;
//窗體最小化時的消息處理
。。。。。。。。

procedure TForm1.FormCreate(Sender: TObject);
begin
//將程序窗口樣式設(shè)為TOOL窗口，避免在任務(wù)欄上出現(xiàn)
SetWindowLong(Application.Handle,GWL_EXSTYLE,WS_EX_TOOLWINDOW);
end;

procedure TForm1.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ù)
MyTrayIcon.uFlags := NIF_ICON or NIF_TIP or NIF_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)程序啟動時就最小化在托盤區(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 : //鼠標(biāo)右鍵：彈出菜單

下一頁

【系統(tǒng)托盤的編程】相關(guān)文章：

探索結(jié)對編程03-04

Visual C＃的Excel編程03-19

ASP 3.0高級編程（一）03-18

LabVIEW與MATLAB混合編程03-19

DOS下DSP播音的編程03-03

ASP 3.0高級編程（二）01-07

JDBC數(shù)據(jù)庫編程的研究03-15

JTAG口及其對Flash的在線編程03-19

AVR單片機(jī)GCC編程03-18

PDA/手機(jī)編程―――益智小游戲設(shè)計03-08