Delphi форум по программированию на языке delphi | Программирование Delphi | Delphi Общие вопросы | Проблема с реестром
Страниц: [1]
« предыдущая тема следующая тема »
Автор Тема: Проблема с реестром  (Прочитано 174 раз)
0 Пользователей и 1 Гость смотрят эту тему.
aleks1988
Новичок


Репутация: 0
Offline Offline

Сообщений: 3


Просмотр профиля
« : Март 11, 2010, 12:19:49 »
Добрый день не подскажете как считать что находится в ветке и вывести имя и значение в memo


reg.RootKey := HKEY_LOCAL_MACHINE;
if reg.OpenKeyReadOnly('SOFTWARE\Microsoft\Windows\CurrentVersion\policies\system\DisallowRun')

а вот дальше мозги тупят... подскажите пожалуйся
Записан

CHERT
Гуру
******

Репутация: 84
Online Online

Пол: Мужской
Сообщений: 813


CodeGear RAD Studio 2009


Просмотр профиля
« Ответ #1 : Март 11, 2010, 12:37:38 »
Код:
Reg.RootKey := HKEY_LOCAL_MACHINE;
Reg.OpenKey('SOFTWARE\Microsoft\Windows\CurrentVersion\policies\system\',false);
Memo1.lines.add(Reg.ReadString('DisallowRun'));
Записан
Если вы не можете опред. для чего нужны функции GetWindowsDirectory, GetSystemDirectory и GetCurrentDirectory, то остается надеяться лишь на то, что вы зараб. себе на жизнь чем-то, отличным от программирования.

CHERT
Гуру
******

Репутация: 84
Online Online

Пол: Мужской
Сообщений: 813


CodeGear RAD Studio 2009


Просмотр профиля
« Ответ #2 : Март 11, 2010, 12:47:31 »
Чуть не забыл, необходимо потом
Код:
Reg.closekey;
Reg.free;
Записан
Если вы не можете опред. для чего нужны функции GetWindowsDirectory, GetSystemDirectory и GetCurrentDirectory, то остается надеяться лишь на то, что вы зараб. себе на жизнь чем-то, отличным от программирования.

aleks1988
Новичок


Репутация: 0
Offline Offline

Сообщений: 3


Просмотр профиля
« Ответ #3 : Март 11, 2010, 07:24:06 »
Не я немножко не то имел в виду, надо вывести что там находится!всё содержимое этой ветки а не один параметр! 

Записан

aleks1988
Новичок


Репутация: 0
Offline Offline

Сообщений: 3


Просмотр профиля
« Ответ #4 : Март 11, 2010, 07:58:42 »

Код:
var

     MyReg: TRegistry;
begin
   MyReg := TRegistry.Create;
   MyReg.RootKey := HKEY_LOCAL_MACHINE;
   MyReg.OpenKey('\SOFTWARE\Microsoft\Windows\CurrentVersion\policies\system',FALSE);
   MyReg.GetValueNames(Memo2.Lines);


тока надо вывести строкового типа !!!

примерно так должно выглядить
Код:
имя__значение
Записан

Страниц: [1]
Печать
« предыдущая тема следующая тема »
Перейти в: