DELPHI加注册表自启动的最简单代码

核心提示：uses registry;var reg:tregistry; begin reg:=tregistry.create; reg.rootkey:=HKEY_LOCAL_MACHINE; reg.openkey('SOFTWARE\Microsoft\Windows\CurrentVersion\Run

uses registry;

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.