Mega Code Archive

 

Categories / Delphi / Hardware

 

Islemcinin üretici firmasini bulmak

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; // Kullanimi: procedure TForm1.Button1Click(Sender: TObject); begin Label1.caption := GetVendorString end;