Hallo zusammen,
in meinem Programm nutze ich folgende "Pause"-Funktion, basierend auf MsgWaitForMultipleObjects:
Delphi-Quellcode:
procedure Wait2(Milliseconds: Integer);
var
Tick: DWord;
Event: THandle;
begin
Event := CreateEvent(nil, False, False, nil);
try
Tick := GetTickCount + DWord(Milliseconds);
while (Milliseconds > 0) and
(MsgWaitForMultipleObjects(1, Event, False, Milliseconds, QS_ALLINPUT) <> WAIT_TIMEOUT) do
begin
Application.ProcessMessages;
if Application.Terminated exit;
Milliseconds := Tick - GetTickcount;
end;
finally
CloseHandle(Event);
end;
end;
Die Pause beträgt 1s. Mein Programm läuft mit normaler Priorität.
Bei hoher Systemauslastung erhöht sich die Pause erheblich, ich vermute Timeout von MsgWaitForMultipleObjects funktioniert nicht richtig.
Zu Testzwecken habe ich die Pausefunktion Wait2(1000) einfach durch Application.ProcessMessages ersetzt. Mein Programm läuft hierbei ausreichend schnell ab, ich denke also, dass ich die Priorität nicht erhöhen muss. Mit Sleep(1000) gibt es einen ähnlichen Effekt wie mit Wait2(1000).
Vielleicht weiß hier jemand einen Rat,
beste Grüße
Seven