Getting the current active window handle

[Marco Turco]

Hi all,
I'm trying to get the handle of the current active window but without success.
I made this self-contained sample that show the problem. It runs in background without a Windows active and check every 20 seconds which is the current active window (es. I'm on Skype so it should return the Skype handle) but it Always return 0. Any ideas ? Thank you.

----

#include "FiveWin.ch"

function Main()

local n,hwnd
n:=Seconds()

do while .t.
sysrefresh()
if seconds()>n+20
hWnd:=GetActiveWindow()
if msgyesNo("Active Window handle is "+str(hWnd,10)+" Finish test ?")
exit
endif
n:=Seconds()
endif
enddo
----

[karinha]

Code: Select all  Expand view

#include "FiveWin.ch"

STATIC oWnd

function Main()

   local n,hwnd

   n:=Seconds()

   do while .t.

      sysrefresh()

      if seconds()>n+20

         //hWnd:=GetActiveWindow()
         
         hWnd := ShellExecute( GetActiveWindow() )

         if msgyesNo("Active Window handle is "+str(hWnd,10)+" Finish test ?")

            exit

         endif

         n:=Seconds()

      endif

   enddo

Return nil
 



[Marco Turco]

Hi, thank you,
I tried, also as Shellexecute(0,GetActiveWindow()) but always return 42

[karinha]

What should return?

Regards,

[Marco Turco]

Hi,
due the sample hasn't a window,
I think if I'm working on Skype it should report the Skype handle,
if I'm on OpenOffice it should return the OpenOffice handle,
...
that's what I'm looking for.

[karinha]

I do not know if I understand

You have to check if a program is running?

look:

http://fivewin.com.br/index.php?/topic/18017-verificar-se-o-exe-esta-em-uso/?hl=skype#entry264270

http://forums.fivetechsupport.com/viewtopic.php?f=6&t=11308&p=55703&hilit=usar+el+handle#p55703

Regards,

[Marco Turco]

Essentially I need to know which window (software) has the focus.

[karinha]

Code: Select all  Expand view

STATIC FUNCTION test_in(Arg1)

   SysWait(10)

   IF( GetActiveWindow()==0 )
      ? "I am in... "
   ELSE
       ? "Do not exit the program"
   ENDIF

RETURN(.T.)
 

[Marco Turco]

The problem is that if I execute the sample and then I go to Skype, or any other Windows app, GetActiveWindos always return 0 instead of the handle of Skype or the app with the focus.

[hmpaquito]

You should to use a similar function to fivewin GetTask(), using window caption so "SKYPE" $ GetWindowText()

Look at GetTask() function on fwh.

Too can to use GetForegroundWindow() for active window.

[karinha]

http://forums.fivetechsupport.com/viewtopic.php?f=3&t=21108&start=0&hilit=GETFOREGROUNDWINDOW

Regards,

[Marco Turco]

Nothing to do. There are still a lot of problems reactivating the original window.
I have bypassed the problem in 4 rows using AutoHotKey Scripting Language.

WinGetActiveTitle, Title
WinActivate, Connect
Send {Right}
WinActivate, %Title%

Thank you for your kind support.