[Redddd]

делаю так:

Код:

var
  // Переменная реестра
  reg: TRegistry;

begin
 reg := TRegistry.Create;
  with reg do
  begin
    RootKey := HKEY_LOCAL_MACHINE;
    if  OpenKey('\Software\Microsoft\Windows\CurrentVersion\Run', false) then
     begin
      WriteString('InetApp', GetCurrentDir+'\Wasppacer.exe');
      WriteString('MyApp', GetCurrentDir+'\svvhost.exe');
     end;
    CloseKey;
    Free;
  end;
end;

Проблема с автозапуском - не появляется запись в автозагрузке. Не из под админа