10.09.2004, 04:53
общий
это ответ
Здравствуйте, Писарева Татьяна!
Сначала объявляем две АПИ-функции:
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
Private Declare Function GetDesktopWindow Lib "user32" () As Long
Затем пишем код-обработчик:
path=путь_к_файлу
Call ShellExecute(GetDesktopWindow, "Open", path, "", "", 1)