Kod:
function GetVendorString: string; var aVendor: array[0..2] of DWord; iI, iJ : Integer; begin asm push ebx xor eax, eax dw $A20F // CPUID instruction mov DWord ptr aVendor, ebx mov DWord ptr aVendor[+4], edx mov DWord ptr aVendor[+8], ecx pop ebx end; for iI := 0 to 2 do for iJ := 0 to 3 do Result := Result + Chr((aVendor[iI] and ($000000FF shl (iJ * 8))) shr (iJ * 8)); end; Kullanımı Kod: showmessage(GetVendorString);