在Window右下角的添加图标我们在诸如金山词霸的软件中看到,应用程序在任务栏的右下角加上了一个图标,当用鼠标左击和右击该图标时,会出现不同的菜单,这种程序是怎么实现的呢?
其实这是比较简单的,只要我们知道Window的一些数据结构及相关的API函数就可以实现了。本人曾在VC及Delphi中都实现过这种程序,以下我的一些心得,希望对大家有借鉴作用。
在Delphi中的实现:
请New一个Form并加入以下的代码:
请New一个Form 并加入以下的代码:
unit Unit1;
interface
uses
WindowsMessagesSysUtilsClassesGraphicsControlsFormsDialogsshellapi;
const
WM_MYNOTIFY = WM_USER + 1000 ;//消息
strNotifyTip='hello';//提示
ID_MAIN = 100 ; // 定义图标的ID
type
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
Function AddIcon(hwnd : HWND):Boolean ;
Function RemoveIcon(hwnd:HWND):Boolean ;
Procedure MyNotify(var Msg:TMessage);message WM_MYNOTIFY;
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.FormCreate(Sender: TObject);
begin
AddIcon(handle);
end;
//以下函数加入图标,可在程序初始化时加入。
Function TForm1.AddIcon(hwnd : HWND):Boolean ;
var
nid : NOTIFYICONDATA ;
begin
nid.cbSize := sizeof(NOTIFYICONDATA);
nid.Wnd := hwnd;
nid.uID := ID_MAIN;
nid.uFlags := NIF_MESSAGE or NIF_ICON or NIF_TIP;
nid.uCallbackMessage := WM_MYNOTIFY;
nid.hIcon := LoadIcon(hInstance'MAINICON');
strCopy(nid.szTipstrNotifyTip);
AddIcon := Shell_NotifyIcon(NIM_ADD@nid);
end ;
Function TForm1.RemoveIcon(hwnd:HWND):Boolean ;
var
nid : NOTIFYICONDATA;
begin
nid.cbSize := sizeof(NOTIFYICONDATA);
nid.Wnd := hwnd;
nid.uID := ID_MAIN;
nid.uFlags := 0;
RemoveIcon := Shell_NotifyIcon(NIM_DELETE@nid);
end ;procedure TForm1.FormDestroy(Sender: TObject);
begin
RemoveIcon(handle);
end;Procedure TForm1.MyNotify(var Msg:TMessage);
begin
case msg.LParam of
WM_LBUTTONDOWN : begin
Application.MessageBox('Left button click ''My Notify'MB_OK);
end;
end;
end;
end.你还可以改变图标。代码如下:nid.cbSize := sizeof(NOTIFYICONDATA);
nid.Wnd := hwnd;
nid.uID := ID_MAIN;
nid.uFlags := NIF_MESSAGE or NIF_ICON or NIF_TIP;
nid.uCallbackMessage := WM_TRAYNOTIFY;
nid.hIcon := 你的图标。
strCopy(nid.szTipstrNotifyTip);
Shell_NotifyIcon(NIM_MODIFY@nid);或者你可以下载托盘控件,那样就像使用TLabel和TEdit控件一样简单

解决方案 »

  1.   

    //自己添加的最小化按钮被按下时缩小到任务栏。
    var NT: TNOTIFYICONDATA;
    begin
        hide;
        ZoomEffect(Self, zaMinimize);
        with NT do begin
            cbsize := sizeof(TNOTIFYICONDATA);
            Wnd    := Handle;
            UID    := 1001;
            uFlags := NIF_MESSAGE or NIF_ICON or NIF_TIP;
            uCallbackMessage := WM_TRAYICON;
            hIcon  := Application.Icon.Handle;
            szTip  := 'chick me!';
        end;
        shell_NotifyIcon(NIM_ADD,@NT);
    end;//退出程序,撤销任务栏图标。
    var  nid: TNotifyIconData;
    begin
       nid.cbSize := sizeof(nid); // nid变量的字节数
       nid.uID := 1001; //内部标识,与加入小图标时的数一致
       nid.Wnd := Handle; //主窗口句柄
       Shell_NotifyIcon(NIM_DELETE, @nid); //去掉小图标   Application.Terminate;
    end;
      

  2.   

    谢谢:)
    btw:
    控件哪有的下?