Page 1 of 1

How to bring app to top if already running?

Posted: Fri May 07, 2010 12:57 pm
by Ariston (BR)
HI. (Oi)

How can I have the app brounght to top if a try tu run it agian. (Como faço para trazer o aplicativo para a frente se eu tentar executá-lo novamente?)

Ariston Santos.
FWPPC

Re: How to bring app to top if already running?

Posted: Fri May 07, 2010 2:54 pm
by Maurizio

Code: Select all

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"

 
Regards Maurizio
Maurizio

Re: How to bring app to top if already running?

Posted: Fri May 07, 2010 3:38 pm
by Ariston (BR)
Thank you very much, friend. I'm gonna test it now.
Muito obrigado, amigo. Vou testar agora.

Editado (Edited)

It worked. Thanks again. (Funcionou. Obrigado novamente.)