|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
22.04.2014, 23:43 | #11 |
Ваш К. О.
Участник клуба
Регистрация: 26.12.2012
Сообщений: 1,755
|
Думается, у него GUID фиксированный, так что можно просто ветку Uninstall перебирать на предмет подветки с именем.
|
22.04.2014, 23:55 | #12 |
Пользователь
Регистрация: 16.12.2009
Сообщений: 52
|
|
23.04.2014, 00:10 | #13 |
Ваш К. О.
Участник клуба
Регистрация: 26.12.2012
Сообщений: 1,755
|
У меня так сработало:
Код:
|
23.04.2014, 00:13 | #14 |
Пользователь
Регистрация: 16.12.2009
Сообщений: 52
|
Огромное спасибо. Завтра проверю. после проверки отпишую
|
23.04.2014, 00:30 | #15 |
Заблокирован
Регистрация: 02.03.2014
Сообщений: 439
|
Vapaamies Разрядность ОС какая?
|
23.04.2014, 00:45 | #16 |
Пользователь
Регистрация: 16.12.2009
Сообщений: 52
|
XE5
разрядность влияет? |
23.04.2014, 00:59 | #17 |
Заблокирован
Регистрация: 02.03.2014
Сообщений: 439
|
А вот почитайте. И такой информации в интернете полно. Попробовал прочитать эту ветку, вообще ничего не вычитал. 64 бита.
|
23.04.2014, 01:04 | #18 |
Пользователь
Регистрация: 16.12.2009
Сообщений: 52
|
я что то не придал этому значения. у меня тоже x64 прочитать ветку не удаётся.
что же, будем копать |
23.04.2014, 09:35 | #19 |
Пользователь
Регистрация: 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; |
|
Опции темы | Поиск в этой теме |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
ветки реестра | 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 |