Como evitar que un progama (exe) se ejecute mas de una vez ?

Posts: 243

Joined: Wed Sep 19, 2007 04:32 PM

Como evitar que un progama (exe) se ejecute mas de una vez ?
Posted: Mon Feb 11, 2008 06:41 PM

Saludos amigos del foro; tengo esta inquietud para evitar que un programa (exe) se ejecuta en mas de una ocasion.
Me sucede mucho con mis clientes, que al minimizar una de mis aplicaciones, vuelven a ejecutar una vez tras otra.
Creo que lei algo por ahi, hace tiempo, pero no recuerdo donde...

Saludos desde Honduras

Oscar A. Martinez
http://www.multisofthn.com
Honduras, Centro America
xHarbour Enterprise 1.2.2, Fivewin 13.06

FWHISHOW

Posts: 80

Joined: Thu Nov 29, 2007 02:01 PM

Como evitar que un progama (exe) se ejecute mas de una vez ?
Posted: Mon Feb 11, 2008 06:46 PM

function main()

IF ISEXERUNNING( CFILENAME( HB_ARGV( 0 ) ) )
msginfo("SGR JÁ ESTÁ SENDO EXECUTADO !!!")
RETURN
ENDIF

...

return(nil)

Espero ter ajudado!

GUSPRE

Posts: 94

Joined: Thu May 11, 2006 10:00 PM

Como evitar que un progama (exe) se ejecute mas de una vez ?
Posted: Mon Feb 11, 2008 08:50 PM

Si se esta ejecutando sale y maximiza la aplicación abierta.-

Code: Select all Collapse

*---------Chequer SI GESTIONER ESTA CARGADO ---
IF IsExeRunning( cFileName( HB_ARGV( 0 ) ) )
   ShowApplication()
	 QUIT
ENDIF
*----------------------------------------------

Code: Select all Collapse

FUNCTION ShowApplication()

LOCAL hWnd := FindWnd("Titulo Ventana Principal")

IF hWnd != nil
	 IF isIconic( hWnd )
	 		showWindow( hWnd, SW_RESTORE )
	 ENDIF
   SetForeGroundWindow( hWnd )
ENDIF

RETURN NIL

GUSTAVO PREDIGER

karinha

Posts: 8515

Joined: Tue Dec 20, 2005 07:36 PM

Como evitar que un progama (exe) se ejecute mas de una vez ?
Posted: Tue Feb 12, 2008 11:47 AM

Por favor, donde esta esto? FindWnd ????? Esto nos es una FUNCTION()???

Code: Select all Collapse

    LOCAL hWnd := FindWnd( "Titulo Ventana Principal" )

João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341

GUSPRE

Posts: 94

Joined: Thu May 11, 2006 10:00 PM

Como evitar que un progama (exe) se ejecute mas de una vez ?
Posted: Tue Feb 12, 2008 12:12 PM

aca va saludos,

Code: Select all Collapse

*---------------------------------------------------------*
FUNCTION FindWnd( cTitle )

LOCAL hWnd := GetWindow( GetDesktopWindow(), GW_CHILD )

WHILE hWnd != 0
      IF Upper( cTitle ) $ Upper( GetWindowText( hWnd ) )
         RETURN hWnd
			ENDIF
      hWnd = GetWindow( hWnd, GW_HWNDNEXT )
ENDDO

RETURN NIL

GUSTAVO PREDIGER

Andrés González

Posts: 632

Joined: Thu Jan 19, 2006 10:45 AM

Como evitar que un progama (exe) se ejecute mas de una vez ?
Posted: Tue Feb 12, 2008 12:20 PM

Revisa en ejemplos ShowApp.prg alli la tienes

Saludos

Andrés González desde Mallorca

Marcelo Via Giglio

Posts: 1088

Joined: Fri Oct 07, 2005 03:33 PM

Re: Como evitar que un progama (exe) se ejecute mas de una v
Posted: Tue Feb 12, 2008 12:21 PM

Hola,

busca la clase tmutex es para eso

saludos

Marcelo

Blessed wrote:Saludos amigos del foro; tengo esta inquietud para evitar que un programa (exe) se ejecuta en mas de una ocasion.
Me sucede mucho con mis clientes, que al minimizar una de mis aplicaciones, vuelven a ejecutar una vez tras otra.
Creo que lei algo por ahi, hace tiempo, pero no recuerdo donde...

Saludos desde Honduras

karinha

Posts: 8515

Joined: Tue Dec 20, 2005 07:36 PM

Como evitar que un progama (exe) se ejecute mas de una vez ?
Posted: Tue Feb 12, 2008 12:58 PM

GUSPRE wrote:aca va saludos,

Code: Select all Collapse

*---------------------------------------------------------*
FUNCTION FindWnd( cTitle )

LOCAL hWnd := GetWindow( GetDesktopWindow(), GW_CHILD )

WHILE hWnd != 0
      IF Upper( cTitle ) $ Upper( GetWindowText( hWnd ) )
         RETURN hWnd
			ENDIF
      hWnd = GetWindow( hWnd, GW_HWNDNEXT )
ENDDO

RETURN NIL

Gracias amigo,

Ahora, tu respuesta esta completa.

Very Good!

Saludos.

João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341

Blessed

Posts: 243

Joined: Wed Sep 19, 2007 04:32 PM

Gracias
Posted: Tue Feb 12, 2008 09:05 PM

Saludos amigos del foro:

Gracias por el interes a todos

Un abrazo desde desde Honduras

Oscar A. Martinez
http://www.multisofthn.com
Honduras, Centro America
xHarbour Enterprise 1.2.2, Fivewin 13.06

FiveTech Support Forums

Continue the discussion