Как определить количество CPU?
function GetCPUCount: byte;
var
si: TSystemInfo;
begin
GetSystemInfo( si );
Result := si.dwNumberOfProcessors;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
ShowMessage( IntToStr( GetCPUCount ) );
end;
|
