请问像金山词霸那样的运行程序怎么做？(100分)

  • 主题发起人 主题发起人 王建伟
  • 开始时间 开始时间
王

王建伟

Unregistered / Unconfirmed
GUEST, unregistred user!
请问像金山词霸那样的运行程序怎么做？就是说运行后可以缩小到任务栏上，点击后恢复，
用什么样的FORM属性可以实现？这样的程序很多，比如Netants等等。
 
rxshell from Rxlib
搜索一下以前的贴子，这种问题多的能吓死人。
 
果然多的差点把我吓死
 
我倒
我是来拿分的
 
我都回答N次了
http://www.delphibbs.com/delphibbs/DispQ.asp?LID=475053
 
我也回答過了，給分吧。
 
上面hnzgf　说的很对，那个贴子有;
在C++Bulide在好像有一个TrayIcon控件，但是Delphi中为什么没有呢！！
 
oh my god !
好好看看 Delphi win32 帮助 Shell_NotifyIcon
这个问题太简单了而且上面的仁兄都有源程序
 
搜索一下前面你会发现很多答案的.
 
Delphi 3 从入门到精通 有例子,讲得很详细.
 
确实，这样的例子在以前的帖子里很多。还有，在大富翁论坛出的那本书里也有。
 
参看 "Delphi开发指南" / 托盘程序的编制。 代码较长。
也可参看： http://abcdelphi.myetang.com
 
可以举例如下进行参考：
// Add Uses ShellAPI
const
WM_TOOLTRAYICON = WM_USER + 100;
var
IconData: TNOTIFYICONDATA;
//对IconData进行赋值
with IconDatado
begin
cbSize := SizeOf(TNOTIFYICONDATA);
wnd := Self.Handle;
uID := 0;
// is not passed in with message so make it 0
uFlags := NIF_MESSAGE + NIF_ICON + NIF_TIP;
hIcon := Application.Icon.Handle;
szTip := '请单击鼠标右键';
uCallbackMessage := WM_TOOLTRAYICON;
end;

Shell_NotifyIcon(NIM_Add, @IConData)//Add Icon to TrayIcon
Shell_NotifyIcon(NIM_Del, @IConData)
 
我好像看過誰公開一個源碼,你用sina search一下
 
有很多免费控件可以帮你轻松完成这个工作。我个人认为最好的是
cooltrayicon控件，在很多网站有下载。一些流行的控件组也有相应控件。
如bupack1。4，ahm...等等。
 
多人接受答案了。
 
您必须登录或注册才可回复。

Similar threads

Ray
[转]终于可以发布Delphi下收点OSGI精髓皮毛而设计的插件框架WisdomPluginFramework
回复
4
查看
4K
chlkuei
C
W
怎样利用消息发送回车消息触发金山词霸查单词？(100分)
回复
8
查看
198
Crane
C
L
金山词霸的问题(30分)
回复
4
查看
138
luosheng
L
L
请问哪位有类似金山毒霸一样的界面控件???救命呀。。。。(0分)
回复
6
查看
361
luky_99
L
1
怎样才能做出象金山词霸那样（200）(200分)
回复
10
查看
605
bubble
B
后退
顶部