Показать сообщение отдельно
  #1  
Старый 27.02.2013, 15:30
Artamos Artamos вне форума
Прохожий
 
Регистрация: 27.02.2013
Сообщения: 2
Репутация: 10
Вопрос Как прочитать ProductId в Windows 7 x64?

Пробую получить ProductId в Windows XP, все работает нормально, но в Windows 7 x64 ProductId вместо него выводит пустую строку, хотя он там есть по этому же адресу.

Код следующий:
Код:
  Reg := TRegistry.Create;
  try
    Reg.RootKey := HKEY_Local_Machine;
    Reg.OpenKey('\Software\Microsoft\Windows NT\CurrentVersion\', False);
    Memo1.Lines.Add('Информация: '+Reg.ReadString('ProductName')+' - '+Reg.ReadString('ProductId'));
  finally
    Reg.Free;
  end;

Где-то читал, что помогает использование:
Код:
Reg := TRegistry.Create(KEY_READ or KEY_WOW64_64KEY);
но delphi ругается:
Код:
[Error] Undeclared identifier: 'KEY_WOW64_64KEY'
Помогите исправить
Ответить с цитированием