HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run
建立新项目.
解决方案 »
- 有关 TEncoding 求助
- 按BitBtn1Click时报错'' is not a valid integer value 请大家看一下 先谢过了
- 如何取托盘图标的坐标位置,100分赠送
- 谁有李维的delphi图书下载,小弟多谢了!
- 做登陆窗口该如何检查用户与密码是否正确?
- 有办法能通过消息控制一个BUTTON的ENABLE 或 disable 吗?
- 一个关于操作注册表的简单问题
- 高分求教,分不够再开贴!
- 寻数据库查询应用程序开发
- 如何取的服务器的时间?
- 重发delphi5中怎样调用TWAIN32.DLL来扫描图像?
- Delphi 5 与 NetMeeting 3 的冲突?还是 BUG ?
var Reg:TRegistry;
begin
Reg:=TRegistry.Create;
Reg.RootKey:=HKEY_LOCAL_MACHINE;
Reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Run',True);
Reg.WriteString('MyAppName',Application.ExeName);
Reg.Free;
end;
registry然后
var
registry:Tregistry;
begin
regidtry:=Tregistry.create;
registry.rootkey:=HKEY_LOCAL_MACHINE;
if not MyReg.OpenKey ('\SOFTWARE\Microsoft\Windows\CurrentVersion\Run',True) then ;//如果子键不存在则创建
MyReg.WriteString(随便写字符,你的文件名和绝对路径);//将程序加载到启动中,每次开机自动执行
registry.closekey;
registry.free;
end;
如果有参数就跟在文件名后面,像你在dos下执行时键入的命令一样。
Registry.RootKey:=HKEY_LOCAL_MACHINE;
try
if Registry.OpenKey('Software\Microsoft\Windows\CurrentVersion\Run',True);
then ///
else ///
Registry.CloseKey;
finally
Registry.Free;
end;
如 "c:\abc.exe /-install 参数.txt abc.zip"
MyReg.WriteString('ScanRegistry','C:\WINDOWS\scanregw.exe /autorun');
这里面的/autorun不就是参数吗?我觉得第一次我已经讲的很清楚了啊
对了,第一次犯了小错误,定义的变量是registry,使用时错为myreg,你应该能看出来吧
sorry咯!
MyReg.WriteString('ScanRegistry','C:\WINDOWS\scanregw.exe /autorun');
这里面的/autorun不就是参数吗?我觉得第一次我已经讲的很清楚了啊
对了,第一次犯了小错误,定义的变量是registry,使用时错为myreg,你应该能看出来吧
sorry咯!