Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Foxtools.fll Anomaly
Message
Information générale
Forum:
Visual FoxPro
Catégorie:
Autre
Titre:
Foxtools.fll Anomaly
Divers
Thread ID:
00932330
Message ID:
00932330
Vues:
71
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
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform