Запись в реестр

[arxidevill]

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_CURRENT_USER;
hReg.WriteString('Software\Microsof t\Windows\CurrentVersion\Run'
+ hKey + #0,
aProgTitle,
aCmdLine );
hReg.destroy;
end;

procedure TForm1.BitBtn2Click(Sender: TObject);
var f : file of integer;
begin
SetAutorun('Sprog',assignfile(f,od1 .FileName),once);
end;
od - opendialog
setAutorun(название программы,путь где находиться(как можно сделать что-бы сам выбирал?),количество запусков)

[W0LF]

Можно как-то так)

uses
  Registry;

procedure SetAutorun(OpenDialog: TOpenDialog);
var
  Reg: TRegistry;
begin
  Reg := TRegistry.Create;
  Reg.RootKey := HKEY_CURRENT_USER;
  Reg.OpenKey('\Software\Microsoft\Windows\CurrentVersion\Run', True);
  if OpenDialog.Execute then
    Reg.WriteString(ExtractFileName(OpenDialog.FileName), OpenDialog.FileName);
  Reg.Free;
end;

{Использовать так...}
{Ложим на форму OpenDialog1}
SetAutorun(OpenDialog1);

[arxidevill]

reg.OpenKey('\Software\Microsoft\Wi ndows\CurrentVersion\Run', true); тут вроде-бы так,иначе не работает
эмм и в
procedure TForm1.BitBtn2Click(Sender: TObject);

begin
SetAutorun(opendialog1);
end;
только когда выбераю любой .exe фаил вылетает эррор

[W0LF]

Незнаю, только что проверил, да true там надо, забыл, писал в блокноте, и все нормально добавилось в автозапуск...

P.S.: тестил на Delphi 7

[arxidevill]

Спс....большое...там просто я немного мыкнул и не так поставил