参考一下新出的‘程序员大本营‘。
解决方案 »
- 如何利用adoquery的append,post或者upbatch属性来实现输一条数据保存一行
- delphi的多语言程序要怎么做啊 ?
- 程序结束后进程没有关闭.
- 如何修改TWebBrowser提交到服务器上的post数据
- 怎样显示父类窗体上的控件?
- TIdIcmpClient还有TClientSocket方面多线程的几个问题!(要多少分,给多少分)
- 请高手帮小妹个忙,谢谢!问题解决,马上结贴!
- DelphiBBs上也无人答的题:如何实现IE右键启动我的程序(象NetAnts)
- 窗体嵌套,如何实现?
- 新手提滴一个不知道是不是技术上滴问题!!!
- 如何判断一个文件是否存在?Who can tell me?
- 我该选用那些控件来做我的第一个DELPHI程序
个键植--你的程序名
至于托盘
在formcreate里写
var
notify:TNOTIFYICONDATA;
temp_hint:string;
begin
temp_hint:='提示信息';
with notify do
begin
cbsize:=sizeof(notify);
wnd:=form1.handle;
uid:=0;
uflags:=Nif_message or NIF_ICon or NiF_TIP;
ucallbackmessage:=wm_message;
hicon:=application.icon.Handle;
strPCopy(sztip,temp_hint);
end;
shell_notifyicon(NIM_ADD,@notify);
showwindow(application.handle,sw_hide);
end;
给分吧