delphi篇之写托盘图标


本文整理自网络,侵删。

  

unit Unit1;

interface

uses
Windows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,
Dialogs,ShellApi,StdCtrls;

const
//声明常量
WM_MYNOTIFY=WM_USER+1000;//消息
ID_MAIN=100;//定义图标的ID

type
TForm1=class(TForm)
Button1: TButton;
Button2: TButton;

popupmenu1:TPopupmenu;
procedure FormCreate(Sender:TObject);
procedure FormClose(Sender: TObject;var Action: TCloseAction);
//声明私有函数
Function AddIcon(hwnd: HWND):Boolean;
Function RemoveIcon(hwnd: HWND):Boolean;
Procedure MyNotify(var Msg: TMessage);message WM_MYNOTIFY;

private
{Privatedeclarations}
ExitApp:Boolean;
public
{Publicdeclarations}
end;

var
Form1:TForm1;

implementation

{$R *.dfm}

//函数实现部分
Function TForm1.AddIcon(hwnd:HWND):Boolean;
var
nid:NOTIFYICONDATA;//系统消息对象
begin
nid.cbSize:=sizeof(NOTIFYICONDATA);//对象存储大小
nid.Wnd:=hwnd;//消息对象句柄为窗口句柄
nid.uID:=ID_MAIN;//图标的ID号
nid.uFlags:=7; //NIF_MESSAGE or NIF_ICON or NIF_TIP;//响应的事件
nid.uCallbackMessage:=WM_MYNOTIFY;//返回信息
nid.hIcon:=Application.Icon.Handle;//图标
strCopy(nid.szTip,'hello');//转换字符串格式
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.MyNotify(var Msg:TMessage);
var
mousept: TPoint;
begin
if frm_login.Visible=false then
begin
case Msg.LParam of
WM_LBUTTONDBLCLK:   //鼠标左键按下WM_LBUTTONDOWN,左键双击WM_LBUTTONDBLCLK,左键弹起WM_LBUTTONUP,右键弹起WM_RBUTTONUP
begin
ShowWindow(Handle, SW_SHOW);
ShowWindow(Application.handle, SW_SHOW);
SetWindowLong(Application.Handle, GWL_EXSTYLE,
not (GetWindowLong(Application.handle, GWL_EXSTYLE)
or WS_EX_TOOLWINDOW AND NOT WS_EX_APPWINDOW));
end;
end;
case Msg.LParam of
WM_RBUTTONUP:
begin
GetCursorPos(mousept);
Form1.popupmenu1.popup(mousept.x, mousept.y);
end;
end;
end;
end;

procedure TForm1.FormCreate(Sender:TObject);
begin
ExitApp:=False;
SetWindowLong(application.handle,gwl_exstyle,ws_ex_toolwindow);
AddIcon(handle);//添加图标
end;

procedure TForm1.FormClose(Sender: TObject;var Action: TCloseAction);
begin
if ExitApp then
Action:= caFree
else
Action:= caNone;

//隐藏窗体.程序并没有退出
ShowWindow(Handle, SW_HIDE);
ShowWindow(Application.Handle, SW_HIDE);
SetWindowLong(Application.Handle, GWL_EXSTYLE,
GetWindowLong(Application.handle, GWL_EXSTYLE)
or WS_EX_TOOLWINDOW AND NOT WS_EX_APPWINDOW);
end;


相关阅读 >>

Delphi 判断字符是否是数字

Delphi system 中的数学函数

Delphi format中的换行符号是什么

Delphi tnethttpclient演示

Delphi 掌控pagecontrol中的右上方的左右箭头事件

Delphi tadocommand 中文使用说明

Delphi 让scrollbox响应鼠标滚轮事件

Delphi 方便的文本文件操作(text)

Delphi编程获取系统当前进程、窗口句柄、文件属性

Delphi 根据字符串找到函数并执行

更多相关阅读请进入《Delphi》频道 >>



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...

    正在狠努力加载,请稍候...