Exibindo a janela Executar Programas


Quer executar qualquer programa a partir de seu programa VB ? Pensou no comando SHELL ? Vamos mostrar outra maneira de executar um programa através da exibiçao da janela executar programas. Para isto usaremos API ( é claro !!! )

Vamos a rotina:

Private Declare Function SHRunDialog Lib "shell32" Alias "#61" (ByVal hOwner As Long, ByVal UnknownP1 _
As Long, ByVal UnknownP2 As Long, ByVal szTitle _
As String, ByVal szPrompt As String, ByVal uFlags _
As Long) As Long

Public Sub ShowRunDialog(ByRef CallingForm As Form, Optional Title As String, _
Optional Description As String)

If Title = "" Then Title = "Executar"

If Description = "" Then Description = _
 "Informe o nome do programa a executar; quando terminar clique no botão OK ."

SHRunDialog CallingForm.hWnd, 0, 0, Title, Description, 0

End Sub
Private Sub Command1_Click()

  Call ShowRunDialog(Me, "Janela Executar Programas Selecione um aplicativo e clique OK ")

End Sub

Aqui chamamos a API - ShowRunDialog passando como parâmetro o nome do formulário e o título da janela.

O resultado ao rodar o seu projeto e clicar no botão de comando deve ser o exibido na tela abaixo: Você pode então selecionar um aplicativo para executar.

É isto ai !!  até a próxima dica...