ffidl et SetWindowsHookEx

Bonjour,

J'essaie de rajouter des possibilités de macros à une application qui
n'en a pas. Aucun problème pour envoyer une séquence de touches :
TWAPI marche très bien. Je voudrais maintenant rajouter une fonction
d'enregistrement. J'ai essayé ceci :

package require Ffidl

set WH_KEYBOARD 13
set hmod 0
set thread_id 0
ffidl::callout _SetWindowsHookEx_ {int pointer-proc long long} long
[ffidl::symbol user32.dll SetWindowsHookExA]

::ffidl::callback KeyboardHandler {int long long} int

proc KeyboardHandler {code vkey state} {
    puts "code = $code, vkey = $vkey, state = $state"
}
_SetWindowsHookEx_ $WH_KEYBOARD KeyboardHandler $hmod ""

Ce qui me retourne '0' et qui correspond à une erreur (Je crois). Il
dois me manquer quelque chose.
Merci à vous.

Laurent LB