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!