Priorität von Prozessen ändern

[Borti]

Zitat:

Das System braucht doch auch Ressourcen!

so, ich hab das ganze mal mit folgendem Code getestet:

Code:

procedure TForm1.Button1Click(Sender: TObject);
var h1,h2:THandle;
    s:Tstrings;
    i:integer;
begin
  h1:=GetCurrentProcess;
  h2:=GetCurrentThread();
  if not SetPriorityClass(h1,REALTIME_PRIORITY_CLASS) then showmessage('Fehler!');
  if not SetThreadPriority(h2,THREAD_PRIORITY_TIME_CRITICAL) then showmessage('Fehler!');
  s:=TStringList.Create;
  for i:=0 to 1000000 do begin
   s.Add(inttostr(GetTickCount));
  end;
  s.SaveToFile('...\CPU-Test.txt');
  s.Free;
  Form1.Close;
end;

Die Datei CPU-Test.txt hab ich als Attachment angehängt. ich hab aber nur Abweichungen von 5msec. festgestellt. Eigentlich müssten es doch 22 sein!