Code: Select all
METHOD BeforeDispatch(hWnd,uMsg,wParam,lParam)
IF uMsg == WM_KEYDOWN
IF IsExplorerServer(hWnd)
LOCAL netMsg AS System.Windows.Forms.Message
netMsg := System.Windows.Forms.Message{}
netMsg:HWnd := hWnd
netMsg:Msg := uMsg
netMsg:WParam := (IntPtr)((Int32)wParam)
netMsg:LParam := (IntPtr)((Int32)lParam)
LOCAL control AS System.Windows.Forms.Control
// Find the .NET object corresponding to the handle
// Could be a control, or could be the owning window
// If there isn't one look up the ownership chain,
// will have to eventually hit an owning control or failing that, the owning window
DO WHILE control == NULL
control := System.Windows.Forms.Control.FromHandle(hWnd)
hWnd := GetParent(hWnd)
ENDDO
IF control != NULL
IF control:PreProcessMessage(REF netMsg)
RETURN FALSE
ENDIF
ENDIF
ENDIF
ENDIF
RETURN TRUE
Code: Select all
STATIC METHOD IsExplorerServer(hWnd AS PTR) AS LOGIC
STATIC LOCAL buffer := MemAlloc(30) AS PTR
IF GetClassName(hWnd, buffer, 30) == 24 // length of class name
IF Psz2String(buffer) == "Internet Explorer_Server"
RETURN TRUE
ENDIF
ENDIF
RETURN FALSE
Code: Select all
FUNCTION Start( ) AS VOID
// -----------
MemTrace(TRUE)
// -----------
MemTest()
RETURN
FUNCTION MemTest() AS VOID
LOCAL lHandleStaticMemoryCorrectly AS LOGIC
LOCAL i AS DWORD
lHandleStaticMemoryCorrectly := FALSE // TRUE
FOR i := 1 TO 4
IF lHandleStaticMemoryCorrectly
IsExplorerServer_New(NULL_PTR )
ELSE
IsExplorerServer(NULL_PTR )
ENDIF
ListAllStaticMem()
NEXT
?
FUNCTION IsExplorerServer(hWnd AS PTR ) AS LOGIC
STATIC LOCAL buffer := MemAlloc(30) AS PTR
IF GetClassName(hWnd, buffer, 30) == 24 // length of class name
IF Psz2String(buffer) == "Internet Explorer_Server"
RETURN TRUE
ENDIF
ENDIF
RETURN FALSE
FUNCTION IsExplorerServer_New(hWnd AS PTR ) AS LOGIC
LOCAL lOk AS LOGIC
LOCAL buffer := MemAlloc(30) AS PTR
IF GetClassName(hWnd, buffer, 30) == 24 // length of class name
IF Psz2String(buffer) == "Internet Explorer_Server"
lOk := TRUE
ENDIF
ENDIF
MemFree ( buffer ) // <-----------
RETURN lOk
FUNCTION ListAllStaticMem() AS VOID
?
? "Currently allocated static memory:"
? "----------------------------------"
MemWalk(StaticMemChecker)
RETURN
FUNCTION StaticMemChecker( pMem AS IntPtr, nSize AS DWORD) AS LOGIC // callback
? pMem , nSize
RETURN TRUE
