Простой пример (+)

Замечание к документу "В форуме выложи, pls... Мне тоже интересно посмотреть... (-)" >>>

Тема: Простой пример (+)

Создан:

Vitaliy A Bourchenkov 05/23/2001 10:02 AM

Папка:
06. Разработка Notes-приложений

Тип сообщения:
Дополнение

Сообщение:
DECLARATIONS:

Type ShellExecuteInfo
cbSize As Long
fMask As Long
hwnd As Long
lpVerb As String
lpFile As String
lpParameters As String
lpDirectory As String
nShow As Long
hInstApp As Long
lpIDList As Long
lpClass As String
hkeyClass As Long
dwHotKey As Long
hIcon As Long
hProcess As Long
End Type

Const SEE_MASK_NOCLOSEPROCESS = &H40
Const SEE_MASK_FLAG_DDEWAIT = &H100
Const SW_HIDE = 0
Const SW_SHOWNORMAL = 1
Const SW_NORMAL = 1
Const SW_SHOWMINIMIZED = 2
Const SW_SHOWMAXIMIZED = 3
Const SW_MAXIMIZE = 3
Const SW_SHOWNOACTIVATE = 4
Const SW_SHOW = 5
Const SW_MINIMIZE = 6
Const SW_SHOWMINNOACTIVE = 7
Const SW_SHOWNA = 8
Const SW_RESTORE = 9
Const SW_SHOWDEFAULT = 10
Const SW_FORCEMINIMIZE = 11
Const SW_MAX = 11

Declare Function ShellExecuteExA Lib "SHELL32.DLL"(sei As ShellExecuteInfo) As Integer
Declare Function GetLastError Lib "KERNEL32" () As Long

SUB INITIALIZE
Dim sei As ShellExecuteInfo
Dim res As Integer

sei.fMask = SEE_MASK_FLAG_DDEWAIT
sei.hwnd = 0
sei.lpParameters =""
sei.lpDirectory=""
sei.hInstApp=0
sei.lpVerb = "Open" 'Указываем тип действия,
' можно еще,например, "Print"
sei.lpFile = "C:\sample.tif" 'Путь к открываемому файлу
sei.nShow = SW_NORMAL 'Способ показа окна приложения
sei.cbSize = Len(sei)

res = ShellExecuteExA(sei)
If res = 0 Then Messagebox GetLastError 'Можно узнать код ошибки
END SUB

P.S.Должно запуститься приложение, с которым на данной машине связан тип TIF.