Delphi-Help

Главная Статьи Процессор Как определить класс процессора?

Как определить класс процессора?

Оцените материал
(0 голосов)


Как определить класс процессора?

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;
Прочитано 3418 раз

Авторизация



Счетчики