Вопрос по автозапуску программы в реестре

[paxan86]

Правильно ли написан код?

procedure TForm1.FormCreate(Sender: TObject);
var
  h: TRegistry;
  dir :string;
begin
  h := TRegistry.Create;

//Запись
  with h do
  begin
    RootKey := HKEY_LOCAL_MACHINE;
    OpenKey('\Software\Microsoft\Windows\CurrentVersion\Run', true);
    getdir(0,dir);
    dir :=dir+'\AutoReboot.exe' ;
    WriteString('AutoReboot', dir);
    CloseKey;
    Free;
  end;   



//Удаление 
  with h do
  begin
   if OpenKey('Software\Microsoft\Windows\
 CurrentVersion\Run', False) then
 Begin
   DeleteValue( 'AutoReboot' );
   CloseKey();
   Free;
 end;
 end;

[Человек_Борща]

Кидайте ярлык программы в папку "Автозагрузка" и будет вам счастье.
Темболее не учитываете ситуацию, когда на машине несколько юзеров(и у каждого свой логин), а программа нужна только 1 человеку.

Кидайте в папку автозагрузка, либо пишите в HKEY_CURRENT_USER.

Вот мой метод:

procedure SetAutorunForMe(aForMe, aForAll: Boolean; aParam, aPath: string);
const
  RunKey = '\SOFTWARE\Microsoft\Windows\CurrentVersion\Run';
var
  Reg: TRegistry;
begin
  Reg := TRegistry.Create;
  try
    if aForMe then //Автозапуск для тек. ползьователя. Если да - прописываем, если нет - находим запись и удаляем
    begin
      Reg.RootKey := HKEY_CURRENT_USER;
      if Reg.OpenKey(RunKey, False) then
      begin
        if not Reg.ValueExists(aParam) then
        begin
          Reg.WriteString(aParam, aPath);
        end;
      end;
      Reg.CloseKey;
    end
    else  //Если не для текущего пользователя
    begin
      Reg.RootKey := HKEY_CURRENT_USER;
      if Reg.OpenKey(RunKey, False) then //Если удалось открыть ключ
      begin
        if Reg.ValueExists(aParam) then //КЕсли есть параметр
        begin
          Reg.DeleteValue(aParam); //Удаляем себя из автозагрузки
        end;
      end;
      Reg.CloseKey;
    end;

    if aForAll then //Автозапуск для всех. Если да - прописываем, если нет - находим запись и удаляем
    begin
      Reg.RootKey := HKEY_LOCAL_MACHINE;
      if Reg.OpenKey(RunKey, False) then
      begin
        if not Reg.ValueExists(aParam) then
        begin
          Reg.WriteString(aParam, aPath);
        end;
      end;
      Reg.CloseKey;
    end
    else
    begin
      Reg.RootKey := HKEY_LOCAL_MACHINE;
      if Reg.OpenKey(RunKey, False) then
      begin
        if Reg.ValueExists(aParam) then
        begin
          Reg.DeleteValue(aParam);
        end;
      end;
      Reg.CloseKey;
    end;
  finally
    FreeAndNil(Reg);
  end;
end;

[GunSmoker]

Правильно ли написан код?

Код написан ужасно и неправильно.

У Человека_Борща лучше, хотя есть пара мелких недочётов.

Кстати, я бы тоже рекомендовал посмотреть на добавление в папку Автозагрузка вместо использования реестра. Это существенно дружелюбнее к пользователю.

[Человек_Борща]

У Человека_Борща лучше, хотя есть пара мелких недочётов.

Можно узнать какие?

[paxan86]

Спасибо большое!) но выдаёт ошибки...
if Reg.OpenKey(RunKey, False) then
EStackOverflow

[paxan86]

а почему не правильно?))
у меня заносилась в реестр запись)

[GunSmoker]

Можно узнать какие?

1. aForMe - название настолько не интуитивно, что потребовался разъясняющий комментарий. Намного лучше было бы что-то вроде AInstall: Boolean; Аналогично с aForAll.

2. Может это и спорно, но мне кажется, что не очень удачна идея с двумя aForMe и aForAll по таким причинам:
а). Если ты ставишь aForAll, то этим же ставишь aForMe (ну, тот же эффект).
б). HKCU и HKLM требуют разных прав доступа к реестру и комбинировать их в одном проходе процедуры не стоит.
Я бы сделал AInstall: Boolean (True - установить, False - удалить) и AGlobal: Boolean (True - HKLM, False - HKCU).

3. Дублирование кода. Проверку надо делать не в начале, а в самом конце, когда идёт выбор между WriteString и DeleteValue.

4. CloseKey вроде не обязателен, деструктор сам всё сделает.

а почему не правильно?))

Код для удаления отличается от добавления. Нет RootKey и \. Это - ошибки (хотя вторая не критична).

Могу перечислить недостатки кода.

[paxan86]

Человек_Борща, спасибо за код но он ошибку выдаёт

if Reg.OpenKey(RunKey, False) then
Ошибка>> EStackOverflow

сорри у меня ошибка где то...)

[Человек_Борща]

У меня и в delphi 7 и в XE2 работает на ура, вот уже 6 месяцев без ошибок.

GunSmooker, благодарен.

Но пропроверку доступка к ресстру, это о проверки адм. привелегий или KEY_ALL_ACCESS?

Вот чуток оптимизировал:

{-------------------------------------------------------------------------------
  Процедура: SetAutorunForMe1
  Автор:    Супчег
  Дата:  2011.12.21
  Входные параметры:
  var
  aExeFile,      - Название
  aPath: string; - пусть к программе

  const
  aInstall: boolean = True; - Запись в автозапуск(True), иначе удаление
  aGlobal: boolean = False  - Для всех пользователей(True), иначе для текущего.
  Описание:

-------------------------------------------------------------------------------}
procedure SetAutorunForMe1(var aExeFile, aPath: string; const aInstall: boolean
  =
  True; aGlobal: boolean = False);
const
  RunKey = '\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\';
var
  Reg: TRegistry;
begin
  if aGlobal then
  begin
    Reg := TRegistry.Create(KEY_ALL_ACCESS);
    Reg.RootKey := HKEY_LOCAL_MACHINE
  end
  else
  begin
    Reg := TRegistry.Create;
    Reg.RootKey := HKEY_CURRENT_USER;
  end;

  try
    if Reg.openKey(RunKey, False) then
    begin
      if aInstall then
      begin
        if not Reg.ValueExists(aExeFile) then
          Reg.WriteString(aExeFile, aPath);
      end
      else
      begin
        if Reg.ValueExists(aExeFile) then
          Reg.DeleteValue(aExeFile);
      end;
    end;
  finally
    FreeAndNil(Reg);
  end;
end;

[paxan86]

Кул спасибо!=)