Форум: "Начинающим";
Текущий архив: 2009.11.15;
Скачать: [xml.tar.bz2];

Вниз

вывод значения ключа еестра   Найти похожие ветки 

← →
defen ©   (2009-09-29 15:19) [0]

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

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, надо извлечь. Заранее спасибо...

---

← →
Jeer ©   (2009-09-29 15:38) [1]

F1 TRegistry, unit Registry.

---

← →
defen ©   (2009-09-29 15:41) [2]

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

---

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

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


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

---

← →
defen ©   (2009-09-29 15:42) [4]

:)

---

← →
Nutz   (2009-09-29 15:50) [5]

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


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;


---

← →
defen ©   (2009-09-29 16:05) [6]

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

---

Страницы: 1 вся ветка

Форум: "Начинающим";
Текущий архив: 2009.11.15;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.004 c