Hi (mal wieder
),
du speicherst am Anfang der Methode das Ergebnis von GetTickCount. Davor überprüfst du, ob seit dem letzten Speichern von GetTickCount deine 2 Sekunden vergangen sind, indem du
Delphi-Quellcode:
while (GetTickCount - SavedTicks) < 2000 do
// folgender Befehl nicht in Konsolenprogramm
Application.ProcessMessages;
SavedTicks := GetTickCount;
machst.