Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Foxtools.fll Anomaly
Message
 
 
To
11/08/2004 10:00:21
General information
Forum:
Visual FoxPro
Category:
Other
Miscellaneous
Thread ID:
00932330
Message ID:
00932332
Views:
21
Hi Tod,

PMFJI, but your code is outdated. You don't need FoxTools for what you're doing. Take a look at Re: Windows api findwindow Message #781895.

>
>I think I found an Anomaly between an older version of Foxtools.fll (v5.0.0.344, 68K) and the new version of Foxtools.fll (v8.0.0.2518, 38K)
>
>In this case, I'm running FoxPro 8.0 on WinXP.
>
>The following code produces different results, the old version displays window titles, the new version does not:
>
>
>SET LIBRARY TO foxtools
>
>*
>*	Register the Windows API functions that will be called
>*
>nGetWinTxt = RegFn("GetWindowText", "I@CI", "I")
>nGetWindow = RegFn("GetWindow", "II", "I")
>nIsWinVis =  RegFn("IsWindowVisible", "I", "I")
>
>*
>*	Get the HWND (handle) to the main FoxPro window
>*
>nFoxHwnd = MainHwnd()
>
>*
>*	Produce a list of all windows
>*
>nHwndNext = CallFn(nGetWindow,nFoxHwnd,0)
>
>IF nHwndNext = 0
>
>	WAIT WINDOW "No windows found!" TIMEOUT 3
>	
>ELSE
>
>	DO WHILE nHwndNext <> 0
>
>		cBuffer = SPACE(64)
>		
>		CallFn(nGetWinTxt,nHwndNext,@cBuffer,64)
>		
>		IF !EMPTY(cBuffer)
>			WAIT WINDOW cBuffer NOCLEAR TIMEOUT .1
>		ENDIF
>
>		nHwndNext = CallFn(nGetWindow,nHwndNext,2)
>
>	ENDDO
>	
>ENDIF
>
>WAIT CLEAR
>
>
>Can you explain the difference? I need to know if changes to my code are necessary due to this anomaly.
>
>Thanks for your input,
>
>Tod
--sb--
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform