Impedir que la aplicación se cargue mas de una vez

Hola Luis Martin:

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.
"Luis Martin" escribió en el mensaje
news:

Hola amigos:

Hay alguna forma de impedir que la aplicación el usuario la cargue mas de
una vez?. Si es posible controlar esto, donde y como se hace ?. Uso VFP

5.0

con W98se.

Espero su ayuda.