[moo2k]

Как можно прочитать DigitalProductID Windows (имеющий бинарное значение) из реестра без использования TRegistry? Пытался сам замутить не получилось...

[zip000]

WIN API функции доступа к реестру.

[moo2k]

Сообщение от zip000

WIN API функции доступа к реестру.

Я их и использовал. В общем не получилось, наверное не то замутил с параметрами.
Если можно, то код считавания.....

[zip000]

Код:

var
  key : HKEY;
  data : Byte;
  vtype : DWord;
  size : DWord;
begin
  if RegOpenKey(HKEY_LOCAL_MACHINE, 'адрес_нужного_раздела', key) = ERROR_SUCCESS then begin
    RegQueryValueEx(key, 'имя_значения', nil, @vtype, @data, @size);
    if (vtype = REG_BINARY) and (size > 0) then
      ShowMessage(IntToStr(data));
    RegCloseKey(key)
  end;
end;

Есесьно параметр data можно сделать буфером любой длины (здесь он Byte просто для примера), в переменно vtype будет находиться тип считанных данных, size - количество считанных байт.

[moo2k]

За это, конечно спасибо, но при чтении DigitalProductId Windows у меня вылезает ошибка. Этот ID нужно еще расшифровать. Так вот как это сделать?

[zip000]

Код:

var
  key : HKEY;
  data : Pointer;
  vtype : DWord;
  size : DWord;
  i : Integer;
  b : Byte;
  s : String;
begin
  GetMem(data, $A3);
  if RegOpenKey(HKEY_LOCAL_MACHINE, 'SOFTWARE\Microsoft\Windows NT\CurrentVersion', key) = ERROR_SUCCESS then begin
    RegQueryValueEx(key, 'DigitalProductId', nil, @vtype, data, @size);
    if (vtype = REG_BINARY) and (size > 0) then begin
      s := '';
      for i := 0 to $A3 do begin
        b := PByte(Integer(data) + i)^;
    	s := s + IntToHex(b, 2);
      end;
    end;
    RegCloseKey(key)
  end;
  FreeMem(data, $A3);
  Caption := s;
end;

Это должно работать, в заголовок формы выводятся данные из реестра в 16ричном виде, как расшифровать - это я уже хз, напишите в Майкрософт пусть подскажут.

[moo2k]

zip000, спасибо за помощь. А с расшифровкой я как нибудь разберусь.