科技行者

行者学院 转型私董会 科技行者专题报道 网红大战科技行者

知识库

知识库 安全导航

至顶网软件频道基础软件在Window右下角的添加图标

在Window右下角的添加图标

  • 扫一扫
    分享文章到微信

  • 扫一扫
    关注官方公众号
    至顶头条

其实这是比较简单的,只要我们知道Window的一些数据结构及相关的API函数就可以实现了。

作者:佚名 来源:逸仙时空 2007年11月2日

关键字: Windows 右下角 添加图标

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

  其实这是比较简单的,只要我们知道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里的实现也差不多。你几乎可以完全模仿以上的代码自己实现。

查看本文来源

    • 评论
    • 分享微博
    • 分享邮件
    邮件订阅

    如果您非常迫切的想了解IT领域最新产品与技术信息,那么订阅至顶网技术邮件将是您的最佳途径之一。

    重磅专题
    往期文章
    最新文章