FiveTech Software tech support forums

Dear Michel,

If you don't call cWord:Quit() does Word remain opened ?

So you can only call cWord:Quit() if there no more FWH apps using it

is that correct ? thanks

Are you using Borland or MSVC32 ?

That is correct.

I use Borland

Dear Michel,

Please change your function this way:

Code: Select all  Expand view

STATIC PROCEDURE WordQuit

    local nFWHApps := 0

    EnumWindows( { | hWnd | If( GetClassName( hWnd ) == "TWINDOW", nFWHApps++, ) } )

   if nFWHApps == 1
      cWord:Quit()
   endif

RETURN

I am emailing you a modified fivehc.lib

many thanks for your feedback

Antonio,

If I understand well, this function is checking if another FWH-application is active.

This function is doing its job fantasticly.

But would it be difficult to create a same function for other applications or files (Word- or Excel-documents)?

Dear Michel,

> would it be difficult to create a same function for other applications or files (Word- or Excel-documents)?

You simply apply the same logic:

if there is only one FWH app running then you can quit it, if not, you don't

Antonio,

But what if Word is started manually?
The document in that session can't be closed either.
How to prevent that?

Dear Michel,

Please use this code:

Code: Select all  Expand view

STATIC PROCEDURE WordQuit

    local nFWHApps := 0

    EnumWindows( { | hWnd | If( GetClassName( hWnd ) $ "TWINDOW,OpusApp", nFWHApps++, ) } )

   if nFWHApps == 1
      cWord:Quit()
   endif

RETURN

Thanks a lot, Antonio.
I am away for the day and I will test it tonight.
Have a nice day.

Hello Antonio,

I did some testing.

The function returns 4 if a Word session is opened.
If a second Word session is opened, the function returns 6.
If no Word session is active, the function returns 3.

Weard, isn't it?

Any suggestion?

Thanks.

Dear Michel,

Please try it this way:

Code: Select all  Expand view

STATIC PROCEDURE WordQuit

    local nFWHApps := 0

    EnumWindows( { | hWnd | If( GetClassName( hWnd ) $ "TWINDOW,OpusApp", nFWHApps++, ) } )

   if nFWHApps == 4
      cWord:Quit()
   endif

RETURN

Hello Antonio,

Thanks to all your efforts, I have made a combination of testing other FWH-applications and other Word-sessions.

This the code which seem to work (I need to do more tests):

Code: Select all  Expand view

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

I do some more tests and I will let you know.

very good

Antonio,

I can't use xHarbour Builder. EnumWinows() is unresolved, the message says.

What do i need to do to solve this problem?

Dear Michel,

Already sent to your email

Thanks a lot, Antonio.

This function is now also accepted in xHarbour Builder.