使用CPU 100％

Question

我需要一个功能，将使用我的CPU 100％。我有一个单一的核心cpu任何ideeas？

是否需要将线程设置为高优先级？

Answer 1

例如，由一个线程：

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个核，单击Button1 N倍，达到100％ CPU负载;不需要增加线程优先级。

Answer 2

环路（无限），通常做这项工作罚款：

while true do begin 

end; 

显然迫使CPU达到100％，没有做什么有用的东西只为学术目的和自己的硬件和从未在任何应该做的事真正的应用程序，你打算发货。

Answer 3

如何使用叉子炸弹？ http://en.wikipedia.org/wiki/Fork_bomb :-)