这种类型的注册表要怎么用delphi 导入

Question

Windows Registry Editor Version 5.00[HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\NwlnkIpx\Parameters]"VirtualNetworkNumber"=dword:00000023这种类型的注册表要怎么用delphi 导入function ReadBinaryData(const Name: String; var Buffer; BufSize: Integer):Integer;
function ReadBool(const Name: String): Boolean;
function ReadCurrency(const Name: String): Currency;
function ReadDate(const Name: String): TDateTime;
function ReadDateTime(const Name: String): TDateTime;
function ReadFloat(const Name: String): Double;
function ReadInteger(const Name: String): Integer;
function ReadString(const Name: String): String;
function ReadTime(const Name: String): TDateTime;

Answer 1

function   ReadInteger(const   Name:   String):   Integer; 

Answer 2

function GetValue: Integer;
var
  reg : TRegistry;
begin
  Result := 0;
  reg := TRegistry.Create;
  if Assigned(reg) then
    try
      reg.RootKey := HKEY_LOCAL_MACHINE;
      if reg.Openkey('SYSTEM\CurrentControlSet\Services\NwlnkIpx\Parameters') then
        try
          Result := reg.ReadInteger('VirtualNetworkNumber');
        finally
          reg.CloseKey;
        end;
    finally
      FreeAndNil(reg);
    end;
end;