XX min Timer mit nachfolgender Aktion

[Corpsman]

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