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

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.