Forums Últimos mensajes - Powered by IBM
 
Tags Palabras claves

Funcion FindWindow

10/08/2004 - 18:53 por Jorge Luis Vejerano | Informe spam
Ayuda Hacer una pregunta
Buenos Días...

Necesito determinar si winzip está realizando una operación sobre un
archivo llamado clientes.zip. Este proceso demora como 1 minuto.

Utilizo la función FindWindow para saber si existe una ventana con el
Caption "WinZip-clientes.zip", pero parece que no me funciona. Digo que
no me funciona porque la funcion siempre me retorna el valor 0.
Alguna Sugerencia?

Saludos!

******************************************************************************************
LOCAL lcCaption as String

DECLARE INTEGER FindWindow IN user32;
STRING lpClassName,;
STRING lpWindowName

oShell = createobject("WScript.Shell")
oShell.Run("winzip -a -r -ex "+ALLTRIM(ruta2)+".zip "+ALLTRIM(ruta1)+"\*.*")

*lcCaption = "WinZip - "+ALLTRIM(SUBSTR(ruta2,4))+".zip"

DO WHILE FindWindow (.NULL., "WinZip-clientes.zip") <> 0

ENDDO

MESSAGEBOX("Jorge")
******************************************************************************************
email Siga el debateRespuesta 2 respuestasRespuesta Tengo una respuesta
DRAGON AGE™: INQUISITION – Matadragones
 

Leer las respuestas

#1 dtto086
14/08/2004 - 00:08 | Informe spam
Mira prove con esto y si me regresa "esta"

DECLARE INTEGER FindWindow IN user32;
STRING lpClassName, STRING lpWindowName

esta = FindWindow(.NULL.,"Bandeja de Entrada - Outlook Express")
if esta <> 0
messagebox("esta")
else
messagebox("no esta")
endif

en nombre de la ventana lo escribi tal y como aparece en el administrador de
tareas, por que no pruebas insertandole un espacio antes del "-" y despues
de el


"Jorge Luis Vejerano" escribió en el mensaje
news:
Buenos Días...

Necesito determinar si winzip está realizando una operación sobre un
archivo llamado clientes.zip. Este proceso demora como 1 minuto.

Utilizo la función FindWindow para saber si existe una ventana con el
Caption "WinZip-clientes.zip", pero parece que no me funciona. Digo que
no me funciona porque la funcion siempre me retorna el valor 0.
Alguna Sugerencia?

Saludos!




****************************************************************************
**************
LOCAL lcCaption as String

DECLARE INTEGER FindWindow IN user32;
STRING lpClassName,;
STRING lpWindowName

oShell = createobject("WScript.Shell")
oShell.Run("winzip -a -r -ex "+ALLTRIM(ruta2)+".zip


"+ALLTRIM(ruta1)+"\*.*")

*lcCaption = "WinZip - "+ALLTRIM(SUBSTR(ruta2,4))+".zip"

DO WHILE FindWindow (.NULL., "WinZip-clientes.zip") <> 0

ENDDO

MESSAGEBOX("Jorge")



****************************************************************************
**************

Preguntas similares

 

Busqueda sugerida :