CPU Auslasten

[dominikkv]

du erstellst dir ein von TThread abgeleiteten Type:

Delphi-Quellcode:

type
  TMyThread = class(TThread)
  protected
    procedure execute; override;
  end;

// ...


procedure TMyThread.execute;
begin
  // hier deine 100%-methode
end;

procedure Mach100Prozent;
var I: Byte;
begin
  for I := 1 to Prozessoranzahl do
    TMyThread.create(False);
end;