Определение фирмы производителя CPU |
Previous Top Next |
Code: |
{ **** UBPFD *********** by delphibase.endimus.com **** >> Определение фирмы производителя CPU
Зависимости: нет Автор: Gua, fbsdd@ukr.net, ICQ:1411585495, Simferopol 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; |
©Drkb::01443