delphi用API操作注册表

要用到Registry单元
面下是我写过的一段开机启动的
MyReg := TRegistry.Create;
MyReg.RootKey := HKEY_LOCAL_MACHINE;
try
if MyReg.OpenKey('\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\',FALSE) then
if not MyReg.ValueExists('tm') then
begin
MyReg.WriteString('tm',Application.ExeName);
end
finally
MyReg.Free;
end;

楼上的回答者写错了，看清楚人家是把C:\1.exe 设置为启动项！你设置的是自身，你的不对。不合要求！

首先在代码窗口中的uses中包含Registry单元，然后，新建一个Button按扭，双击它进入事件代码编写：

procedure TForm1.Button1Click(Sender: TObject);
Var Reg:TRegistry;
begin
Reg:=TRegistry.Create;
Try
Reg.RootKey:=HKEY_LOCAL_MACHINE;
if Reg.OpenKey('\Software\Microsoft\Windows\CurrentVersion\Run',True) then
Reg.WriteString('Run','C:\1.exe');
Finally
Reg.CloseKey;
Reg.Free;