type
 TAutorunKind = (akUserRun, akUserRunOnce, akRun, akRunOnce, akRunServices, akRunServicesOnce);

uses
 Registry;

function CreateAutorunEntry(const AName, AFilename: String; const AKind: TAutorunKind): Boolean;
var
 Reg: TRegistry;
begin
 Result:=False;
 Reg := TRegistry.create;
 try
   if (AKind=akUserRun) or (AKind=akUserRunOnce) then
     Reg.Rootkey:= HKEY_CURRENT_USER
   else
     Reg.RootKey := HKEY_LOCAL_MACHINE;

   case AKind of
     akRun, akUserRun : Result:=Reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Run', True);
     akRunOnce, akUserRunOnce: Result:=Reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\RunOnce', True);
     akRunServices : Result:=Reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\RunServices', True);
     akRunServicesOnce : Result:=Reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\RunServicesOnce', True);
   end;
   Reg.WriteString(AName, AFilename);
 finally
   Reg.Free;
 end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
 CreateAutorunEntry(Application.Title, ParamStr(0), akUserRunOnce);
end;

unit AutorunHlp;

interface

type
  TAutorunKind = (akUserRun, akUserRunOnce, akRun, akRunOnce, akRunServices, akRunServicesOnce);

function CreateAutorunEntry(const AName, AFilename: String; const AKind: TAutorunKind): Boolean;
function DeleteAutorunEntry(const AName: String; const AKind: TAutorunKind): Boolean;

implementation

uses Windows, Registry, RegStr;


function GetRegistryPath(const AKind: TAutorunKind):string;
begin
   case AKind of
     akRun, akUserRun : Result := REGSTR_PATH_RUN;
     akRunOnce, akUserRunOnce: Result := REGSTR_PATH_RUNONCE;
     akRunServices : Result := REGSTR_PATH_RUNSERVICES;
     akRunServicesOnce : Result := REGSTR_PATH_RUNSERVICESONCE;
   end;
end;

function CreateAutorunEntry(const AName, AFilename: String; const AKind: TAutorunKind): Boolean;
var
   Reg: TRegistry;
begin
   Result:=False;
   Reg := TRegistry.create;
   try
      if (AKind=akUserRun) or (AKind=akUserRunOnce) then
        Reg.Rootkey:= HKEY_CURRENT_USER
      else
        Reg.RootKey := HKEY_LOCAL_MACHINE;

      Result:=Reg.OpenKey(GetRegistryPath(AKind), True);
      if AFilename = '' then
      begin
         if Result then
            Result := Reg.DeleteKey(AName);
      end
      else
         Reg.WriteString(AName, AFilename);
   finally
      Reg.Free;
   end;
end;

function DeleteAutorunEntry(const AName: String; const AKind: TAutorunKind): Boolean;
begin
   Result := CreateAutorunEntry(AName, '', AKind);
end;

end.