OK Ich versuche es mal.
GetTickCount ist ne Function die einen Dword zurückgibt. Schaust du dir die größte Zahl an die Dword darstellen kanns und rechest es um weist du übrigens auch warum win nach 49 Tagen abstürzt
Delphi-Quellcode:
Procedure wait(Time:Integer);
Var x:Dword;
Begin
Time := Time * 60; // ich gehe mal davon aus das du Time als Minuten übergibst.
x := GetTickCount ; // Hohlen der Aktuellen Zeit.
While x - time < GetTickCount do // Warten, aber ohne alles zu blockieren.
Application.ProcessMessages; //Diese Zeile gibt Rechenzeit für andere Programmteiele Frei.
End;
Aufrufen tust du das ding einfach an der Codestelel wo du deine Zeit warten willst.
Delphi-Quellcode:
.. // Irgendein Code
Wait(3);// Drei minuten warten
.. // Weiter im Code