Funcion FindWindow

10/08/2004 - 18:53 por Jorge Luis Vejerano | Informe spam

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")
******************************************************************************************

Siga el debate

2 respuestas

Tengo una respuesta

Preguntas similare

Mostrar todos los temas similares

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

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

Responder a este mensaje

#2 Pedro José Hernández Muñoz

17/08/2004 - 14:22 | Informe spam

Existe otra opción, revisar los procesos que se están ejecutando. En
UniversalThread busca el download numero: 22966 - Process Tools for VFP
www.universalthread.com

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

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

Siga el debate Respuesta

Responder a este mensaje

Ads by Google

Hacer una pregunta

Tengo una respuesta

Busqueda sugerida