>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 >>