Anzahl der Prozessoren ermitteln

[Daniel B]

Hallo,

hiermit kann man die Anzahl der Processoren im Computer herrausfinden. Auch wenn die meisten schon wissen das da nur einer oder zwei drin sind. ;-)

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);

  function GetCPUCount: DWord;
  var
    SysInfo: TSystemInfo;
  begin
    GetSystemInfo(SysInfo);
    Result := SysInfo.dwNumberOfProcessors;
  end;

begin
  ShowMessage(IntToStr(GetCPUCount));
end;

Ein hinweis noch, das ganze macht erst ab >= Win NT Sinn, da Win 9x Multiprozessoren nicht unterstützt!

Grüsse, Daniel :hi:

[edit=Chakotay1308]Klassifizierung. Mfg, Chakotay1308[/edit]