FiveTech Software tech support forums

Posted: **Sat Mar 10, 2007 2:34 am**

Hi Everybody,

Is there a way from within FWH to close Ms-Excel (EXCEL.EXE) if it is running in the background?

Thanks,
Jeff

Posted: **Sat Mar 10, 2007 9:58 am**

This is a working sample:

Code: Select all

#include "Fivewin.ch"


FUNCTION MAIN()

    IF CLOSEEXCEL()
        ? "Excel closed"
    ENDIF

    RETURN NIL


#define GW_HWNDNEXT	2
#define GW_CHILD	5


STATIC FUNCTION CLOSEEXCEL()

    LOCAL hWnd := GETWINDOW( GETDESKTOPWINDOW(), GW_CHILD )

    WHILE hWnd != 0
        IF GETWINDOWTEXT( hWnd ) = "Microsoft Excel"
            POSTMESSAGE( hWnd, WM_CLOSE )
            RETURN .T.
        ENDIF

        hWnd = GETWINDOW( hWnd, GW_HWNDNEXT )
    ENDDO

    RETURN .F.

EMG

Posted: **Sat Mar 10, 2007 11:54 am**

Hi Enrico,

Once again I thank you.

It is people like you that make me glad I picked FWH as my programming language. Your knowledgeable and quick replies not only help solve our issues but also help expand our understanding of FWH.

I wish we had 10 of you ... but the one we do have is pretty dam good.

Thanks again for all you help.

Jeff

Posted: **Sat Mar 10, 2007 1:26 pm**

Jeff Barnes wrote:[...]FWH as my programming language.

FWH is not a programming language but "merely" a library.

EMG

Posted: **Sat Mar 10, 2007 5:32 pm**

EnricoMaria wrote:
Jeff Barnes wrote:[...]FWH as my programming language.
FWH is not a programming language but "merely" a library.

EMG

Enrico, what is correct.

When I worked with Clipper I use to say I was a Clipper Programmer, and that Clipper was my "language".

Now If somebody ask me which language I use ¿Which is the right answer? c++? [x]Harbour FWH or .......?

Thanks for your help and support

Posted: **Sat Mar 10, 2007 6:13 pm**

jose_murugosa wrote:Enrico, what is correct.

When I worked with Clipper I use to say I was a Clipper Programmer, and that Clipper was my "language".

Now If somebody ask me which language I use ¿Which is the right answer? c++? [x]Harbour FWH or .......?

xHarbour is better than FWH but xHarbour is a compiler not a language. Clipper is also a compiler. dBase III is an interpreter. I don't know if our beloved programming language has really a name. What do you think about "xBase language"?

EMG

Posted: **Sat Mar 10, 2007 6:15 pm**

EnricoMaria wrote:
jose_murugosa wrote:Enrico, what is correct.

When I worked with Clipper I use to say I was a Clipper Programmer, and that Clipper was my "language".

Now If somebody ask me which language I use ¿Which is the right answer? c++? [x]Harbour FWH or .......?
xHarbour is better than FWH but xHarbour is a compiler not a language. Clipper is also a compiler. dBase III is an interpreter. I don't know if our beloved programming language has really a name. What do you think about "xBase language"?

EMG

Ok, I like it, thanks, Have a nice weekend.

Posted: **Sun Mar 11, 2007 10:51 pm**

Hi ! Enrico.

Clipper is my language when I was Born

Thank's Enrico for some help for me.

You are the good guy in the world

How to focus my window application

Code: Select all

        IF GETWINDOWTEXT( hWnd ) = "My Application"
            //POSTMESSAGE( hWnd, WM_CLOSE )
            POSTMESSAGE(hWnd,????????) <--- 
            RETURN .T.
        ENDIF

Best Regard
Areang

Posted: **Mon Mar 12, 2007 8:08 am**

Me too.

try this:

Code: Select all

SetActiveWindow(hWnd)
[code]


[quote="areang"]Hi ! Enrico.

Clipper is my language when I was Born

Thank's Enrico for some help for me.

You are the good guy in the world  :shock: 
How to focus my window application
[code]
        IF GETWINDOWTEXT( hWnd ) = "My Application"
            //POSTMESSAGE( hWnd, WM_CLOSE )
             POSTMESSAGE(hWnd,????????) <--- 
            RETURN .T.
        ENDIF

Best Regard
Areang[/quote]

Posted: **Mon Mar 12, 2007 8:20 am**

Or

Code: Select all

BringWindowToTop( hWnd )

EMG

Posted: **Wed Mar 14, 2007 1:12 pm**

Hi All !

This is work sample :
for setfocus and maximize windows to the top

Code: Select all

#include "Fivewin.ch"

#define SW_NORMAL              1
#define SW_MAXIMIZE            3
#define SW_MINIMIZE            6
#define SW_RESTORE             9


FUNCTION MAIN()

    IF CLOSEEXCEL()
        ? "My Application ready for you"
    ENDIF

    RETURN NIL


#define GW_HWNDNEXT   2
#define GW_CHILD   5


STATIC FUNCTION CLOSEEXCEL()

    LOCAL hWnd := GETWINDOW( GETDESKTOPWINDOW(), GW_CHILD )

    WHILE hWnd != 0
        IF GETWINDOWTEXT( hWnd ) = "My Applicationl"
//           POSTMESSAGE( hWnd, WM_CLOSE ) <-- work for close windows
//           BringWindowToTop( hWnd ) <-- not work
              SetActiveWindow( hWnd )
              ShowWindow( hWnd, SW_MAXIMIZE )
            RETURN .T.
        ENDIF

        hWnd = GETWINDOW( hWnd, GW_HWNDNEXT )
    ENDDO

    RETURN .F.

Please reply !

regards
areang

FiveTech Software tech support forums

close EXCEL.EXE

close EXCEL.EXE

Re: close EXCEL.EXE