Определение фирмы производителя CPU

Материал из DRKB

Определение фирмы производителя CPU[править | править код]

{ **** UBPFD *********** by delphibase.endimus.com ****
>> Определение фирмы производителя CPU

Зависимости: нет

Copyright:
Дата:        03 мая 2002 г.
***************************************************** }

type
  TVendor = array[0..11] of char;


function GetCPUVendor: TVendor; assembler; register;
asm
  PUSH EBX { Save affected register }
  PUSH EDI
  MOV EDI,EAX { @Result (TVendor) }
  MOV EAX,0
  DW $A20F { CPUID Command }
  MOV EAX,EBX
  XCHG EBX,ECX { save ECX result }
  MOV ECX,4
@1:
  STOSB
  SHR EAX,8
  LOOP @1
  MOV EAX,EDX
  MOV ECX,4
@2:
  STOSB
  SHR EAX,8
  LOOP @2
  MOV EAX,EBX
  MOV ECX,4
@3:
  STOSB
  SHR EAX,8
  LOOP @3
  POP EDI { Restore registers }
  POP EBX
end;


Source: http://delphibase.endimus.com
ID: 01443