How to bring app to top if already running?

[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

[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

[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.)