Функция ShellExecuteEx

Declare Function ShellExecuteEx Lib "shell32.dll" Alias "ShellExecuteExA" (lpExecInfo As SHELLEXECUTEINFO) As Long
ShellExecuteEx открывает, печатает или запускает файл, используя оболочку Windows. При работе с неисполняемыми файлами, они будут открыты программой, ассоциированной с этим файлом. Например, bmp-файл будет открыт программой Paint(как правило). ShellExecuteEx также может открыть Проводник
lpExecInfo
Структура, которая содержит или получает информацию о запускаемой программе

Пример

' Откроем окно свойств файла "C:\Windows\license.txt"

' Создадим процедуру-оболочку для функции
Sub ShowProps(FileName As String, OwnerhWnd As Long)
  Dim SEI As SHELLEXECUTEINFO
  Dim r As Long
  With SEI
   .cbSize = Len(SEI)
   .fMask = SEE_MASK_NOCLOSEPROCESS Or _
    SEE_MASK_INVOKEIDLIST Or SEE_MASK_FLAG_NO_UI
    .hwnd = OwnerhWnd
    ' Показываем окно свойств
    .lpVerb = "properties"
    ' Имя файла
    .lpFile = FileName
    .lpParameters = vbNullChar
    .lpDirectory = vbNullChar
    .nShow = 0
    .hInstApp = 0
    .lpIDList = 0
    End With
    r = ShellExecuteEx(SEI)
End Sub

Private Sub Command1_Click()
     ShowProps "c:\windows\license.txt", Me.hwnd
End Sub

Смотри также

ShellExecute

Категория

Оболочка