• Revista PROGRAMAR: Já está disponível a edição #53 da revista programar. Faz já o download aqui!

bsntuga

[VB6] ShellExecute Exemplo

1 mensagem neste tópico

Basta um simples snippet para iniciar uma aplicação através da API ShellExecute Aka ShellExecuteA

Coloque no topo do Form/Módulo

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

Form


Private Sub Form_Main()
ShellExecute Me.Hwnd,vbNullString,"C:/windows/system32/calc.exe",vbNullString,"C:/",vbnullstring
Msgbox "Calculator Started "
End Sub

Module


Sub_Main()
ShellExecute Me.Hwnd,vbNullString,"C:/windows/system32/calc.exe",vbNullString,"C:/",vbnullstring
Msgbox "Calculator Started "
End Sub

Function


Private Function ShellExe() As String
shellexe = ShellExecute(Me.Hwnd,vbNullString,"C:/windows/system32/calc.exe",vbNullString,"C:/",vbnullstring)
Msgbox "Calculator Started "
End Sub

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!


Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.


Entrar Agora