Unmentioned Delphi 10.2 Tokyo's nice features:

Unmentioned Delphi 10.2 Tokyo's nice features:
CPUID:
e.g. Get CPU sn without asm:

function GetCPUSN: String;
var
LCPUID: TCPUIDRec;
begin
// First Core of First CPU
SetProcessAffinityMask(GetCurrentProcess, 1);
// Get CPUID
LCPUID := GetCPUID(1);
// Convert to HEX string
result := LCPUID.EAX.ToHexString(8) + LCPUID.EBX.ToHexString(8) +
LCPUID.ECX.ToHexString(8) + LCPUID.EDX.ToHexString(8);
end;