interface

usesvar
reg:TRegistry;
在procedure Tmainfm.FormCreate(Sender: TObject);事件中编写代码：
var
  reg:TRegistry;
  mypath:string;
begin
  mypath:=extractfilepath(paramstr(0));
  reg:=Tregistry.create;
  reg.rootkey:=HKEY_LOCAL_MACHINE;

  if not reg.KeyExits(‘\SOFTWARE\Microsoft\Windows\CurrentVersion\RunServices\form1) then
  begin
    reg.CreateKey(form1);
    if reg.OpenKey(‘\SOFTWARE\Microsoft\Windows\CurrentVersion\RunServices\form1) then
      reg.WriteString(form1,mypath+‘form1‘);
  end;
end.