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

Gracias Ana !!!

"Ana María Bisbé York" escribió en el mensaje
news:%

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
>
>