注册表中 NetworkAddress 是什么类型的值,如何转为 string?(100分)

C

coca

Unregistered / Unconfirmed
GUEST, unregistred user!
procedure TForm1.Button1Click(Sender: TObject);
var
Reg:TRegistry
s: string;
begin
Reg:=TRegistry.Create;
Reg.RootKey:=HKEY_LOCAL_MACHINE;
if Reg.OpenKey('/SOFTWARE/Description/Microsoft/Rpc/UuidTemporaryData',false) then
s:= reg.ReadString('NetworkAddress');
Reg.CloseKey;
Reg.Free;
edit1.Text:=s;
end;

使用时提示: Invalid data type for 'NetworkAddress',请问如何解决。
 
var
b: array[0..5] of Byte;
i:integer;
begin
with TRegistry.Create do
try
RootKey := HKEY_LOCAL_MACHINE;
OpenKey('/SOFTWARE/Description/Microsoft/Rpc/UuidTemporaryData',false);
ReadBinaryData('NetworkAddress', b, sizeof(b));
finally
Free;
end;
for i:=0 to 5 do
Result:=Result+IntToHex(b,2);
end;
 
接受答案了.
 
顶部