FiveTech Software tech support forums

This way you put a window foreground

SetForeGroundWindow( oWnd:hWnd )

Next, do you want to close it ?

... := "C:\TEMP\ZERUS\" LOCAL APP_TITLE := "RUSSOFT - Lector de Huellas" LOCAL hWnd := FindWindow( 0, APP_TITLE ) IF hWnd > 0 SetForeGroundWindow( hWnd ) ELSE ShellExecute( , "open", "LECTOR.BAT " ,; ["] + M->cCajIni + [" ] + ; ["] + ALLTRIM(m->cNomUsr) ...

... hWnd := FindWnd( "Keeping at top" ) // Title !!! IF hWnd != NIL IF ISICONIC( hWnd ) SHOWWINDOW( hWnd, SW_RESTORE ) ENDIF IF nType = 1 SETFOREGROUNDWINDOW( hWnd ) ENDIF IF nType = 2 SENDMESSAGE( hWnd, WM_CLOSE ) ENDIF //ELSE // MsgAlert( "COLORPICKER is not running !", "Attention" ...

... ) ) MsgWait(NOME_PROGRAMMA_TITLE+" è già in esecuzione !","Attenzione") SHOWWINDOW( FINDWINDOW( 0, NOME_PROGRAMMA_TITLE ), 9 ) SETFOREGROUNDWINDOW( FINDWINDOW( 0, NOME_PROGRAMMA_TITLE ) ) RETURN NIL ENDIF La finestra prima si chiama ""STUDIO" e lui mi dice che ...

... := "C:\TEMP\ZERUS\" LOCAL APP_TITLE := "RUSSOFT - Lector de Huellas" LOCAL hWnd := FindWindow( 0, APP_TITLE ) IF hWnd > 0 SetForeGroundWindow( hWnd ) // SI YA ESTA EN EJECUCION ..SOLO LO TRAE AL FRENTE ELSE ShellExecute( , "open", "LECTOR.BAT " ,; ["] ...

Gustavo,

Try to use SetForeGroundWindow( hWnd ) instead of SetFocus( hWnd )

... hWnd := FindWnd( "COLOR-PICKER 1.1" ) // Title !!! IF hWnd != NIL IF ISICONIC( hWnd ) SHOWWINDOW( hWnd, SW_RESTORE ) ENDIF IF nType = 1 SETFOREGROUNDWINDOW( hWnd ) ENDIF IF nType = 2 SENDMESSAGE( hWnd, WM_CLOSE ) ENDIF ELSE MsgAlert( "COLORPICKER is not running !", "Attention" ...

... CFILENAME := "COLORPICK.exe" IF ISEXERUNNING( CFILENAME( HB_ARGV( 0 ) ) ) SHOWWINDOW( FINDWINDOW( 0, "COLORPICK" ), 9 ) SETFOREGROUNDWINDOW( FINDWINDOW( 0, "COLORPICK" ) ) ENDIF RETURN NIL both are not working The main-lines from Colorpick.prg .. .. DEFINE WINDOW ...

Hello!

I need to give focus to my application when it happens a condition.

I'm using a function called by the Timer to verify this condition.

I've tried the ShowWindow () functions and SetForegroundWindow () but without obtaining the desired result.

Any suggestions?

Thank you

... + APP_TITLE + " ya esta siendo ejecutado!" ) hWnd := FindWindow( APP_TITLE ) IF hWnd > 0 IF IsIconic( hWnd ) Restore( hWnd ) ELSE SetForeGroundWindow( hWnd ) ENDIF ELSE * MsgStop( "No es possible encontrar el programa !", "Error", , .f. ) ENDIF ELSE //EJECUTA ...

... function Main() IF ISEXERUNNING( CFILENOEXT( HB_ARGV( 0 ) ) ) SHOWWINDOW( FINDWINDOW( 0, "TUTOR01" ), 9 ) SETFOREGROUNDWINDOW( FINDWINDOW( 0, "TUTOR01" ) ) msginfo([EMG]) RETURN NIL ENDIF MsgInfo( FWVERSION + Chr( 13 ) + FWCOPYRIGHT, FWDESCRIPTION ...

HI, this code: (by EMG)

IF ISEXERUNNING( CFILENOEXT( HB_ARGV( 0 ) ) )
SHOWWINDOW( FINDWINDOW( 0, "Titolo tua finestra" ), 9 )
SETFOREGROUNDWINDOW( FINDWINDOW( 0, "Titolo tua finestra" ) )
RETURN NIL
ENDIF

works before build window of exe?

Donde encontro las funciones:
SetWinLonA(oexcelsolver:hWnd,-16,"L") //Es la función API SetWindowLongA, en este caso quita la barra de titulo de excel
SetForeWin(oexcelsolver:hWnd) //Es la funcion API SetForegroundWindow tiene que ir antes de la llamada a setparent()
Gracias,
Oscar Ribeiro

... 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" ...

... //Es la función API SetWindowLongA, en este caso quita la barra de titulo de excel SetForeWin(oexcelsolver:hWnd) //Es la funcion API SetForegroundWindow tiene que ir antes de la llamada a setparent() SetParent(oexcelsolver:hWnd,oWnd:hWnd) //Incrusta Excel en mi ventana oWnd:SetText( ...