Fórum Como fazer que meu programa se auto execute ao iniciar o PC? #223171

uses registry;
var reg:TRegIniFile;

procedure TForm1.FormCreate(Sender: TObject);
var s,s2:string;
begin
   Reg:=TRegIniFile.Create(´LloydSoft´);
   {HKEY_USERS\.DEFAULT\Software\Microsoft\Windows\CurrentVersion\Run}
   S:=ExtractFileDir(Application.ExeName);
   S2:=ExtractFileName(Application.ExeName);
   S:=S+´\´+S2;
   reg.RootKey:=HKEY_USERS;
   reg.Openkey   (´\.DEFAULT\Software\Microsoft\Windows\CurrentVersion´,false);
   reg.WriteString(´Run´, ´Logo´, s);
end;