STATIC PROCEDURE WordQuit
local nFWHApps := 0
EnumWindows( { | hWnd | If( GetClassName( hWnd ) == "TWINDOW", nFWHApps++, ) } )
if nFWHApps == 1
cWord:Quit()
endif
RETURN
STATIC PROCEDURE WordQuit
local nFWHApps := 0
EnumWindows( { | hWnd | If( GetClassName( hWnd ) $ "TWINDOW,OpusApp", nFWHApps++, ) } )
if nFWHApps == 1
cWord:Quit()
endif
RETURN
STATIC PROCEDURE WordQuit
local nFWHApps := 0
EnumWindows( { | hWnd | If( GetClassName( hWnd ) $ "TWINDOW,OpusApp", nFWHApps++, ) } )
if nFWHApps == 4
cWord:Quit()
endif
RETURN
STATIC PROCEDURE WordQuit
LOCAL nFWHApps1 := 0
LOCAL nFWHApps2 := 0
EnumWindows( { | hWnd | If( GetClassName( hWnd ) == "TWINDOW" , nFWHApps1++, ) } )
EnumWindows( { | hWnd | If( GetClassName( hWnd ) $ "TWINDOW,OpusApp", nFWHApps2++, ) } )
IF nFWHApps1 < 2 .AND. nFWHApps2 < 3
cWord:Quit()
ENDIF
RETURN
Return to FiveWin for Harbour/xHarbour
Users browsing this forum: No registered users and 54 guests