请问像金山词霸那样的运行程序怎么做?(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

S
回复
0
查看
3K
SUNSTONE的Delphi笔记
S
S
回复
0
查看
2K
SUNSTONE的Delphi笔记
S
后退
顶部