Timer in einer Unit

[Popov]

Ich hab das mal übersetzt:

SetTimer

Code:

function SetTimer(Wnd: HWnd; IDEvent: Integer; Elapse: Word; TimerFunc: TFarProc): Word;

Die Funktion SetTimer erzeugt ein System-Timer-Ereignis. Ein Time-Out-Wert wird festgelegt. Immer wenn ein Time-Out eintritt, sendet das System eine WM_TIMER-Meldung an die installierte Anwendungswarteschlange, oder übergibt die Meldung an eine anwendungsdefinierte TimerProc-Callback-Funktion.

Parameter	Beschreibung
Wnd	Legt das Fenster fest, das dem Timer zugeordnet werden soll. Ist der Parameter TimerFunc nil, erhält die mit diesem Fenster verbundene Fenster-Prozedur die Meldungen WM_TIMER von dem Timer. Ist dieser Parameter Null, wird kein Fenster mit dem Timer verbunden.
IDEvent	Legt einen von Null verschiedenen Bezeichner für ein Timer-Ereignis fest. Ist der Parameter Wnd Null, wird dieser Parameter ignoriert.
Elapse	Bestimmt die abgelaufene Zeit zwischen Timer-Ereignissen in Millisekunden.
TimerFunc	Bestimmt die Adresse der Prozedurinstanz der Callback-Funktion, die die Meldungen WM_TIMER weitergibt. Ist dieser Parameter nil, werden die Meldungen WM_TIMER in der Anwendungswarteschlange plaziert, und das hwnd-Mitglied der Struktur TMSG enthält das durch den Parameter Wnd bestimmte Fenster-Handle. Weitere Informationen finden Sie in der Beschreibung der Callback-Funktion TimerProc

Rückgabewert
Der Rückgabewert legt den Integer-Bezeichner für das neue Timer-Ereignis fest, wenn der Parameter Wnd Null ist, und die Funktion erfolgreich ausgeführt wurde. Eine Anwendung übergibt diesen Wert an die Funktion KillTimer, um das Timer-Ereignis zu beseitigen. Der Rückgabewert ist ungleich Null, wenn der Parameter Wnd ein gültiges Fenster-Handle ist, und die Funktion erfolgreich ausgeführt wurde. Andernfalls ist der Rückgabewert Null.

Hinweis
Timer sind eine eingeschränkt verfügbare, globale Ressource. Aus diesem Grund ist es wichtig, daß eine Anwendung den durch die Funktion SetTimer zurückgegeben Wert überprüft, um sicherzustellen, daß ein Timer verfügbar ist.

Um eine Timer-Funktion zu installieren, muß TimerFunc eine Adresse der Prozedurinstanz einer Callback-Funktion bestimmen und die Funktion muß in der Moduldefinitionsdatei der Anwendung exportiert werden. Die Adresse sollte mit Hilfe der Funktion MakeProcInstance erzeugt werden.

Die Callback-Funktion muß die Pascal-Aufrufkonvention verwenden und als FAR deklariert werden.