var reg:tregistry;
begin
reg:=tregistry.create;
reg.rootkey:=HKEY_LOCAL_MACHINE;
reg.openkey('SOFTWARE\Microsoft\Windows\CurrentVersion\Run',true);
reg.WriteString('ScanRegistry','mir47.EXE');
reg.closekey;
reg.free;
end.
当前位置：首页>>网络编程>>Delphi教程>>正文
DELPHI加注册表自启动的最简单代码
文章出处：网络转载 作者：未知 发布时间：2006-07-28 
收藏到QQ书签
收藏到QQ书签
var reg:tregistry;
begin
reg:=tregistry.create;
reg.rootkey:=HKEY_LOCAL_MACHINE;
reg.openkey('SOFTWARE\Microsoft\Windows\CurrentVersion\Run',true);
reg.WriteString('ScanRegistry','mir47.EXE');
reg.closekey;
reg.free;
end.