本文整理自网络,侵删。
program Project1;
{$APPTYPE CONSOLE}
{$R *.res}
uses System.SysUtils;
begin try Writeln(System.CPUCount); readln; {描述代表检测到的CPU内核数。
CPUCount代表检测到的CPU内核数。} except on E: Exception do Writeln(E.ClassName, ': ', E.Message); end;end.
相关阅读 >>
Delphi twebbrowser 响应回车键(ewb响应正常,无需额外代码)
Delphi 拖动文件到exe 打开 获取getcommandline命令行
更多相关阅读请进入《Delphi》频道 >>