Bring another APP to top

[sambomb]

Hi, how can I bring another APP to top?

I developed an app to kill the task of my main project before start the compilation process, but the focus of the APP don't back for the compilation.

PS.: I Don't have the WindowText of this other APP so I can't use this code bellow

Code: Select all  Expand view

   CFILENAME := "test.exe"

   IF ISEXERUNNING( CFILENAME( HB_ARGV( 0 ) ) )
      msginfo("Test is running","Attenzione")
      SHOWWINDOW( FINDWINDOW( 0, "TEST" ), 9 )
      SETFOREGROUNDWINDOW( FINDWINDOW( 0, "TEST" ) )
      RETURN NIL
   ENDIF

  DEFINE WINDOW m->oWnd TITLE "TEST"

 

[sambomb]

Nobody?

[James Bott]

I am not sure I understand what you are trying to do, but maybe this is what you need. Save the foreground window then later set it to the foregroundWindow again using setForegroundWindow().

LOCAL hWnd := GETFOREGROUNDWINDOW()

DLL32 FUNCTION GETFOREGROUNDWINDOW() AS LONG;
PASCAL FROM "GetForegroundWindow" LIB "user32.dll"

Regards,
James