cpuを使用する100％

Question

私のCPU 100％を使用する機能が必要です。私は単一のコアCPUを持っていますか？

スレッドを高い優先度で設定する必要がありますか？

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個のコアを持っている場合は、100％に到達するためにButton1 N回をクリックしてくださいCPU負荷。スレッドの優先度を上げる必要はありません。

Answer 2

ループ（無限）は、通常、細かい仕事をしていません：

明らかに有用何もせずに100％に行くが、学術目的のために、自分のハードウェア上でのみ行われ、決していずれにもしなければならないCPUを強制的に

while true do begin 

end; 

あなたが出荷しようとしている実際のアプリケーション。

Answer 3

フォークボンベを使うのはいかがですか？ http://en.wikipedia.org/wiki/Fork_bomb :-)