Declare Sub RunDialog Lib "shell32" Alias "#61" (ByVal hOwner As Long, ByVal hIcon As Long, ByVal sDir As String, ByVal sTitle As String, ByVal sPrompt As String, ByVal uFlags As Long) As Long
Функция RunDialog официально не задокументирована. RunDialog вызывает диалог "Запуск программы". Это то же самое диалоговое окно, которое появляется при выборе пользователем "Выполнить" в меню кнопки Пуск
Функция не возвращает никаких значений
Run_NOBROWSE = 1 | Убрать кнопку Найти |
Run_NODEFAULT = 2 | Оставить чистым текстовое поле |
Run_CALCDIRECTORY = 4 | Получить рабочую директорию из имени файла |
Run_NOLABEL = 8 | Убрать надпись перед текстовым полем |
' Добавьте код в нужное место
RunDialog Me.hwnd, 0, 0, "Запуск программы", "Введите имя программы", 0