home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / OS2BAS.ZIP / WINHOOK.BI < prev    next >
Text File  |  1989-07-24  |  2KB  |  60 lines
  1. '**************************************************************
  2. '*
  3. '* Include File: WinHook.BI
  4. '*
  5. '* Requires:     none
  6. '*
  7. '* Description:  Hook manager
  8. '*
  9. '*************************************************************
  10.  
  11. DECLARE FUNCTION WinSetHook%(BYVAL hab AS LONG,_
  12.                              BYVAL hmq AS LONG,_
  13.                              BYVAL iHook AS INTEGER,_
  14.                              BYVAL pfnHook AS LONG,_
  15.                              BYVAL hmod AS INTEGER)
  16.  
  17. DECLARE FUNCTION WinReleaseHook%(BYVAL hab AS LONG,_
  18.                                  BYVAL hmq AS LONG,_
  19.                                  BYVAL iHook AS INTEGER,_
  20.                                  BYVAL pfnHook AS LONG,_
  21.                                  BYVAL hmod AS INTEGER)
  22.  
  23. DECLARE FUNCTION WinCallMsgFilter%(BYVAL hab AS LONG,_
  24.                                    BYVAL pqmsg AS LONG,_
  25.                                    BYVAL msgf AS INTEGER)
  26.  
  27.  
  28. ' Hook codes 
  29.  
  30. CONST HKSENDMSG          =0
  31. CONST HKINPUT            =1
  32. CONST HKMSGFILTER        =2
  33. CONST HKJOURNALRECORD    =3
  34. CONST HKJOURNALPLAYBACK  =4
  35. CONST HKHELP             =5
  36.  
  37.  
  38. CONST HMQCURRENT         =1&
  39.  
  40. ' WHMSGFILTER context codes 
  41.  
  42. CONST MSGFDIALOGBOX      =1
  43. CONST MSGFMESSAGEBOX     =2
  44. CONST MSGFTRACK          =8
  45.  
  46. ' HKHELP Help modes 
  47.  
  48. CONST HLPMFRAME          =-1
  49. CONST HLPMWINDOW         =-2
  50. CONST HLPMMENU           =-3
  51.  
  52. ' HKSENDMSG structure 
  53.  
  54. TYPE SMHSTRUCT
  55.     mp2 AS LONG
  56.     mp1 AS LONG
  57.     msg AS INTEGER
  58.     hwnd AS LONG
  59. END TYPE
  60.