Como evito que una APP sea "abierta" 2 veces en la misma PC?

Hola Walter:

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,
La Habana, Cuba.
Madrid, España.
Ayuda a FoxPro. Legaliza tu copia.

"Walter Valle" escribió en el mensaje
news:#

Saludos a todos, como lo evito? Gracias de atemano !!!

Walter Valle