请问如何实现类似"金山词霸"的"任务栏"程序? [问题点数：50分，结帖人smallBridge]
|
|
|
|
|
|
|
Shell_NotifyIcon
|
|
|
|
true_hero:
能不能详细一点? |
|
|
|
请看已解决问题。
|
|
|
|
halfone:
|
|
|
|
halfone:
请问在哪? |
|
|
|
请参考C:\Program Files\Borland\Delphi5\Source\Vcl\ScktSrvr例子
|
|
|
|
我再详细一点：在例子中使用了ShellAPI单元，查看AddIcon的用法，了解FIconData结构。
|
|
|
|
察看Shell_NotifyIcon()的帮助，险要添一个结构，
|
|
|
|
我正好有个例子在手上，需要的话mailto:jacer@263.net
|
|
|
|
访问我的HomtePage: http://pcsoft.363.net上就有.
|
|
|
|
我有一个控件，需要的话，请发E_mail:guoyuzhang@371.net
|
|
|
|
先将 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 |
|
|
|
我也有这个控件TrayIcon. eMail: ghsoft@yeah.net
|
|
|
关闭