如何实现让自己写的程序开机后自动运行?(讨论) ( 积分: 10 )

  • 主题发起人 主题发起人 dean_2008
  • 开始时间 开始时间
D

dean_2008

Unregistered / Unconfirmed
GUEST, unregistred user!
如何实现让自己写的程序开机后自动运行?
 
如何实现让自己写的程序开机后自动运行?
 
写注册表
 
看看刘麻子的哪个贴. 人家用钩子的比较高级. 注册表是一般方式.
 
我只会两种方法
写注册表
注册成开机自启动服务
 
to duhai_lee:
可以发来看看吗?
 
www.2ccc.com上有麻子的代码.
 
有必要那么高级吗?楼主够用应当就可以了,注册表方式比较简单
 
注册表的方法怎么写呢?
 
用TRegistry,具体用法自己看delphi的帮助,简单
 
使用Regedit查找HKEY_LOCALMACHINE,你会发现所有的Windows启动时调用的程序都在这里,于是你将你的程序增加在这里就可以了。名称为你的程序的标题,其值为你的程序的执行路径和文件名称。在程序中实现可以使用TRegistry都可以。
uses Registry;
//要用到的单元
var
Path, Name: string;
RegF: TRegistry;
Path:=Application.ExeName;
//程序的路径
Name:=Application.Title;
//程序的名字
RegF:=TRegistry.Create;
RegF.RootKey:=HKEY_LOCAL_MACHINE;
try
if RegF.OpenKey('SOFTWARE/Microsoft/Windows/CurrentVersion/Run',True) then
if not RegF.ValueExists(Name) then

begin
RegF.WriteString(Name,Path);
RegF.CloseKey;

end;
finally
RegF.Free
end;
 
在安装时找个安装制作程序写入启动项目里,不用写任何代码,比如CreateInstall安装制作
 
我可以把我的程序些进去,但是开机自动运行时无法找到数据库。因为他默认的路径变成了c盘的我的文档里头去了。
 
zqw0117,:
www.2ccc.com上有麻子的代码.
这个链接没办法打开。
 
http://www.2ccc.com/article.asp?articleid=1893
.....你没发现,我哪个连接因为Delphibbs没有分割汉字而把URL显示错了麻?
 
在HKLM/Microsoft/windows/currentversion/run
写键值
写成服务应用程序后
appname /install
重启后OK
 
其实,能在自己的代码里添加一些代码能够实现再开机的时候让自己的程序就运行还是很有必要的
 
后退
顶部