Funcion para no poder ejecutar mi aplicacion 2 veces

Algunas funciones de la API de Windows
Enviado por: Luis María Guayán
http://www.portalfox.com/article.php?sid"8

allí al final está la UDF YaActiva() que te sirve para controlar la
ejecución de la aplicación con el Caption de la misma.


Luis María Guayán
Vicente Trapani S.A.
Tucumán, Argentina
_____________________________________________
Microsoft Visual FoxPro MVP
SysOp de PortalFox - http://www.portalfox.com
_____________________________________________
Proteje al zorro, úsalo legalmente



"Marcelo Rodrigo Sosa" wrote in message
news:
Mostrar la cita

Hola compañeros, creo que en alguna parte en algun lugar existe una
funcion
para saber o para hacer que mi aplicacion no la puedan ejecutar (.exe) mas
de una vez.

Desde ya muchas gracias.
Saludos.

Gracias LMG
"Luis María Guayán" escribió en el mensaje
news:#
Mostrar la cita

Algunas funciones de la API de Windows
Enviado por: Luis María Guayán
http://www.portalfox.com/article.php?sid"8

allí al final está la UDF YaActiva() que te sirve para controlar la
ejecución de la aplicación con el Caption de la misma.


Luis María Guayán
Vicente Trapani S.A.
Tucumán, Argentina
_____________________________________________
Microsoft Visual FoxPro MVP
SysOp de PortalFox - http://www.portalfox.com
_____________________________________________
Proteje al zorro, úsalo legalmente



"Marcelo Rodrigo Sosa" wrote in message
news:
> Hola compañeros, creo que en alguna parte en algun lugar existe una
> funcion
> para saber o para hacer que mi aplicacion no la puedan ejecutar (.exe)

mas
Mostrar la cita

> de una vez.
>
> Desde ya muchas gracias.
> Saludos.
>
>

Hola Marcelo:

Quizás esto te ayude.

Estaba publicado en Portal Fox
Por Luis María Guayán

_EstaActiva('Calculadora')

* NOTA: Como parámetro debo enviar el caption de la aplicación
* que quiero verificar si está activa.

*--
Function _EstaActiva(tcCaption)
*--
* Verifica si una aplicación ya está activa
* USO: _EstaActiva(<Caption_de_la_aplicación>)
* RETORNA: .T. Si la aplicación está activa
*--
DECLARE INTEGER FindWindow in WIN32API ;
STRING cNULL, ;
STRING cWinName

return FindWindow(0, tcCaption) # 0
EndFunc

Saludos,

Ana

"Marcelo Rodrigo Sosa" escribió en el mensaje
news:
Mostrar la cita

Hola compañeros, creo que en alguna parte en algun lugar existe una

funcion
Mostrar la cita

para saber o para hacer que mi aplicacion no la puedan ejecutar (.exe) mas
de una vez.

Desde ya muchas gracias.
Saludos.