Как определить класс процессора?
function GetClassProcessor: string;
var
lpSystemInfo: TSystemInfo;
begin
GetSystemInfo( lpSystemInfo );
Result := Format( '%d', [lpSystemInfo.dwProcessorType] );
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
ShowMessage( 'Процессор класса x' + GetClassProcessor ); end; |