Get taskbar icon to flash 2

[chpicker]

I've seen in many Windows programs where, when a background program has some kind of activity, the taskbar icon will flash. Is there a way for VFP to do this? Perhaps an API function you can call?

 

[chpicker]

Hmm...I'm not sure if this will do what I need or not, but I found this one:

BOOL FlashWindow(
HWND hWnd, // handle to window
BOOL bInvert // flash status
);

Now, the description says that it will change the appearance of the caption bar by making it look alternately active/inactive.

Now...how do I obtain the window handle to the main Visual FoxPro window?

Ian

 

[Mike Gagnon]

chpicker

That looks like VB code...

The MainHWnd() function in foxtools might help you get the window handle.

 

[chpicker]

It's actually C code...it's just showing the declaration of a Windows API function.

Thanks for the tip...I'll see if it works. )

Ian

 

[wjs2]

Hello Ian,

Is this what your looking for?

tcWindowTitle = "Some Window Title" && Look to see if the app is running
nWinHandle = FindWindow(NULL, tcWindowTitle) && Check if running

nWindowHandle > 0 Indicates the Window was found and nWindowHandle is the reference to the active window

(For the main Visual Fox Pro Window the title is 'Microsoft Visual FoxPro'.)

WJS

 

[chpicker]

Cool, I figured it out:
[tt]
SET LIBRARY TO foxtools ADDITIVE
DECLARE INTEGER FlashWindow in win32api ;
INTEGER wndhand,INTEGER invert

=FlashWindow(MainHWnd(),1)
[/tt]
The FlashWindow function does exactly what I was hoping for. Of course, it only does a single flash, but combined with a timer it's perfect.

Thanks for the help, Mike...I was afraid I was going to have to write another FLL to do this! LOL

Ian

 

[Mike Gagnon]

chpicker

Excellent!

I guess you want to flash the minimized application, use a timer to continue the flashing and check for the _screen.WindowState becomes 2 to stop the timer...

 

[Mike Gagnon]

chPicker

I'm acutally given you a star for that piece of coding

 

[chpicker]

Yep...that's the idea. )

Thanks Mike.

Ian