我需要一个能 100% 使用我的 cpu 的函数。我有单核 cpu 有什么想法吗？
线程是否需要设置为高优先级？
【问题讨论】：
标签： multithreading delphi
循环（无限）通常可以很好地完成工作：
while true do begin
end;
显然，在不做任何有用的事情的情况下强制 CPU 达到 100% 应该只用于学术目的和在您自己的硬件上，而不是在您打算发布的任何实际应用程序中。
【讨论】：
例如，通过下一个线程：
unit Unit2;
interface
uses
Classes;
type
TLoadThread = class(TThread)
public
class var Stop: Boolean;
protected
procedure Execute; override;
public
constructor Create;
end;
implementation
constructor TLoadThread.Create;
begin
inherited Create;
FreeOnTerminate:= True;
end;
procedure TLoadThread.Execute;
begin
repeat until Stop;
end;
end.
使用示例：
type
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
end;
var
Form1: TForm1;
implementation
uses Unit2;
{$R *.dfm}
procedure LoadCPU;
begin
TLoadThread.Stop:= False;
TLoadThread.Create;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
LoadCPU;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
TLoadThread.Stop:= True;
end;
如果你的CPU有N个核心，点击Button1N次即可达到100%的CPU负载；无需增加线程优先级。
【讨论】：