uses中包含
Registry
var
MyFilePath:String
begin
MyFilePath:=Application.ExeName
MyReg:=TRegistry.Create
MyReg.RootKey:=
HKEY_CURRENT_USER
MyReg.OpenKey('SoftWare\Microsoft\Windows\CurrentVersion\Run',True)
MyReg.WriteString
('myfile',MyFilePath
)
MyReg.Free
这样做,一般会有杀毒软件进行拦截,需要同意才亩扰行。
你还可以直接把程序放到开始菜单中的启动下。
1.修改注册表这些地方可以修改:
HKEY_LOCAL_MACHINE\Software\Windows\CurrentVersion\Run(一般加载)
HKEY_LOCAL_MACHINE\Software\Windows\CurrentVersion\RunOnce(加载1次后就删除)
HKEY_LOCAL_MACHINE\Software\Windows\CurrentVersion\RunService(以系统服务的方式加载)
上面的是对该电含和脑上的每个拥护都有用,如果是对单一的拥护:
HKEY_CURRENT_USER\Software\Windows\CurrentVersion\Run(一般加载)
HKEY_CURRENT_USER\Software\Windows\CurrentVersion\RunOnce(加载1次后就删除)
HKEY_CURRENT_USER\Software\Windows\CurrentVersion\RunService(以系统服务的方式加载)
或者修改 win.ini(好象迹伏还是system.ini),有个地方有load=,后面加上你的程序的地址。
以及最原始的姿老携方法,将你的程序的快界方式扔到启动组中。
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)