说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

在Window右下角的添加图标-Delphi资料

HTML文档下载 WORD文档下载 PDF文档下载
在Window右下角的添加图标-Delphi资料

我们在诸如金山词霸的软件中看到,应用程序在任务栏的右下角加上了一个图标,当用鼠标左击和右击该图标时,会出现不同的菜单,这种程序是怎么实现的呢?

其实这是比较简单的,只要我们知道Window的一些数据结构及相关的API函数就可以实现了。本人曾在VC及Delphi中都实现过这种程序,以下我的一些心得,希望对大家有借鉴作用。

在Delphi中的实现:

请New一个Form并加入以下的代码:

请New一个Form 并加入以下的代码:

unit Unit1;

interface

uses

Windows

Messages

SysUtils

Classes

Graphics

Controls

Forms

Dialogs

shellapi;

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.szTip

strNotifyTip);

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.szTip

strNotifyTip);

Shell_NotifyIcon(NIM_MODIFY

@nid);

在VC里的实现也差不多。你几乎可以完全模仿以上的代码自己实现。

备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘