Ejecucion del programa

[JoseGS]

Hola amigos:

Como puedo hacer para que el sistema solamente se habra una vez. Es decir, que no se puedan abrir varias veces el programa ?

Gacias
y saludos a todos

[Manuel Aranda]

SET MULTIPLE OFF

[csincuir]

Puese probar tambien de esta forma:

Code: Select all

  IF ISEXERUNNING( CFILENAME( HB_ARGV( 0 ) ) ) 
     RETURN NIL 
  ENDIF
 

[JoseGS]

Gracias amigos

[Jairo Barbosa]

Manuel yo uso esto con exito


IF IsExeRunning( cFileName( HB_ARGV(0) ) )
Msginfo("No es posible iniciar..."+CRLF+;
"el programa esta abierto en"+CRLF+;
"segundo plano")
return
ENDIF

Al inicio del prg

Jairo