Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 22.04.2014, 23:43   #11
Vapaamies
Ваш К. О.
Участник клуба
 
Аватар для Vapaamies
 
Регистрация: 26.12.2012
Сообщений: 1,755
По умолчанию

Думается, у него GUID фиксированный, так что можно просто ветку Uninstall перебирать на предмет подветки с именем.
Vapaamies вне форума Ответить с цитированием
Старый 22.04.2014, 23:55   #12
Letnab
Пользователь
 
Регистрация: 16.12.2009
Сообщений: 52
По умолчанию

Цитата:
Сообщение от Vapaamies Посмотреть сообщение
Думается, у него GUID фиксированный, так что можно просто ветку Uninstall перебирать на предмет подветки с именем.
есть вариант как реализовать?
Letnab вне форума Ответить с цитированием
Старый 23.04.2014, 00:10   #13
Vapaamies
Ваш К. О.
Участник клуба
 
Аватар для Vapaamies
 
Регистрация: 26.12.2012
Сообщений: 1,755
По умолчанию

У меня так сработало:
Код:
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;
Vapaamies вне форума Ответить с цитированием
Старый 23.04.2014, 00:13   #14
Letnab
Пользователь
 
Регистрация: 16.12.2009
Сообщений: 52
По умолчанию

Огромное спасибо. Завтра проверю. после проверки отпишую
Letnab вне форума Ответить с цитированием
Старый 23.04.2014, 00:30   #15
XE5
Заблокирован
 
Регистрация: 02.03.2014
Сообщений: 439
По умолчанию

Vapaamies Разрядность ОС какая?
XE5 вне форума Ответить с цитированием
Старый 23.04.2014, 00:45   #16
Letnab
Пользователь
 
Регистрация: 16.12.2009
Сообщений: 52
По умолчанию

XE5
разрядность влияет?
Letnab вне форума Ответить с цитированием
Старый 23.04.2014, 00:59   #17
XE5
Заблокирован
 
Регистрация: 02.03.2014
Сообщений: 439
По умолчанию

А вот почитайте. И такой информации в интернете полно. Попробовал прочитать эту ветку, вообще ничего не вычитал. 64 бита.
XE5 вне форума Ответить с цитированием
Старый 23.04.2014, 01:04   #18
Letnab
Пользователь
 
Регистрация: 16.12.2009
Сообщений: 52
По умолчанию

я что то не придал этому значения. у меня тоже x64 прочитать ветку не удаётся.
что же, будем копать
Letnab вне форума Ответить с цитированием
Старый 23.04.2014, 09:35   #19
Letnab
Пользователь
 
Регистрация: 16.12.2009
Сообщений: 52
По умолчанию

Собственно такая конструкция работает.
Правда пока тестировал на x64 но ключ определяет. Далее можно доработать под свои нужды.
Код HTML:
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;
Товарищи. Всем спасибо!!!
Letnab вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
ветки реестра detalik Общие вопросы Delphi 2 06.03.2013 04:58
Как запланировать удаление ветки реестра? meverikxp Windows 17 11.11.2009 12:43
Копирование ветки дерева r00xus БД в Delphi 1 27.05.2009 17:21
изменение безопасности на ветки реестра RIPPER Безопасность, Шифрование 3 22.11.2006 17:01