Реестр. Как проверить наличие программы по пути

[Алексей_2012]

Ребят, как сделать так, чтоб при запуске программы она проверяла на наличие себя в реестре, точнее в ветке автозапуска? Как сделать так, чтоб программа распознавала именно себя, даже если клон в другой папке?

[ych_del]

var Exist: Boolean;
begin
   with TRegistry.Create do
   try
      Exists := not OpenKeyReadOnly('SOFTWARE\YouCompany\YouProgramm');
   finally
      Free;
   end;
end;

[ResourceSpace]

Почему все так любят реестр? Используйте папку "Автозагрузка". И проверяйте - есть ли ярлык именно на ваш текущий exe-файл.

[Stilet]

точнее в ветке автозапуска?

Ну там ты же как-то путь к запускаемому вносишь? Вот как внес - так и считай.
А в целом да, я бы тоже рекомендовал работать с папкой Автозагрузка.

[min@y™]

скопипаздил из своих прожэктов. Дарю!

procedure AutoRun(const AppName: string; const Enabled: Boolean);
var
  Reg: TRegistry;
begin
  Reg:= TRegistry.Create();
  try
    Reg.RootKey:= HKEY_CURRENT_USER;
    Reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Run', True);

    if Enabled // Добавление в автозагрузку
      then Reg.WriteString(AppName, ParamStr(0))
      else begin // Удаление из автозагрузки
             if Reg.ValueExists(AppName)
               then try
                      Reg.DeleteValue(AppName);
                    except
                      MessageBox(HInstance, PChar('Не удалось удалить ключ автозапуска.'),
                                 PChar('Ошибка'), MB_OK + MB_ICONERROR);
                    end;
           end;
  finally
    Reg.Free();
  end;
end;

function AutoRunExists(const AppName: string): Boolean;
var
  Reg: TRegistry;
begin
  Reg:= TRegistry.Create();
  try
    Reg.RootKey:= HKEY_CURRENT_USER;
    Reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Run', True);
    Result:= Reg.ValueExists(AppName);
  finally
    Reg.Free();
  end;
end;

Код рабочий!

[Алексей_2012]

А чем хороша папка автозагрузки?

Я правильно понял то, что зацепиться можно только за имя и расширение файла?

[min@y™]

Я правильно понял то, что зацепиться можно только за имя и расширение файла?

это ты к кому обращаешься?

[tsar_]

А чем хороша папка автозагрузки?

Думаю, она делает в абсолютном большинстве то же самое, но гораздо прозрачнее для пользователя

Как сделать так, чтоб программа распознавала именно себя, даже если клон в другой папке?

Дык что в ярлыке, что в ветке реестра хранится полный путь с именем исполняемого файла, так что о клонах проги ОС и знать не знает.
Эту функциональность изобретать уже не надо...

[Zimir]

Сообщение от Алексей_2012

Ребят, как сделать так, чтоб при запуске программы она проверяла на наличие себя в реестре, точнее в ветке автозапуска? Как сделать так, чтоб программа распознавала именно себя, даже если клон в другой папке?

Сам заинтересовался этим вопросом. Нашел этот топик. Но ответа не увидел. Как я решил этот вопрос!

Глобальная переменная в форме

PHP код:

var
  Reg: Tregistry; 


1. Сначала записываем в реестр. Application.Title - это название реестра. PathAR путь к файлу через Application.EXEname.

PHP код:

procedure TForm1.sbtbtn3Click(Sender: TObject);
var
  PathAR: string;
begin
  PathAR:=Application.EXEname;
  Reg:=Tregistry.Create;
  Reg.RootKey:=HKEY_CURRENT_USER;
if Reg.Openkey('\Software\Microsoft\Windows\CurrentVersion\Run',True) then
begin
  Reg.WriteString(Application.Title, PathAR);
  Reg.Closekey;
  Reg.Free;
end;
end; 


2. Находим наш реестр Application.Title. Считываем "ReadString", если равен текущему размещению "= Application.ExeName" (Как бы подверждаем что программа та самая и находится там где нам нужно). Больше не добавляем в реестр через "sbtbtn3.Enabled:=False;" ...

PHP код:

{procedure TForm1.FormCreate(Sender: TObject); Лучше когда форма создается }
  Reg:=TRegistry.Create;
  Reg.RootKey:=HKEY_CURRENT_USER;
  If Reg.OpenKey('\Software\Microsoft\Windows\CurrentVersion\Run', False) Then
   Begin
   If Reg.ReadString(Application.Title) = Application.ExeName
    Then begin sbtbtn3.Enabled:=False; sbtbtn3.Caption:='Уже в Автозагрузке'; end;
     Reg.CloseKey;
     Reg.Free;
   End; 


[min@y™]

О! Их есть у меня. Вот модуль одного из моих проектов. Рабочий, отлаженный, небитый, некрашеный.

unit uRoutines;

interface

uses
  //============================== Модули проекта ==============================
  //========================= Модули проекта с формами =========================
  //=============================== Левые модули ===============================
  //=================== Системные модули, добавленные вручную ==================
  Windows, ShellAPI, Registry, Controls, Forms;

procedure SetAllwaysOnTop(AForm: TForm; const AOnTop: Boolean);
procedure ControlSetEnabled(Parent: TWinControl; const Enabled: Boolean);
procedure AutoRun(const AppName: string; const Enabled: Boolean);
function AutoRunExists(const AppName: string): Boolean;
function RunDefault(const AFileName, AParams, AFolder: string;
                    const AShowCmd: Integer = SW_SHOWDEFAULT): Integer;

const
  EXE_ARCITECTURE = {$ifdef win64} 64 {$else} 86 {$endif};

implementation

procedure SetAllwaysOnTop(AForm: TForm; const AOnTop: Boolean);
var
  hWndInsertAfter: HWND;
begin
  if AOnTop
    then hWndInsertAfter:= HWND_TOPMOST
    else hWndInsertAfter:= HWND_NOTOPMOST;

  with AForm do
    SetWindowPos(Handle,
                 hWndInsertAfter,
                 Left, Top, Width, Height,
                 SWP_NOACTIVATE or SWP_NOMOVE or SWP_NOSIZE);
end;

// Рекурсивная установка своства Enabled у Parent и всех его дочерних контролов
procedure ControlSetEnabled(Parent: TWinControl; const Enabled: Boolean);
var
  Control: TControl;
  Index: Integer;
begin
  if not Assigned(Parent)
    then Exit;

  Parent.Enabled:= Enabled;
  for Index:= 0 to Parent.ControlCount - 1 do
   begin
     Control:= Parent.Controls[Index];
     if Control is TWinControl
       then ControlSetEnabled(TWinControl(Control), Enabled) // Рекурсия !!!
       else Control.Enabled:= Enabled;
   end;
end;

procedure AutoRun(const AppName: string; const Enabled: Boolean);
var
  Reg: TRegistry;
begin
  Reg:= TRegistry.Create();
  try
    Reg.RootKey:= HKEY_CURRENT_USER;
    Reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Run', True);

    if Enabled // Добавление в автозагрузку
      then Reg.WriteString(AppName, ParamStr(0))
      else begin // Удаление из автозагрузки
             if Reg.ValueExists(AppName)
               then try
                      Reg.DeleteValue(AppName);
                    except
                      MessageBox(HInstance, PChar('Не удалось удалить ключ автозапуска.'),
                                 PChar('Ошибка'), MB_OK + MB_ICONERROR);
                    end;
           end;
  finally
    Reg.Free();
  end;
end;

function AutoRunExists(const AppName: string): Boolean;
var
  Reg: TRegistry;
begin
  Reg:= TRegistry.Create();
  try
    Reg.RootKey:= HKEY_CURRENT_USER;
    Reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Run', True);
    Result:= Reg.ValueExists(AppName);
  finally
    Reg.Free();
  end;
end;

function RunDefault(const AFileName, AParams, AFolder: string;
                    const AShowCmd: Integer = SW_SHOWDEFAULT): Integer;
begin
  Result:= ShellExecute(Application.Handle,
                        'open',
                        PChar(AFileName),
                        PChar(AParams),
                        PChar(AFolder),
                        AShowCmd);
end;

end.

Кто молодец? Я молодец!