topic-7829

Posts: 58

Joined: Fri Mar 10, 2006 08:13 PM

Windows Vista
Posted: Fri Aug 10, 2007 01:03 PM

Hi,

I access my system and to leave it, enter again and I say that this open granddaughter function... I give a time and I obtain to enter again, happens to each 10 attempts a time.

  oWnd:=FindWindow( 0, "Sistema - SysFar" )
  If oWnd!=0
     MsgAlert("O Programa SysFar já se encontra aberto ...","Informação !!!")
     BringWindowToTop( oWnd )
     Return(.f.)
  Endif

I use fwh 7.01

Clemerson

Antonio Linares

Posts: 44162

Joined: Thu Oct 06, 2005 05:47 PM

Windows Vista
Posted: Fri Aug 10, 2007 09:00 PM

Clemerson,

You could use an else just to check if the code fails sometimes:

Code: Select all Collapse

hWnd:=FindWindow( 0, "Sistema - SysFar" ) 
If hWnd!=0 
   MsgAlert("O Programa SysFar já se encontra aberto ...","Informação !!!") 
   BringWindowToTop( hWnd ) 
   Return(.f.) 
else
   MsgAlert( "can't find the main window" )
Endif

regards, saludos

Antonio Linares
www.fivetechsoft.com

derpipu

Posts: 94

Joined: Tue Mar 28, 2006 04:09 PM

check it
Posted: Fri Aug 10, 2007 11:08 PM

IF findWindow( 0,oApp:cEmpresa + oApp:cSistema) > 0
MsgWait( "Atención, el Programa ya está abierto...", oApp:cEmpresa + oApp:cSistema ); QUIT
ENDIF

Regards

Luis Fernando Rubio Rubio
Tequila, Jalisco, Mexico.

Luis Fernando Rubio Rubio

clemerson

Posts: 58

Joined: Fri Mar 10, 2006 08:13 PM

Windows Vista
Posted: Mon Aug 13, 2007 03:59 PM

ok, I go to make plus these tests...

Clemerson

Rossine

Posts: 344

Joined: Tue Oct 11, 2005 11:33 AM

Windows Vista
Posted: Thu Aug 16, 2007 01:05 PM

Olá Clemerson,

Veja se é isto que você precisa:

Code: Select all Collapse

#include "FiveWin.ch"

function Main

   local oWnd

   if IsExeRunning( cFileName( HB_ARGV( 0 ) ) )
      msgstop( "Este programa ja esta sendo executado !!!" )
      ShowApplication()
   else
      DEFINE WINDOW oWnd TITLE "Teste"

      ACTIVATE WINDOW oWnd
   endif
   
return nil

function ShowApplication

   local hWnd := FindWindow( 0, "Teste" )

   if hWnd != nil
      showwindow( hWnd, 0 )
      showwindow( hWnd, 6 )
      showwindow( hWnd, 9 )
   endif

return nil

Abraços,

Rossine.

Obrigado, Regards, Saludos

Rossine.

Harbour and Harbour++

FiveTech Support Forums

Continue the discussion