Procedure nach 2Sekunden starten

[Alex_ITA01]

Hallo erstmal,
ich denke, das Thema gabs hier schon zu genüge nur ich habe leider bisher noch nichts brauchbares gefunden.Ich habe folgende Situation:
Ich habe eine Prozedure die städnig durchlaufen wird im Programm (eine Hook-Procedure)...
In dieser Hook-Proc rufe ich eine andere Funktion auf, die mir etwas bearbeitet.Nur diese Funktion (die ich in der Hook-Proc. aufrufe) soll nur aller 2 Sekunden aufgerufen werden (also nicht ständig). Irgendwie mit GetTickCount bestimmt aber ich stehe grade auf dem Schlauch :-)
Ich hoffe ihr könnt mir helfen...
MFG Alex

[Meflin]

mach doch einfach in die hook proc am ende ein sleep (2000) dann ruft sie die funktion nur alle 2 sekunden auf oder wenn das nicht geht dann... fällt mir jetzt auch nix ein ;)

[fkerber]

Hi!

Mach doch ein Modulo auf den Gettickcount (ich glaub der iss in ms, dann also mod 2000). Wenn da 0 rauskommt, dann ausführen, sonst nicht.


Ciao Frederic

[Stevie]

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.

[Alex_ITA01]

Okay danke schön, habs hinbekommen (hab die Methode von Stevie genommen).

MFG Alex