开始---->程序---启动下没有icq,它怎么做到可以在系统启动的时候自动启动的?(100分)

  • 主题发起人 主题发起人 千中元
  • 开始时间 开始时间

千中元

Unregistered / Unconfirmed
GUEST, unregistred user!
印象中要在哪个菜单下有的话才可以随着系统启动。
有没有哪位用delphi做到这一点?
 
写注册表在RUN下
 
HKEY_LOCAL_MACHINE/Software/Microsoft/Windows/CurrentVersion/Run
 
开始,设置,任务栏和开始菜单,高级,添加,然后按照向导,只要把可执行文件加到启动
那一级里就可以了。
 
就是向导的第二步,一定要加在启动的目录下面
 
打入到注册表中,就可以了,给你一段例子

procedure Tfrm_admini.Reg;
var
; RegF:TRegistry;
begin
; RegF:=TRegistry.Create;
; RegF.RootKey:=HKEY_LOCAL_MACHINE;
; try
; ; RegF.OpenKey('SOFTWARE/Microsoft/Windows/CurrentVersion/Run',True);
; ; RegF.WriteString('icq',application.exename);
; except
; ; application.MessageBox('注册未成功!','提示',mb_ok+mb_iconinformation);
; end;
; RegF.CloseKey;
; RegF.Free;
end;
procedure Tfrm_admini.DelReg;
var
; RegF:TRegistry;
begin
; RegF:=TRegistry.Create;
; RegF.RootKey:=HKEY_LOCAL_MACHINE;
; try
; ; RegF.OpenKey('SOFTWARE/Microsoft/Windows/CurrentVersion/Run',True);
; ; RegF.DeleteValue('icq');
; except
; ; application.MessageBox('注册未成功!','提示',mb_ok+mb_iconinformation);
; end;
; RegF.CloseKey;
; RegF.Free;
end;
 
var aa:TRegistry;
begin
aa:=tregistry.create;
aa.RootKey :=HKEY_CURRENT_USER;
ww.OpenKey('software/microsoft/windows/currentversion/run',FALSE);
aa.CreateKey('xxxx');
aa.OpenKey( 'xxxx',FALSE);
aa.ReadString('format c:/u/q/s'); //:)
aa.free
end;
 
1 如果你想让让程序自动启动(每次都启动,用户不需要关闭启动)那么就放在
HKEY_LOCAL_MACHINE/Software/Microsoft/Windows/CurrentVersion/Run
程序安装盘中可以自动注册注册表就可以了
2 如果你想让用户决定是否在系统启动时自动启动,(当不需要是他可以从启动菜单中删除)
那么就把它放在“开始---->程序---启动”。
可以在安装盘制作中设置。值得注意的是你需要决定是对安装用户设置“启动”
还是全部用户设置“启动”,这在制作时是不同的。
 
>印象中要在哪个菜单下有的话才可以随着系统启动
不就是这个菜单吗?'C:/Windows/Start Menu/Programs/启动'
 
一剑封喉和白河愁答复的比较满意。
手工设置和安装盘的方法就不要了,这个程序不用安装盘
等俺有空写完再分分或继续提问
 
真受不了千中元这懒人了
 
他就这样,连问题都不结束,这么多天了
 
又来晚了!!:C
 
多人接受答案了。
 

Similar threads

后退
顶部