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
[edit=Chakotay1308]Klassifizierung. Mfg, Chakotay1308[/edit]