[Inno Setup] SetTimer

Bonjour,
actuellement j'essaye de créer un timer en important la fonction SetTimer de windows comme ci-dessous :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Type Func = function() : Integer;   //importing a Windows API function function SetTimer(const hWnd: Integer; const nIDEvent: Integer; const uElapse: Integer; const lpTimerFunc: Func): Integer; external 'SetTimer@user32.dll stdcall';   { timerFunc } function timerFunc() : Integer; begin Result := 0; end;   .... // quelquepart dans le code SetTimer(handle, 1, 500, @timerFunc);

---

Mais à l'exécution, ça plante.

L'un de vous aurait-il une idée sur ce qui pourrait se passer s'il vous plait ? :D

Citation:

---

Envoyé par Calys

Mais à l'exécution, ça plante.

L'un de vous aurait-il une idée sur ce qui pourrait se passer s'il vous plait ? :D

---

Ben, malheureusement, j'ai perdu ma boule de cristal. Donc à moins que tu me dises quelle est l'erreur que obtiens, et à quel moment, on va avoir du mal à t'aider...

Salut,

Donc, comme je l'ai dit précédemment, l'installeur plante à l'exécution (plus précisément lorsque SetTimer est exécuté).

L'erreur obtenue est un "Runtime Error" avec "Access violation at adress...blahblah". Bref, pas très utile comme info ;)

Merci quand même ! :D

C'est ta fonction de call-back qui n'est pas bonne. L'aide des API Windows précise :

Citation:

---

TimerProc Function

The TimerProc function is an application-defined callback function that processes WM_TIMER messages. The TIMERPROC type defines a pointer to this callback function. TimerProc is a placeholder for the application-defined function name.
Syntax

VOID CALLBACK TimerProc(

HWND hwnd,
UINT uMsg,
UINT_PTR idEvent,
DWORD dwTime
);

Parameters

hwnd [in] Handle to the window associated with the timer. uMsg [in] Specifies the WM_TIMER message. idEvent [in] Specifies the timer's identifier. dwTime [in] Specifies the number of milliseconds that have elapsed since the system was started. This is the value returned by the GetTickCount function.

Return Value

This function does not return a value.

---

Donc tu dois déclarer Func comme :

Code:

---

1 2	type Func = procedure(Handle, Msg, Event, Time: LongWord) stdcall;

---

Et déclarer timerFunc selon le même schéma.