No funciona IsExeRunning()

[thefull]

Antonio, esto;
IsExeRunning( cFileName( HB_ARGV( 0 ) ) )

Funciona perfecto, excepto cuando la aplicacion esta corriendo como servicio, devuelve .F.

Intento que el ejecutable solamente existe UNO corriendo..

[karinha]

Intente asi,

Code: Select all  Expand view  RUN

    IF ( ISEXERUNNING( "VENTAS.EXE" ) )

        MsgStop("ESTE PROGRAMA YA SE ENCUENTRA ABIERTO", "ATENçION!")

        RETURN( .F. )

    ENDIF


Saludos.

[thefull]

Intente asi,

Code: Select all  Expand view  RUN

    IF ( ISEXERUNNING( "VENTAS.EXE" ) )

        MsgStop("ESTE PROGRAMA YA SE ENCUENTRA ABIERTO", "ATENçION!")

        RETURN( .F. )

    ENDIF


Saludos.

No funciona. ;-(
Uno es llamado desde el servicio, otro es desde la linea de comandos,
si lo creo desde la linea de comandos, y lo llamo desde la linea de comandos si que funciona, pero me interesa que funcione desde el servicio.

[Antonio Linares]

Rafa,

Prueba a usar esta modificación de IsExeRunning():

Code: Select all  Expand view  RUN

HB_FUNC( ISSERVICERUNNIG )
{
   HANDLE hMutex = CreateMutex( NULL, FALSE, ( LPTSTR ) hb_parc( 1 ) );

   hb_retl( GetLastError() == ERROR_ALREADY_EXISTS );

   ReleaseMutex( hMutex );
}


[thefull]

Rafa,

Prueba a usar esta modificación de IsExeRunning():

Code: Select all  Expand view  RUN

HB_FUNC( ISSERVICERUNNIG )
{
   HANDLE hMutex = CreateMutex( NULL, FALSE, ( LPTSTR ) hb_parc( 1 ) );

   hb_retl( GetLastError() == ERROR_ALREADY_EXISTS );

   ReleaseMutex( hMutex );
}


No funciona.
El problema no es crear el servicio, porque si arranco el servicio;
net start test1
si lo vuelvo a intentar, ya el propio Windows da error.

El problema radica que si ahora hago desde la linea de comandos;
test1

Se ejecuta, y lo que estoy buscando es que NO SE EJECUTE si esta ya
corriendo el servicio.

El problema es que no puedo preguntar si esta el servicio corriendo, ya lo he intentado, porque me dice que si;

FUNCTION MAIN()

IF EstaCorriendoelServicio()
quit
ENDIF

Y claro, NUNCA se ejecutaría, porque cuando llega a esa linea, ESTA CORRIENDO!! y se cancela el programa.

El problema es que aunque nuestro programa sea un servicio, realmente no lo es... por ello es bastante complicado encontrar donde se puede
buscar los 3 pies al gato.

Vamos, que lo que seria lo más simple , se me esta convirtiendo en toda una odisea.

[cuatecatl82]

TheFull:

Saludos y buenos días desde Mexicco:

Se me ocurre algo de lo mas simple para el control de milti-instancias de tu aplicacion que trabaja servicio, talvez no venga al caso, pero es una idea a fin de cuentas:

Crea una base de datos "disfrazada como otro archivo con extención diferente", con 2 campos logicos: ENUSO y SALIDA en las cuales puedes controlar y llamar a una función que te devurlva el valor logico si esta en uso y otro valor logico para sabe si el servicio o la aplicación termino su ejecucuón en forma correcta.

Para poder controlar y comparar que no se use en dos ocasiones ya sea desde linea de comando por ejecucíon directa.

Digo es solo una de las mas simples soluciones..

Ojala y puedas encontrar una idea un poco mas brillante y puedas comentarla...

Saludos...

[thefull]

Digo es solo una de las mas simples soluciones..

Ojala y puedas encontrar una idea un poco mas brillante y puedas comentarla...

Saludos...

El problema es que no quiero depender de algo externo.
La razón es muy simple, te apagan la maquina a la brava, entonces, cuando arranca la maquina de nuevo, la aplicación no arrancará....

Siempre he tenido problemas varios, con soluciones basadas en txt, dbf, etc..
por lo que siempre intento evitarlo en la media que sea posible.

Muchas gracias de todas formas por tu aporte.

[Antonio Linares]

Rafa,

Has probado a usar FindWindow( 0, cTitle ) ?

Si encuentras la ventana anterior entonces el servicio ya estaría funcionando.

[thefull]

Rafa,

Has probado a usar FindWindow( 0, cTitle ) ?

Si encuentras la ventana anterior entonces el servicio ya estaría funcionando.

PERFECTO ANTONIO!!

hWnd := FindWindow( 0, cTitle )

if hWnd != 0
showWindow( hWnd, SW_RESTORE )
quit
endif

Funciona de pelotas. Muchas gracias.!!!

[karinha]

Rafa, podrias testar esto, se funciona?? Por favor.

Code: Select all  Expand view  RUN

    IF ISWINDOWVISIBLE( hWnd )
        QUIT
    ENDIF


Gracias,

saludos

[thefull]

Rafa, podrias testar esto, se funciona?? Por favor.

Code: Select all  Expand view  RUN

    IF ISWINDOWVISIBLE( hWnd )
        QUIT
    ENDIF


Gracias,

saludos

¿ Como puedes saber el hWnd , si no es buscándolo previamente ?
Lo que hace esa función es saber si esta o no visible la ventana.

Si con FindWindow() ya obtengo el hWnd, ya se que esta corriendo,
el preguntar si esta o no visible es redundante.

Lo que interesa saber es SI EXISTE esa ventana.

[Alfredo Arteaga]

Bueno, FindWindow() parece funcionar pero si hay una MDIChild maximizada permite abrir nuevamente la aplicación lo mismo sucede con TWCapture().

[thefull]

Bueno, FindWindow() parece funcionar pero si hay una MDIChild maximizada permite abrir nuevamente la aplicación lo mismo sucede con TWCapture().

Supongo porque deberias tener en cuenta todos los posibles nombres de las ventanas.

Si abres una MDI y la maximizas, el TITULO de la ventana cambia, por lo tanto NO ES IGUAL al que pretendes buscar, que seria el titulo inicial
de la aplicacion.

Como tengo una simple ventana, ya que va a actuar como servicio, no tengo eso posible problema, pero con MDI, si deberiamos tenerlo en cuenta.