Открытие файлов

[Malone32®]

Как сделать так, чтобы при выборе какого-либо файла при помощи Common Dialog этот файл открывался программой, используемой по умолчанию?? Например, если был выбран mp3-файл, то его проигрывал Winamp и т.п.

[Memfivosfey]

Либо вычитывать из реестра установленые для расшиоений приложения, либо самому прописать путь к WinAmp, AcdSee и т.д. (или в настройках программы сделать установки путей)... потом, отловив расширение, запускать файл конкретной программой.

[hCORe]

ShellExecute?

[mr.first]

hCORe прав
Dim sdg As Object
Set sdg = CreateObject("Shell.Application")
sdg.ShellExecute NameFile, "", , , 10

[tyomitch]

hCORe прав
Dim sdg As Object
Set sdg = CreateObject("Shell.Application")
sdg.ShellExecute NameFile, "", , , 10

Это будет работать только в Win2000+

[Александр80]

hCORe правильно писал, попробуй передать путь к файлу в ShellExecute... Должно сработать...

Код: Выделить всё

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
Const SW_SHOWNORMAL = 1
Private Sub Form_Load()
       'Send an E-Mail to the KPD-Team
    ShellExecute Me.hwnd, vbNullString, "mailto:KPDTeam@Allapi.net", vbNullString, "C:\", SW_SHOWNORMAL
End Sub