| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

вывод значения ключа еестра

defen ©   (2009-09-29 15:19:00) 

Доброго времени суток! подскажите пожалуйста, как получить значение ключа реестра.

HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Control\DeviceClasses\{53f56307-b6bf-11d0-94f2-00a0c91efb8b}\##?#USBSTOR#Disk&Ven_ZTE&Prod_MMC_Storage&Rev_2.31#7&1553a8c3&0&12 34567890ABCDEF&0#{53f56307-b6bf-11d0-94f2-00a0c91efb8b}\#\Control

Ключ Linked, его значение 1 или 0, надо извлечь. Заранее спасибо...

---

defen   (2009-09-29 16:05:00) [1]

Примного благодарен!

---

Nutz   (2009-09-29 15:50:00) [2]

Можно так, например:


uses Registry;

procedure TForm1.Button1Click(Sender: TObject);
var
 Key: string;
begin
 Key := 'SYSTEM\ControlSet001\Control\DeviceClasses\{53f56307-b6bf-11d0-94f2-00a0c91efb8b}\##?#USBSTOR#Disk&Ven_ZTE&Prod_MMC_Storage&Rev_2.31#7&1553a8c3&0&12  34567890ABCDEF&0#{53f56307-b6bf-11d0-94f2-00a0c91efb8b}\#\Control';
 with TRegistry.Create do
   try
     RootKey := HKEY_LOCAL_MACHINE;
     if OpenKeyReadOnly(Key) then
       ShowMessage(BoolToStr(ReadBool('Linked')))
     else
       ShowMessage('Key not found');
   finally
     Free;
   end;
end;


---

Сергей М.   (2009-09-29 15:42:00) [3]

> Весьма содержательный ответ


Только не говори что в ответе есть незнакомые буквы)

---

defen   (2009-09-29 15:42:00) [4]

:)

---

defen   (2009-09-29 15:41:00) [5]

Весьма содержательный ответ... :)

---

Jeer   (2009-09-29 15:38:00) [6]

F1 TRegistry, unit Registry.

---

Наверх