Private Declare Function ShellEx Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As Any, ByVal lpDirectory As Any, ByVal nShowCmd As Long) As Long
Sub ShellDef(file_name)
x = ShellEx(Me.hwnd, "open", file_name, "", "", 10)
End Sub
Private Sub Command1_Click()
ShellDef ("c:\temp\text.txt")
End Sub
апи нет, юзай shell
ANDLL писал(а):Как я понял из поста, трабовалось запустить приложение, ассоциированное с каким-то типом файлов... А не какой-то файл
FesK писал(а):ANDLL писал(а):Как я понял из поста, трабовалось запустить приложение, ассоциированное с каким-то типом файлов... А не какой-то файл
Правильно понял
ANDLL писал(а):FesK писал(а):ANDLL писал(а):Как я понял из поста, трабовалось запустить приложение, ассоциированное с каким-то типом файлов... А не какой-то файл
Правильно понял
В таком слчае я прав. Такой API нет(и ShellExe... тебе не поможет). Делай так, как пищет Konst_One.
ANDLL писал(а):З.Ы. А ты на встрече, надеюсь, будешь?
Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 3