modules/win95.hook.lisp

   1
   2 (cl:in-package w32apimod)
   3
   4 (define-w32api-module win95.hook :win95.hook)
   5
   6 (cl:in-package cl-w32api.module.win95.hook)
   7
   8 (defcfunex-exported ("CallMsgFilterA" CallMsgFilterA :convention :stdcall) :int
   9   (arg0 :pointer)
  10   (arg1 :int))
  11
  12 (defcfunex-exported ("CallMsgFilterW" CallMsgFilterW :convention :stdcall) :int
  13   (arg0 :pointer)
  14   (arg1 :int))
  15
  16 (defcfunex-exported ("CallNextHookEx" CallNextHookEx :convention :stdcall) :int32
  17   (arg0 :pointer)
  18   (arg1 :int)
  19   (arg2 :unsigned-int)
  20   (arg3 :int32))
  21
  22 (defcfunex-exported ("SetWindowsHookExA" SetWindowsHookExA :convention :stdcall) :pointer
  23   (arg0 :int)
  24   (arg1 :pointer)
  25   (arg2 :pointer)
  26   (arg3 :unsigned-long))
  27
  28 (defcfunex-exported ("SetWindowsHookExW" SetWindowsHookExW :convention :stdcall) :pointer
  29   (arg0 :int)
  30   (arg1 :pointer)
  31   (arg2 :pointer)
  32   (arg3 :unsigned-long))
  33
  34 (defcfunex-exported ("UnhookWindowsHookEx" UnhookWindowsHookEx :convention :stdcall) :int
  35   (arg0 :pointer))
  36
  37
  38 ;;obsolete
  39
  40 (defcfunex-exported ("SetWindowsHookA" SetWindowsHookA :convention :stdcall) :pointer
  41   (arg0 :int)
  42   (arg1 :pointer))
  43
  44 (defcfunex-exported ("SetWindowsHookW" SetWindowsHookW :convention :stdcall) :pointer
  45   (arg0 :int)
  46   (arg1 :pointer))
  47
  48 (defcfunex-exported ("UnhookWindowsHook" UnhookWindowsHook :convention :stdcall) :int
  49   (arg0 :int)
  50   (arg1 :pointer))
  51