如何用程序实现开机自动运行程序？
我想实现开机自动运行程序，不是在注册表里的那种，如CLICK一BUTTON就实现了
谢谢，
顺便问一下托盘程序是怎么样的实现过程，感谢大家！
问题点数：20、回复次数：7Top
1 楼chwdong（chwdong）回复于 2005-09-21 16:18:28 得分 15
var
Reg: TRegistry;
begin
Reg := TRegistry.Create;
try
Reg.RootKey := HKEY_CURRENT_USER;
if Reg.OpenKey('\Software\Microsoft\Windows\CurrentVersion\Run', True) then begin
Reg.WriteString('JCDataSyn', Application.ExeName);
Reg.CloseKey;
end;
finally
Reg.Free;
inherited;
end;
end;
Top
2 楼chwdong（chwdong）回复于 2005-09-21 16:19:30 得分 0
托盘可以用控件：cooltrayiconTop
3 楼chwdong（chwdong）回复于 2005-09-21 16:20:25 得分 0
当然，把程序做成系统服务，也可以实现开机启动，而且是无需登录的那种Top
4 楼87721054（虹娃儿〓学习学习再学习）回复于 2005-09-22 09:54:15 得分 0
请问cooltrayicon在哪个控件包里啊Top
5 楼wuzhouhome（伍洲）回复于 2005-09-22 10:46:08 得分 0
var
reg:Tregistry;
vDataBase,RunPath : String;
begin
reg:=Tregistry.create;
reg.rootkey:=HKEY_CURRENT_USER;
if reg.openkey('\SOFTWARE\MICROSOFT\WINDOWS\CURRENTVERSION\RUN',True) then
begin
vDataBase := reg.ReadString('AutoUpdate');
RunPath:=ExtractFileDir(Application.ExeName);
RunPath:=Runpath+'\PosAutoUpdate.exe';
if (vDataBase='') or (vDataBase<>RunPath) then
reg.WriteString('AutoUpdate',RunPath);
reg.closekey;
end;
Reg.Free;
end;Top
6 楼QWERT520（痛苦并快乐着）回复于 2005-09-22 11:31:37 得分 0
把它放在開始--->運行---->下就OK了Top
7 楼zxcnmv（带走一片云彩）回复于 2005-09-22 13:02:56 得分 5
www.delphibox.com里查找cooltrayIcon就行了Top
