Registriert seit: 30. Sep 2006
Ort: Gundelfingen
1.109 Beiträge
Delphi 2007 Professional
|
Re: CPU Auslasten
20. Sep 2007, 12:52
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;
Dominik Wer anderen eine Grube gräbt, hat ein Gruben-Grab-Gerät!
|