5,388
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
wz2000 2000-08-24
- 打赏
- 举报
要在
USES
加入
shellapi
USES
加入
shellapi
StarRainBow 2000-08-23
- 打赏
- 举报
uses shellapi;
应该解决了吧？给分...
应该解决了吧？给分...
netsong 2000-08-22
- 打赏
- 举报
编译出错, 提示: 没有TNotifyIconData类型
netsong 2000-08-21
- 打赏
- 举报
我在哪里可以得到他? 要是想用API该怎么写呢?
deardelphi 2000-08-21
- 打赏
- 举报
用控件吧！ 象 LMD 就可以的 。
StarRainBow 2000-08-21
- 打赏
- 举报
API可以使用下列程序。
var
FTrayicon: TNotifyIconData;
procedure addicon;
begin
with FTrayIcon do
begin
cbSize:= SizeOf(FTrayIcon);
Wnd:= Handle;
uID:= 1;
uFlags:= NIF_MESSAGE or NIF_ICON or NIF_TIP;
hIcon:= LoadIcon(HInstance, 'MAINICON');
uCallBackMessage := WM_TRAYICON;
szTip:= '???';//这里是HINT提示
end;
Shell_NotifyIcon(NIM_ADD, @FTrayIcon);
end;
procedure Eraseicon;
begin
Shell_NotifyIcon(NIM_DELETE, @FTrayIcon);
end;
再定做个自定义消息（比如叫做WM_TRAYICON）接收鼠标按钮，处理一下，弹出PopupMenu就OK.
var
FTrayicon: TNotifyIconData;
procedure addicon;
begin
with FTrayIcon do
begin
cbSize:= SizeOf(FTrayIcon);
Wnd:= Handle;
uID:= 1;
uFlags:= NIF_MESSAGE or NIF_ICON or NIF_TIP;
hIcon:= LoadIcon(HInstance, 'MAINICON');
uCallBackMessage := WM_TRAYICON;
szTip:= '???';//这里是HINT提示
end;
Shell_NotifyIcon(NIM_ADD, @FTrayIcon);
end;
procedure Eraseicon;
begin
Shell_NotifyIcon(NIM_DELETE, @FTrayIcon);
end;
再定做个自定义消息（比如叫做WM_TRAYICON）接收鼠标按钮，处理一下，弹出PopupMenu就OK.
