FiveTech Software tech support forums

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

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"

 

Regards Maurizio
Maurizio

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