close EXCEL.EXE

Post Reply
User avatar
Jeff Barnes
Posts: 912
Joined: Sun Oct 09, 2005 1:05 pm
Location: Ontario, Canada
Contact:

close EXCEL.EXE

Post by Jeff Barnes »

Hi Everybody,

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



Thanks,
Jeff
User avatar
Enrico Maria Giordano
Posts: 7355
Joined: Thu Oct 06, 2005 8:17 pm
Location: Roma - Italia
Contact:

Re: close EXCEL.EXE

Post by Enrico Maria Giordano »

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
User avatar
Jeff Barnes
Posts: 912
Joined: Sun Oct 09, 2005 1:05 pm
Location: Ontario, Canada
Contact:

Post by Jeff Barnes »

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
User avatar
Enrico Maria Giordano
Posts: 7355
Joined: Thu Oct 06, 2005 8:17 pm
Location: Roma - Italia
Contact:

Post by Enrico Maria Giordano »

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

EMG
User avatar
jose_murugosa
Posts: 943
Joined: Mon Feb 06, 2006 4:28 pm
Location: Uruguay
Contact:

Post by jose_murugosa »

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
Saludos/Regards,
José Murugosa
FWH + Harbour + Bcc7. Una seda!
User avatar
Enrico Maria Giordano
Posts: 7355
Joined: Thu Oct 06, 2005 8:17 pm
Location: Roma - Italia
Contact:

Post by Enrico Maria Giordano »

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
User avatar
jose_murugosa
Posts: 943
Joined: Mon Feb 06, 2006 4:28 pm
Location: Uruguay
Contact:

Post by jose_murugosa »

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.
Saludos/Regards,
José Murugosa
FWH + Harbour + Bcc7. Una seda!
areang
Posts: 128
Joined: Mon Jul 31, 2006 3:23 pm

Post by 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: Select all

        IF GETWINDOWTEXT( hWnd ) = "My Application"
            //POSTMESSAGE( hWnd, WM_CLOSE )
            POSTMESSAGE(hWnd,????????) <--- 
            RETURN .T.
        ENDIF
Best Regard
Areang
User avatar
yam_hiong
Posts: 16
Joined: Sun Oct 23, 2005 3:00 pm
Location: Pontianak - Indonesia
Contact:

Post by yam_hiong »

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]
areang
Posts: 128
Joined: Mon Jul 31, 2006 3:23 pm

Post by areang »

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