请问如何实现类似"金山词霸"的"任务栏"程序?

[smallBridge]

[Hibin]

请参考C:\Program Files\Borland\Delphi5\Source\Vcl\ScktSrvr例子

[Hibin]

我再详细一点：在例子中使用了ShellAPI单元，查看AddIcon的用法，了解FIconData结构。

[true_hero]

Shell_NotifyIcon

[smallBridge]

true_hero:
能不能详细一点?

[halfone]

请看已解决问题。

[smallBridge]

halfone:

[smallBridge]

halfone:
请问在哪?

[yl]

察看Shell_NotifyIcon()的帮助，险要添一个结构，

[jacer]

我正好有个例子在手上，需要的话mailto:[e-mail]

[davidyliu]

访问我的HomtePage: http://pcsoft.363.net上就有.

[guoyuzhang]

我有一个控件，需要的话，请发E_mail:[e-mail]

[xiaohuilau]

先将 Application 最小化时执行 OnMin
用以下程序：
procedure TfrmDesktop.OnMin(Sender:TObject);
var
NT:TNotifyIconData;
begin
with NT do Begin
cbSize:=SizeOf(TNotifyIconData);
Wnd:=Handle;
UID:=My_Tray_Icon;
uFlags:=Nif_Message or Nif_Icon or Nif_Tip;
uCallBackMessage:=WM_Traynotify;
hIcon:=loadicon(hinstance,'notifyicon');;
szTip:='翱翔空间 http://go.163.com/~hoversoft';
end;
Shell_NotifyIcon(Nim_ADD,@NT);
ShowWindow(Application.handle,SW_Hide);
end;

若有其它问题可浏览 http://go.163.com/~hoversoft

[dragongong]

我也有这个控件TrayIcon. eMail: [e-mail]