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

Question

true_hero:
    能不能详细一点?

Answer 1

halfone: 
     请问在哪?

Answer 2

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

Answer 3

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

Answer 4

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

Answer 5

我正好有个例子在手上，需要的话mailto:[email protected]

Answer 6

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

Answer 7

我有一个控件，需要的话，请发E_mail:[email protected]

Answer 8

先将 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

Answer 9

我也有这个控件TrayIcon. eMail: [email protected]