Как запустить файл в связанной с ним программе

@sputnik-2110 · Регистрация: 02.04.2010

Author24 — интернет-сервис помощи студентам

пожалуйста подскажите как запустить файл в связанной с ним программе например *.ТХТ в блокноте и.т.д.
Заранее благодарен!

@pl · 28.04.2010, 18:55

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

Dim RetVal As Long

RetVal = ShellExecute(Me.hWnd, 'open', '''' & App.Path & ' ' & 123.txt & '''', '', '', SW_SHOWNORMAL)

@sputnik-2110 · 10.05.2010, 17:26 **[ТС]**

Спасибо огромное

@sputnik-2110 0 / 0 / 0 Регистрация: 02.04.2010 Сообщений: 7
		1
	Как запустить файл в связанной с ним программе 28.04.2010, 18:47. Показов 618. Ответов 2 Метки нет (Все метки) пожалуйста подскажите как запустить файл в связанной с ним программе например *.ТХТ в блокноте и.т.д. Заранее благодарен! 0

@pl 51 / 17 / 6 Регистрация: 18.05.2007 Сообщений: 1,322
	28.04.2010, 18:55	2
	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 Dim RetVal As Long RetVal = ShellExecute(Me.hWnd, 'open', '''' & App.Path & ' ' & 123.txt & '''', '', '', SW_SHOWNORMAL) 0

@sputnik-2110 0 / 0 / 0 Регистрация: 02.04.2010 Сообщений: 7
	10.05.2010, 17:26 [ТС]	3
	Спасибо огромное 0