Problema con API FindWindow

[pandemonio]

si lo que quieres hacer es esperar a que tu aplicacion espere a que termine la ejecucion de la ventana del DOS, te paso un tip, que aqui mismo me dieron:


en tu programa en lugar de usar el shell
usa esta funcion

ExeEspera "comando ms-dos"

Private Function ExeEspera(COMANDO As String)
    Dim hProcess As Long
    Dim RetVal As Long
    hProcess = OpenProcess(PROCESS_QUERY_INFORMATION, False, Shell(COMANDO, vbMinimizedNoFocus))
    Do
        GetExitCodeProcess hProcess, RetVal
        DoEvents
        Pausa 100
    Loop While RetVal = STILL_ACTIVE
End Function

Gracias CeLaYa por el código, pero le hace falta algunas cosas, como funciones y APIS, con las APIS no hay problema, pero sí con las funciones, pero no importa, ya solucioné el problema de otra forma (sencilla y que no consume muchos recursos). Esta fue la solución:

Código [Seleccionar] Expandir



Dim Success%

Private Function FileExists%(fname$)
   On Local Error Resume Next
   Dim ff%
   ff% = FreeFile
   Open fname$ For Input As ff%
   If Err Then
       FileExists% = False
   Else
       FileExists% = True
   End If
   Close ff%
End Function

Private Sub Command1_Click()
1
   'Se ejecuta el primer proceso
   '
   '
   '
   
   '
   '
   'Se ejecuta el proceso de MS-DOS
   '
   '
   '
   
   'Se prepara la función para comprobar la existencia de Archivo.txt
   Success% = FileExists(App.Path & "\Archivo.txt")
   
   'En caso de ser verdadero
   If Success% = True Then
       'Se ejecuta el proceso que deseo
   Else
'        Se regresa al primer proceso hasta que se encuentre el archivo
       GoTo 1
   End If
   'Se continua con otro proceso
End Sub



Obviamente no está completo el código, pero con esto cualquiera se da una idea de que ya pude llevar a cabo lo que quería. Muchas gracias por tu ayuda.

No estaría mal que publicaras el código completo que mostraste al principio, quizás me sea más útil que lo que encontré.

[CeLaYa]

Public Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long

Private Function ExeEspera(COMANDO As String)
    Dim hProcess As Long
    Dim RetVal As Long
    hProcess = OpenProcess(PROCESS_QUERY_INFORMATION, False, Shell(COMANDO, vbMinimizedNoFocus))
    Do
        GetExitCodeProcess hProcess, RetVal
        DoEvents
        Pausa 100
    Loop While RetVal = STILL_ACTIVE
End Function


puedes mandar llamar la funcion asi:


ExeEspera "c:\archiv~1\winzip\winzip32.exe -a -r " & Archivo & ".zip " & Archivo & ".bak"


lo que hago aqui esque comprimo un archivo y la aplicacion se detiene hasta que el winzip ha terminado de comprimir

[CeLaYa]

ups!!! se me paso poner esta declaracion

Public Declare Function GetExitCodeProcess Lib "kernel32" (ByVal hProcess As Long, lpExitCode As Long) As Long

[pandemonio]

ups!!! se me paso poner esta declaracion

Public Declare Function GetExitCodeProcess Lib "kernel32" (ByVal hProcess As Long, lpExitCode As Long) As Long

Gracias, disculpa pero faltó la declaración de la constante STILL_ACTIVE, aunque si la declaras con el valor de 1 funciona. El código quedaría así:

Código [Seleccionar] Expandir



Private Declare Function OpenProcess Lib "kernel32" _
    (ByVal dwDesiredAccess As Long, _
    ByVal bInheritHandle As Long, _
    ByVal dwProcessId As Long) As Long

Private Declare Function GetExitCodeProcess Lib "kernel32" _
    (ByVal hProcess As Long, lpExitCode As Long) As Long

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Const STILL_ACTIVE = 1

Private Function ExeEspera(COMANDO As String)
    Dim hProcess As Long
    Dim RetVal As Long
    hProcess = OpenProcess(PROCESS_QUERY_INFORMATION, False, Shell(COMANDO, vbMinimizedNoFocus))
    Do
        GetExitCodeProcess hProcess, RetVal
        DoEvents
        Sleep 1000
    Loop While RetVal = STILL_ACTIVE
End Function

Private Sub Command1_Click()
'    ExeEspera "ping 124.32.54.4"
    Dim Winzip As String
    Dim ArchivoZIP As String
    Dim PorComprimir As String
   
    ArchivoZIP = "C:\temp\ArchivoZIP.zip"
    PorComprimir = "C:\temp\PorComprimir.txt"
    Winzip = "C:\Archivos de programa\WinZip\winzip32.exe -a -r "
   
    ExeEspera Winzip & ArchivoZIP & " " & PorComprimir
   
    MsgBox "Listo"
End Sub



Pero me parece que no funciona correctamente, ya que el MsgBox aparece antes de que termine el proceso, pero quizás me estoy equivocando.