comment
IRC Chat
play_arrow
Este sitio utiliza cookies propias y de terceros. Si continúa navegando consideramos que acepta el uso de cookies. OK Más Información.

Ejecutar un programa y esperar que finalice

  • 0 Respuestas
  • 1311 Vistas

0 Usuarios y 1 Visitante están viendo este tema.

Conectado ANTRAX

  • *
  • Administrator
  • Mensajes: 5331
  • Actividad:
    58.33%
  • Reputación 29
  • ANTRAX
    • Ver Perfil
    • Underc0de
    • Email
  • Skype: underc0de.org
  • Twitter: @Underc0de
« en: Julio 26, 2010, 01:55:55 pm »
Código: Visual Basic
  1. 'en un from
  2. Option Explicit
  3.  
  4. Private Const PROCESS_QUERY_INFORMATION = &H400
  5. Private Const STILL_ACTIVE = &H103
  6. Private Declare Function OpenProcess Lib "kernel32" _
  7. (ByVal dwDesiredAccess&, ByVal bInheritHandle&, ByVal dwProcessId&) _
  8. As Long
  9. Private Declare Function GetExitCodeProcess Lib "kernel32" _
  10. (ByVal hProcess As Long, lpExitCode As Long) _
  11. As Long
  12.  
  13. Sub EsperarShell(sCmd As String)
  14.  
  15. Dim hShell As Long
  16. Dim hProc As Long
  17. Dim codExit As Long
  18.  
  19. ' ejecutar comando
  20. hShell = Shell(Environ$("Comspec") & " /c " & sCmd, 2)
  21.  
  22. ' esperar a que se complete el proceso
  23. hProc = OpenProcess(PROCESS_QUERY_INFORMATION, False, hShell)
  24.  
  25. Do
  26. GetExitCodeProcess hProc, codExit
  27. DoEvents
  28. Loop While codExit = STILL_ACTIVE
  29.  
  30. End Sub
  31. 'Ejemplo
  32. Private Sub Command1_Click()
  33. EsperarShell ("calc.exe")
  34. msgbox "termino"
  35. End Sub
« Última modificación: Mayo 12, 2014, 03:19:52 pm por Expermicid »


 

¿Te gustó el post? COMPARTILO!



Actualizador para tus programa [modulo]

Iniciado por alexander1712

Respuestas: 3
Vistas: 2834
Último mensaje Julio 14, 2016, 10:16:11 pm
por noxonsoftwares
Finalizar un programa en ejecución

Iniciado por ANTRAX

Respuestas: 0
Vistas: 1258
Último mensaje Julio 26, 2010, 01:43:06 pm
por ANTRAX
Programa que registra sus ocx y dll

Iniciado por ANTRAX

Respuestas: 0
Vistas: 1634
Último mensaje Julio 26, 2010, 03:44:16 pm
por ANTRAX
Ejecutar Cualquier tipo de Archivos

Iniciado por ANTRAX

Respuestas: 1
Vistas: 1553
Último mensaje Julio 26, 2010, 12:50:40 pm
por _katze_
Como ejecutar un Stored Procedure

Iniciado por ANTRAX

Respuestas: 0
Vistas: 1513
Último mensaje Julio 26, 2010, 04:04:18 pm
por ANTRAX