Demo entry 6657963

Esto es una prueba de vfo

   

Submitted by pepelui on Nov 05, 2017 at 16:50
Language: FoxPro. Code size: 697 Bytes.

FUNCTION APLICACION_ESTA_EJECUTANDOSE
LParameters tcNombreAplicacion
Local llResultado, lcIdentificador, lcNombreTestigo
 
  if Empty(tcNombreAplicacion)
    Return (.T.)
  endif
 
  lcIdentificador = StrTran(tcNombreAplicacion, " ", "")
 
  lcNombreTestigo = "_Testigo_" + lcIdentificador
 
  if WExist(lcNombreTestigo)
    Return (.T.)
  endif
 
  DECLARE INTEGER FindWindow IN WIN32API AS API_EncontrarVentana ;
    STRING, ;
    STRING
 
  if API_EncontrarVentana(.NULL., lcIdentificador) > 0
    Return (.T.)
  endif
 
  DEFINE WINDOW &lcNombreTestigo ;
    FROM  1, 1 ;
    TO    2, 2 ;
    TITLE lcIdentificador ;
    IN    DESKTOP
 
  Return (.F.)
 
ENDFUNC

This snippet took 0.01 seconds to highlight.

Back to the Entry List or Home.

Delete this entry (admin only).