Buen dia a todos.... Tengo una aplicación desde la cual estoy cargando un navegador (con su respectiva pagina web), de la siguiente forma:
Código:
Dim api%
api% = ShellExecute(frm.hwnd, "open", url$, "", App.path, WindowStyle%)
Si la funcion me regresa un error despliego un mensaje...
Código:
If api% < 31 Then
MsgBox "Ocurrio un problema al correr tu navegador"
ElseIf api% = 32 Then
MsgBox "No existe asociacion de archivos .html con ningun programa en tu equipo"
End If
Cuando el navegador carga correctamente la página todo funciona perfecto y le regresa el control a mi aplicación despues de cargar el navegador, pero .... Cuando alguno de los dos mensajes anteriores es presentado, mi aplicación se bloquea y no regresa, hay que terminarla con el administrador de tareas. El primer mensaje de error he conseguido obtenerlo al cerrar el navegador rapidamente antes de que termine de cargar.
Alguna idea de porque el control nunca regresa a la aplicación cuando ocurre un error?
Gracias