注册表操作 写入autorun启动项，键值为本程序的全路径

procedure TForm4.Button2Click(Sender: TObject); 
var 
reg:TRegistry; 
begin 
reg:=TRegistry.Create; 
with reg do //写注册表 
begin 
RootKey:=HKEY_CURRENT_USER; 
openkey('software\Microsoft\windows\currentversion\run',true); //打开指定注册表顶，若无则创建 
writestring(trim('Autorun'),application.ExeName); //写入autorun启动项，键值为本程序的全路径 
reg.Free; 
end; 
end; 

这是我的一个程序里面的代码，运行正常。发来你参考一下，建议加上try..except，以处理异常情况。注意别忘了在单元uses部分加上Registry单元。

摘自：http://zhidao.baidu.com/question/85242537.html