var
adptName: AnsiString;
begin
reg := TRegistry.Create(KEY_WRITE OR KEY_READ or KEY_WOW64_64KEY);
try
reg.RootKey := HKEY_LOCAL_MACHINE;
if reg.OpenKey('SOFTWARE\Microsoft\Windows NT\CurrentVersion\NetworkCards\1', False) then
adptName := reg.ReadString('ServiceName');//'{C4399F9C-0CDB-49A8-9578-D90F120F8F19}'
finally
reg.Free;
end;
从注册表中HKEY_LOCAL_MACHINE,SOFTWARE\Microsoft\Windows NT\CurrentVersion\NetworkCards\1获取ServiceName项的值.