Jak wykryć liczbe rdzeni w Delphi?

0

Czy może ktoś mi powiedzieć jak wykryć liczbe procerów logicznych w Delphi?

Dzięki!

0
procedure TForm1.Button1Click(Sender: TObject);
var
Sys:TSystemInfo;
begin
GetSystemInfo(Sys);
with Sys do begin
label1.Caption:='Liczba rdzeni : '+IntToStr(dwNumberOfProcessors)  ;
end;
end;
0

Wielkie dzięki! A już myślałem że będę się musiał babrać z GetLogicalProcessorInformation. A tu prosze ... taki banał... Na ekipe z 4programmers zawsze można liczyć!

1 użytkowników online, w tym zalogowanych: 0, gości: 1