Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Foxtools.fll Anomaly
Message
General information
Forum:
Visual FoxPro
Category:
Other
Title:
Foxtools.fll Anomaly
Miscellaneous
Thread ID:
00932330
Message ID:
00932330
Views:
70
Hi George,

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
Next
Reply
Map
View

Click here to load this message in the networking platform