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.

转自:http://www.delphifans.com/infoView/Article_474.html