unit GetCPU;
interface
uses
Windows, SysUtils;
function GetCpuInfo:pchar;
implementation
function GetCpuInfo:pchar;
var
R: array [ 0 .. 19 ] of Char;
CpuID: Integer ;
CpuPC: pchar;
begin
FillChar(R, 20 , 0 );
asm
mov eax, 0
db 0fh, 0a2h
mov dword ptr R[ 0 ], ebx
mov dword ptr R[ 4 ], edx
mov dword ptr R[ 8 ], ecx
mov eax, 1
db 0fh, 0a2h
mov CpuID, edx
end ;
strpcopy(CpuPC,IntToStr(CpuID));
Result : = PChar(CpuPC);
end ;
end .
interface
uses
Windows, SysUtils;
function GetCpuInfo:pchar;
implementation
function GetCpuInfo:pchar;
var
R: array [ 0 .. 19 ] of Char;
CpuID: Integer ;
CpuPC: pchar;
begin
FillChar(R, 20 , 0 );
asm
mov eax, 0
db 0fh, 0a2h
mov dword ptr R[ 0 ], ebx
mov dword ptr R[ 4 ], edx
mov dword ptr R[ 8 ], ecx
mov eax, 1
db 0fh, 0a2h
mov CpuID, edx
end ;
strpcopy(CpuPC,IntToStr(CpuID));
Result : = PChar(CpuPC);
end ;
end .