Algo similar al IsExeRunning()

[RodolfoRBG]

Colocando al inicio de mi sistema la funcion: IsExeRunning(cFileNoPath(HB_ArgV(0))) me indica .F. si en un servidor nadie mas esta usando el mismo sistema. Perfecto!

Pero si mas adelante vuelvo a usar la misma funcion en mi sistema, ya me regresa un .T., supongo que es porque soy yo mismo quien esta usando el sistema, pero como puedo saber si alguien mas, aparte de mi, lo esta usando?

Salu2

[karinha]

Haga asi:

Code: Select all  Expand view

   IF ISEXERUNNING( CFILENAME( HB_ARGV( 0 ) ) )
      __Quit()
   ENDIF
 


Saludos.