определение ветки реестра

[Vapaamies]

Думается, у него GUID фиксированный, так что можно просто ветку Uninstall перебирать на предмет подветки с именем.

[Letnab]

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

Думается, у него GUID фиксированный, так что можно просто ветку Uninstall перебирать на предмет подветки с именем.

есть вариант как реализовать?

[Vapaamies]

У меня так сработало:

const
  ProductGUID = '{700932B3-A964-4878-82A2-96054622A1F7}';
begin
  with TRegistry.Create(KEY_READ) do
  try
    RootKey := HKEY_LOCAL_MACHINE;
    if OpenKey('\Software\Microsoft\Windows\CurrentVersion\Uninstall\' + ProductGUID, False) and
      (ReadString('ProductGuid') = ProductGUID)
    then
      ShowMessage('Installed')
    else
      ShowMessage('Not installed');
  finally
    Free;
  end;
end;

[Letnab]

Огромное спасибо. Завтра проверю. после проверки отпишую

[XE5]

Vapaamies Разрядность ОС какая?

[Letnab]

XE5
разрядность влияет?

[XE5]

А вот почитайте. И такой информации в интернете полно. Попробовал прочитать эту ветку, вообще ничего не вычитал. 64 бита.

[Letnab]

я что то не придал этому значения. у меня тоже x64 прочитать ветку не удаётся.
что же, будем копать

[Letnab]

Собственно такая конструкция работает.
Правда пока тестировал на x64 но ключ определяет. Далее можно доработать под свои нужды.

procedure Spide_Gate.Button1Click(Sender: TObject);
var
 Registry: TRegistry;
  List    : TStrings;
begin
    Registry := TRegistry.Create(KEY_WRITE OR KEY_WOW64_64KEY);
 // Registry := TRegistry.Create(KEY_READ OR KEY_WOW64_64KEY);
  List     := TStringList.Create;
  try
    Registry.RootKey := HKEY_LOCAL_MACHINE;
    if Registry.OpenKeyReadOnly('\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\{700932B3-A964-4878-82A2-96054622A1F7}') then
    begin
       Registry.GetValueNames(List);
       showmessage(List.Text);
    end;
    Registry.CloseKey;
  finally
    Registry.Free;
    List.Free;
  end;
end;

Товарищи. Всем спасибо!!!