die Version von Luckie ist nicht ganz perfekt, bzw. geht die CPU Last dann auf 100 Prozent
http://www.delphipraxis.net/viewtopic.php?t=131
und diese Funktion von negaH hat ein paar schwer zu findende Macken, in Kombination mit anderen Threads und Sockets ...
http://www.delphipraxis.net/internal...elay+revisited
ab und an ... , wenn man es nicht vermeiden kann, mit sleep zu arbeiten, verwenden wir jetzt wieder die alte Version
Delphi-Quellcode:
procedure SleepX(Milliseconds : Integer);
var
TC: DWORD;
begin
TC := GetTickCount;
repeat
if application.Terminated then
exit;
Application.ProcessMessages;
sleep(1);
until ((GetTickCount-TC) > Milliseconds);
end;