2002-11-06 13:41

'
     DECLARE FUNCTION CallAsmProc LIB "user32" ALIAS "CallWindowProcA" _
      (Proc AS LONG, A1 AS LONG, A2 AS LONG, A3 AS LONG, _
      A4 AS LONG) AS LONG
'
' ============================================================
' ----- START ASM CheckString -----
     DEFBYTE CheckStringArray (0 TO 75) = _
      { _
      &HC8, &H00, &H00, &H00, &H56, &H57, &H51, &H52, &H8B, &H75,  _
      &H08, &H8B, &H7D, &H10, &H8B, &H4D, &H0C, &HBA, &H00, &H00,  _
      &H00, &H00, &H4E, &H41, &H46, &H49, &H0F, &H84, &H22, &H00,  _
      &H00, &H00, &H8A, &H06, &H3C, &H21, &H72, &HF2, &H3C, &H80,  _
      &H73, &HEE, &H3C, &H61, &H0F, &H82, &H0A, &H00, &H00, &H00,  _
      &H3C, &H7B, &H0F, &H83, &H02, &H00, &H00, &H00, &H2C, &H20,  _
      &H88, &H07, &H42, &H47, &HEB, &HD6, &H89, &HD0, &H5A, &H59,  _
      &H5F, &H5E, &HC9, &HC2, &H10, &H00 _
      }
' ----- END ASM CheckString -----
'
' ----- POINTER to use In CallAsmProc -----
'       A Bit Faster than Calling CheckString
     DEFINT ptrCheckString
     ptrCheckString = VARPTR (CheckStringArray(0))
'
' ----- RQ CALL CheckString -----
     FUNCTION CheckString (Arg1 AS LONG, Arg2 AS LONG, Arg3 AS LONG) AS LONG
      Result = CallAsmProc (ptrCheckString, Arg1, Arg2, Arg3, 0)
     END FUNCTION
'
' ============================================================
'

2002-11-06 13:41