Função Shellexecute

[Bruno Krebs]

Já faz algum tempo que eu utilizei essa função para chamar e abrir arquivos .pdf e não me lembro como se utiliza, alguém saberia me dizer como??

Desde já, obrigado!

[Decio]

Nem testei pra ver se funciona, mas achei o código abaixo:

' =- Ferramentas VB

' http://www.geocities.com/SiliconValley/Sector/1496/

'

' Abre o programa associado a um tipo de arquivo.

'

' há duas maneiras para se fazer isso:

'

' 1. Usando o programa Start

ValorRetorno = Shell("C:\Windows\Command\Start nomearquivo.extensao") ' ou

ValorRetorno = Shell("C:\Windows\Command\Start usuario@provedor.com") ' ou ainda

ValorRetorno = Shell("C:\Windows\Command\Start http://www.aaa.com")

' 2. Usando o código abaixo

' Num módulo declare:

#If Win32 Then

Public 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

#Else

Public Declare Function ShellExecute Lib _

"shell.dll" _

(ByVal hwnd As Integer, _

ByVal lpOperation As String, _

ByVal lpFile As String, _

ByVal lpParameters As String, _

ByVal lpDirectory As String, _

ByVal nShowCmd As Integer) As Integer

#End If

Public Const SW_SHOWNORMAL = 1

' No evento Click de qualquer controle:

Dim iret As Long

iret = ShellExecute(Me.hwnd, vbNullString, Label1.Caption, vbNullString, "C:\", SW_SHOWNORMAL)

' Exemplos de uso:

'

' -- Substituindo o Label1.Caption por "http://www.vbtools.home.ml.org" irá

' abrir o browser padrão na página da Ferramentas VB.

'

' -- Por "d:\teste.txt" irá abrir o Notepad com esse arquivo.