请问如果我的电脑下的状太栏中有一图标怎么做? (200分)

  • 主题发起人 阿牛牛
  • 开始时间

阿牛牛

Unregistered / Unconfirmed
GUEST, unregistred user!
怎么做呢谢
 
没明白@_@
 
你是指的系统托盘图标吗?
 
tryicon 控件
 
API函数

Shell_NotifyIcon(dwMessage,lpData)

用于控制托盘图标
在Delphi中引用时要引用ShellAPI单元

dwMessage:
NIM_ADD: 创建图标
NIM_DELETE 删除图标

lpData
指向一个NOTIFYICONDATAA类型变量的指针

NOTIFYICONDATAA:
.cbSize
.Wnd 窗口句柄
.uID
.uFlags NIF_ICON + NIF_MESSAGE + NIF_TIP
.uCallbackMessage 消息(一般自定义)
.szTip Hint,提示
.hIcon 图标,Hicon类型,即一个Icon的句柄

例如:(delphi)
var
NIM_Data: NOTIFYICONDATAA;
const
WM_TRAYNOTIFY: WM_User+100;
begin
NIM_Data.cbSize := sizeof(NIM_Data);
NIM_Data.Wnd := Self.Handle;
NIM_Data.uID := 100;
NIM_Data.uFlags := NIF_ICON + NIF_MESSAGE + NIF_TIP;
NIM_Data.uCallbackMessage := WM_TRAYNOTIFY;
NIM_Data.szTip := '资料管理';
NIM_Data.hIcon := LoadIcon(hInstance,'SHOW_ICON');
Shell_NotifyIconA(NIM_ADD,@NIM_Data);
end;
 
用控件很好呀,TrayIcon
搜一下,很多的!
 
RXtryicon控件!如果是程序图标可在:
projecg->opeions->application->load icon 改变图标
 
不用控件也可以,自己搜索一下。
可参看下面网址
http://www.5xsoft.com/data/200109/2509191201.htm
 
RXtryicon控件,非常好用的。我这里有,想要的话可以给你发一个
 
http://coldease.myetang.com/jiqiao/44.html
 
to 阿牛牛,
留下你的qq,我把源码给你传过去
 
to mashi7822
能够给我一个吗谢谢
cl19800122@163.com
 
to shuishou
已经给你发过去了,试试看如何。
 
回答太多次了
 
我也想有
 
多人接受答案了。
 
顶部