İşlemcinin Markasını Öğrenmek

[E-Tardis]

Fonksiyonlar Bu kodlar Kendinize Göre ayarlayın işte 

Kod:

Kod: Tümünü Seç Tümünü Kopyala

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;