Windows Vista

[clemerson]

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]

Clemerson,

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

Code: Select all | Expand

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 

[derpipu]

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.

[clemerson]

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

Clemerson

[Rossine]

Olá Clemerson,

Veja se é isto que você precisa:

Code: Select all | Expand

#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 nilfunction ShowApplication   local hWnd := FindWindow( 0, "Teste" )   if hWnd != nil      showwindow( hWnd, 0 )      showwindow( hWnd, 6 )      showwindow( hWnd, 9 )   endifreturn nil

Abraços,

Rossine.