Реестор в DELPHI

[Donald]

Мне нужна небольшая помощь, мне нужно записать прогу в автозапуск, помогите...?
прога написана на DELPHI
реклама

[vitalik007]

procedure RunOnStartup(sProgTitle, sCmdLine : string; bRunOnce : boolean );
var
sKey : string;
reg : TRegIniFile;
begin
if( bRunOnce )then sKey := 'Once'
else sKey := '';
reg := TRegIniFile.Create( '' );
reg.RootKey := HKEY_LOCAL_MACHINE;
reg.WriteString('Software\Microsoft \Windows\CurrentVersion\Run'+ sKey + #0,
sProgTitle,sCmdLine );
reg.Free;
end;

[Hottabych]

Можно и так:

function ToReestr(Name, Data: string): boolean;
var
  Reg: TRegistry;
begin
  Result := TRUE;
  try
    reg := TRegistry.Create;
    reg.RootKey := HKEY_LOCAL_MACHINE;
    reg.LazyWrite := false;
    reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Run', false);
    reg.WriteString(Name, Data);
    reg.CloseKey;
    reg.free;
  except RESULT := FALSE;
  end;
end;

ToReestr('xxx.exe', application.exename);

[Air]

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

procedure RunOnStartup(sProgTitle, sCmdLine : string; bRunOnce : boolean );
var
sKey : string;
reg : TRegIniFile;
begin
if( bRunOnce )then sKey := 'Once'
else sKey := '';
reg := TRegIniFile.Create( '' );
reg.RootKey := HKEY_LOCAL_MACHINE;
reg.WriteString('Software\Microsoft \Windows\CurrentVersion\Run'+ sKey + #0,
sProgTitle,sCmdLine );
reg.Free;
end;

Вообще для начала ключ надо открыть "OpenKey", а то врятли на всех компах такое прокатит.
Вы код хоть проверяли на работоспособность?

Вижу поправили.

[mihali4]

Вообще для начала ключ надо открыть "OpenKey", а то врятли на всех компах такое прокатит.
Вы код хоть проверяли на работоспособность?

Неверный ответ.
Для начала автору нужно было воспользоваться поиском по форуму, дабы не плодить клоны давно рассмотренных тем...
Я никак не могу понять этой дурацкой лени авторов. Неужели трудно было сделать поиск по слову, например, "автозапуск"???
И набирать не так "многа букафф пра реестор", и ответ получил бы практически моментально...

[Квэнди]

1. закрыто.
2. автору предупреждение за рекламу.