FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour Algo similar al IsExeRunning()
Posts: 257
Joined: Tue May 16, 2006 04:46 PM
Algo similar al IsExeRunning()
Posted: Thu Aug 04, 2016 04:41 PM

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

RodolfoRBG
FWH 1307, xHarbour123 BCC582
rodolfoerbg@gmail.com
Posts: 8523
Joined: Tue Dec 20, 2005 07:36 PM
Re: Algo similar al IsExeRunning()
Posted: Thu Aug 04, 2016 04:55 PM
Haga asi:

Code (fw): Select all Collapse
   IF ISEXERUNNING( CFILENAME( HB_ARGV( 0 ) ) )
      __Quit()
   ENDIF


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

Continue the discussion