Hola amigos como verifico que el programa está en ejecución, para que el usuario no lo cargue varias veces en memoria.

Gracias, Feliz nuevo año 2015
Juan Fco.

SetMultiple( <lOnOff> ) –> nil
<lOnOff> Permits or not permits multiple instances

http://www.fivetechsoft.com/wiki/doku.p ... etmultiple

SET MULTIPLE [ ON | OFF ]
In 32 bits the same can be achieved by using the following code

// Check whether the application is already running in the same PC
if IsExeRunning( cFileName( HB_ARGV( 0 ) ) )
MsgWait( "Another instance of this application is already running in this PC", "Multiple Instance not allowed" )
Return NIL
endif

http://www.fivetechsoft.com/wiki/doku.p ... s_multiple

Gracias a ambos por su ayuda

IF IsExeRunning( cFileNoPath( HB_ArgV( 0 ) ) ) // Sirve para verificar si ya se ejecuto el Exe...
MsgBox( "El programa " + APP_TITLE + " ya esta siendo ejecutado!" )

hWnd := FindWindow( APP_TITLE )
IF hWnd > 0
IF IsIconic( hWnd )
Restore( hWnd )
ELSE
SetForeGroundWindow( hWnd )
ENDIF
ELSE
* MsgStop( "No es possible encontrar el programa !", "Error", , .f. )
ENDIF
ELSE
//EJECUTA EL EXE
ENDIF

/////*****

pragma BEGINDUMP

define HB_OS_WIN_USED

define _WIN32_WINNT 0x0400

include <windows.h>

include "hbapi.h"

include "hbapiitm.h"

HB_FUNC( ISICONIC )
{
hb_retl( IsIconic( ( HWND ) hb_parnl( 1 ) ) );
}

HB_FUNC ( FINDWINDOW )
{
hb_retnl( ( LONG ) FindWindow( 0, hb_parc( 1 ) ) );
}

HB_FUNC( ISEXERUNNING ) // ( cExeNameCaseSensitive ) --> lResult
{
HANDLE hMutex = CreateMutex( NULL, TRUE, ( LPTSTR ) hb_parc(1) );

hb_retl( GetLastError() == ERROR_ALREADY_EXISTS );

ReleaseMutex( hMutex );
}

pragma ENDDUMP

Gracias, resuelto con sus ayuda

jrestojeda wrote:Hola,
Prueba lo siguiente:

Code (fw): Select all Collapse

cEjecutable:="SEGUROS.EXE"
IF IsExeRunning(cEjecutable)
   MsgStop("La aplicación ya se está ejecutando","Atención!!!")
   Return nil
ENDIF

Code (fw): Select all Collapse

// VERIFICO SI UN PROGRAMA ESTÁ CORRIENDO //
Function IsExeRunning(cExeVerifica)
Local cTexto,lRespuesta

WAITRUN( "CMD.EXE /C TASKLIST > TASKLIST.TXT" , .f. )

cTexto:=MEMOREAD( "TASKLIST.TXT" )

IF AT(cExeVerifica,cTexto) > 0
   lRespuesta:=.t.
ELSE
   lRespuesta:=.f.
ENDIF

FERASE("TASKLIST.TXT")

Return lRespuesta
//

Espero te sirva la idea.
Saludos,

Saludos, se que este tema ya es viejo...pero ahora que estoy usando IsExeRunning, pregunto...HAY MANERA DE HACER QUE ADEMAS DE DECIRME QUE MI APLICACION YA ESTA EN USO....ESTA TOME EL FOCUS DE LAS APLICACIONES ABIERTAS O SI ESTA MINIMIZADA SE MAXIMIZE ASI COMO SE HACE CON LAS VENTANAS MDI.? si es asi, como y si no, ni modo, lo que quiero es que si el usuario ejecuta mas de una vez la aplicacion, esta se le ponga al frente asi como cuando se tienen varias ventanas medi y se trata de abrir una ya abierta o algo que resalte y le diga al cliente que alli esta ademas de decirle que ya esta en ejecucion...saludos, gracias...

José Luis:

EL código que sugerí en este hilo hace lo que necesitas.

Saludos

Biel EA6DD wrote:Tomando como base la función de Cristobal, en lugar de cerrar la aplicación (oProcess:Terminate(0)) podrias darle el foco

Code (fw): Select all Collapse

      oWShell := CreateObject("WScript.Shell")
      oWShell:AppActivate(oProcess:ProcessId)

Armando wrote:José Luis:

EL código que sugerí en este hilo hace lo que necesitas.

Saludos