Автозапуск

[Sparky]

Как сделать так чтобы прога добавилась в реестр. Нашла процедуру:

procedure SetAutorun(aProgTitle,aCmdLine: string; aRunOnce: boolean );
var
  hKey: string;
  hReg: TRegIniFile;
begin
  if aRunOnce then hKey := 'Once'
  else
  hKey := '';
  hReg := TRegIniFile.Create( '' );
  hReg.RootKey := HKEY_LOCAL_MACHINE;
  hReg.WriteString('Software\Microsof t\Windows\CurrentVersion\Run'
  + hKey + #0,
  aProgTitle,
  aCmdLine );
  hReg.destroy;
end;

Но что-то не работает

[Stilet]

Посмотри внизу страницы похожие темы.

[SERG1980]

var reg:Tregistry;
begin
 try
  reg:=TRegistry.Create;
  reg.RootKey:=HKEY_LOCAL_MACHINE;
  reg.OpenKey('SoftWare\Microsoft\Windows\CurrentVersion\Run',false);
  if not reg.ValueExists(Application.Title) then
  reg.WriteString(Application.Title,Application.ExeName);
  reg.CloseKey;
 finally
  reg.Free;
 end;
end;

[Sparky]

Application.Title,Application.ExeNa me
Тут нужно указать сначала название проги а затем путь к ней?

[SERG1980]

Сообщение от Sparky

Application.Title,Application.ExeNa me
Тут нужно указать сначала название проги а затем путь к ней?

Просто вставьте этот код в какой нибудь обработчик и будет вам счастье