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

[zqycn]

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;

[大大怪老张]

function ReadInteger(const Name: String): Integer;

[大大怪老张]

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;

[zqycn]

已经搞定