Themabewertung:
  • 0 Bewertung(en) - 0 im Durchschnitt
  • 1
  • 2
  • 3
  • 4
  • 5
  [Delphi] Get CPU Vendor (x86 and x64)
#1
Code:
Procedure GrabCPUVendor(pOut : Pointer);stdcall;
var
 dwCpu1 : DWORD;
 dwCpu2 : DWORD;
 dwCpu3 : DWORD;
begin
 //Grab CPUID (Vendor)
 {$ASMMODE intel}
 asm
   {$IFDEF CPU64}
   push rbx
   {$ENDIF CPU64}
   mov eax, 0
   db 0Fh, 162
   mov dwCpu1, ebx
   mov dwCpu2, edx
   mov dwCpu3, ecx
   {$IFDEF CPU64}
   pop rbx
   {$ENDIF CPU64}
 end;

 //Return ASCII string (12 Bytes)
 pDWORD(pOut)^ := dwCpu1;
 pDWORD(tHandle(pOut) + SizeOf(DWORD))^ := dwCpu2;
 pDWORD(tHandle(pOut) + SizeOf(DWORD) * $2)^ := dwCpu3;
end;
Zitieren


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste
www.D3n1s.Net