|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
показ записи реестра
использую код
Код:
procedure TForm1.Button1Click(Sender: TObject); var reg: tregistry; begin Reg := TRegIniFile.Create; Reg.RootKey := HKEY_LOCAL_MACHINE; Reg.OpenKey('SOFTWARE/Wow6432Node/Origin', true); memo1.Text := Reg.ReadString('ClientPatch'); end; Foxer: Так код не большой, теги его не уменьшат Админ: Я предупредил ) в memo/edit текст не выводит по аналогичному примеру на ветке HKEY_CURRENT_USER работает нормально. в чем проблеам? как решить? запуск от админа - пробовал = бестолку отключать антивирус - пробовал = бестолку regedit ветку просматривает без проблем Последний раз редактировалось Admin, 13.05.2012 в 22:24. |
#2
|
||||
|
||||
прототип функции OpenKey:
Код:
function OpenKey(const Key: string; CanCreate: Boolean): Boolean; '\SOFTWARE\Wow6432Node\Origin') параметр CanCreate лучше в false (если true, то в случае если такого ключа нет, то он создастся, а оно вам надо?) содержимое ключа точно непустое? Последний раз редактировалось cotseec, 13.05.2012 в 22:02. |
#3
|
|||
|
|||
Цитата:
значение ключа не пустое. как использовать Код:
function OpenKey(const Key: string; CanCreate: Boolean): Boolean; |
#4
|
|||
|
|||
так и не понял что было неверно, сделал новый проект - этот же код, и все работает отлично
|
#5
|
||||
|
||||
палочки в другую сторону наклонил)
Пишу программы за еду. __________________ |
#6
|
|||
|
|||
Цитата:
начал проект заного - все работает во всех вариантах кода. полагаю компилятор глюкнул |
#7
|
||||
|
||||
Цитата:
Пишу программы за еду. __________________ |
#8
|
||||
|
||||
Ну почему же, бывает. Приходится вводить пустую строку, убирать, после этого тугодум образумится.
Je venus de nulle part 55.026263 с.ш., 73.397636 в.д. |