AccessWeb API for App Activate/Deactivate

[kiln]

At http://www.mvps.org/access/api/api0034.htm is some (probably) nifty
code for detecting app activation and deactivation. However there are
calls to functions sHook() and sUnHook() which are not included in the
listing or in the referenced article. Anyone know what these are all
about?

Thanks

 

[Rob Oldfield]

At http://www.mvps.org/access/api/api0034.htm is some (probably) nifty
code for detecting app activation and deactivation. However there are
calls to functions sHook() and sUnHook() which are not included in the
listing or in the referenced article. Anyone know what these are all
about?

Thanks

Assuming that they're the same.... see
http://www.mvps.org/access/api/api0032.htm

 

[kiln]

Can't really tell if they are the same, can't test since the AddrOf
function that is called is archaic, refs vba322.dll (office 97 I think),
and I can't find a likewise entry point in current dll set.

I guess no one is really maintaining the code bundles on the access web.

 

[Stephen Lebans]

You simply switch the native AddressOf(A2K or higher) method for the A97
AddrOf call.

You state that functions sHook and sUnHook are not included in the code
listing or in the referenced article. Do you not see them at the very
bottom of the referenced URL.

Sub sHook(Hwnd As Long, _
strFunction As String)
lpPrevWndProc = apiSetWindowLong(Hwnd, _
GWL_WNDPROC, _
AddrOf(strFunction))
End Sub

Sub sUnhook(Hwnd As Long)
Dim lngTmp As Long
lngTmp = apiSetWindowLong(Hwnd, _
GWL_WNDPROC, _
lpPrevWndProc)
lpPrevWndProc = 0
End Sub


--

HTH
Stephen Lebans
http://www.lebans.com
Access Code, Tips and Tricks
Please respond only to the newsgroups so everyone can benefit.