如何从注册表字符串中读取十六进制值

Question

我正在使用一个Delphi XE2项目来检查注册表项 MyCompanyName \ 1 中的一个十六进制值。如果十六进制值 13 ，则会有其他消息存在。

所以我定义了以下代码：

procedure TMainForm.BitBtn01Click(Sender: TObject);
var
  RegistryEntry : TRegistry;
begin
  RegistryEntry := TRegistry.Create(KEY_READ or KEY_WOW64_64KEY);
  RegistryEntry.RootKey := HKEY_LOCAL_MACHINE;
  if (RegistryEntry.KeyExists('SOFTWARE\MyCompanyName\1\')) then
    begin
      if (RegistryEntry.OpenKey('SOFTWARE\MyCompanyName\1\',true)) then
        begin
          if (RegistryEntry.ReadString('SettingValue') = '0x00000013')  then
            begin
              Memo01.Lines.Add('SettingHexadeciamlValue exist properly')
            end
          else
            begin
              Memo01.Lines.Add('SettingHexadeciamlValue does not exist properly')
            end;
        end
      else
        begin
          if (RegistryEntry.OpenKey('SOFTWARE\MyCompanyName\1\',false)) then
            begin
              Memo01.Lines.Add('Unable to read RegistryKey ''MyCompanyName''Exiting.......')
            end;
        end;

    end
  else
    begin
      Memo01.Lines.Add('RegistryKey ''MyCompanyName'' does not exist')
    end;
end;  

编译后，当我运行应用程序 AsAdministrator 时，我收到错误提及'SettingValue'的数据类型无效。

Answer 1

这些值是整数，而不是字符串，因此您应该使用ReadInteger，而不是ReadString。

现在，十六进制只是向用户呈现整数的一种方式，即创建整数的“文本表示”的方法。例如，整数62具有许多不同的文本表示：

62 (decimal)
LXII (Roman numerals)
3E (hexadecimal)
111110 (binary)
Sextiotvå (Swedish words)

等

如果要以十六进制显示此数字，就像注册表编辑器（regedit.exe）那样，可以使用IntToHex函数，该函数创建参数整数的十六进制文本表示。例如：

var
  myvalue: integer;

...

myvalue := ReadInteger('SettingValue');
ShowMessage(IntToHex(myvalue, 8));