RusFAQ.ru: Программирование на Basic / VBA
| Информационный Канал Subscribe.Ru |
/ КОМПЬЮТЕРЫ И ПО / Языки программирования / Basic/VBA
Выпуск № 144
от 30.10.2005, 22:30
| Администратор: | Калашников О.А. |
| В рассылке: | Подписчиков: 122, Экспертов: 21 |
| В номере: | Вопросов: 1, Ответов: 6 |
Вопрос № 28305: Здравствуйте, Эксперты! Создаю DVD-диск с программами. Также хочу сделать загрузочное меню к диску, то есть чтобы пользователь выбрал опцию (command) и пошла установка программы. Как это можно осуществить с помощью Visual Basic 6? Какие с...
| Вопрос № 28.305 |
|
Здравствуйте, Эксперты! Создаю DVD-диск с программами. Также хочу сделать загрузочное меню к диску, то есть чтобы пользователь выбрал опцию (command) и пошла установка программы. Как это можно осуществить с помощью Visual Basic 6? Какие строчки надо добавить? То есть при клике на опцию автозагрузочного меню, запустился exe файл (установочный). Надеюсь, понятно объяснил. Спасибо. P.S. С основами Visual Basic'a 6 знаком. |
| Отправлен: 25.10.2005, 23:27 Вопрос задал: Иванов Евгений Андреевич (статус: 1-ый класс) Всего ответов: 6 Мини-форум вопроса >>> (сообщений: 1) |
| Отвечает: Licvidator Здравствуйте, Иванов Евгений Андреевич! ммм.. вы про авторан диска? тогда сделайте файлик AUTORUN.INF и пропишите там [autorun] open=имя_вашей_программы.exe icon=имя_вашей_программы.exe,0 и положите этот файлик в корень dvd-диска. |
| Ответ отправил: Licvidator (статус: Профессор) Отправлен: 26.10.2005, 00:08 Оценка за ответ: 5 Комментарий оценки: Ну с авторан это понятно. Только я спрашивал как создать меню этого авторан диска в Visual Basic 6? |
| Отвечает: Чурсанов Евгений Ильич Здравствуйте, Иванов Евгений Андреевич! Тебе нужно объявить API функцию ShellExecute и запускать с помощью неё все твои установщики. Пример в приложении. Надеюсь он понятен. :) P.S. А копирайт тебя не беспокоит??? :) Приложение: |
| Ответ отправил: Чурсанов Евгений Ильич (статус: 4-ый класс) Отправлен: 26.10.2005, 00:11 Оценка за ответ: 5 Комментарий оценки: К сожалению я полный ламер :-))) Объясни пожалуйста поподробней. Значит у меня есть форма, в ней я пишу: Option Explicit 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 И все? Больше ничего не надо добавлять/завершать? Затем создаю "кнопки" (Command) и в них прописываю путь (например :WinRarWinRar.exe) Правильно? Мне выдает ошибку. P.S. Копирайт-это уже из другой оперы :-))) |
| Отвечает: Евгений Неверов Здравствуйте, Иванов Евгений Андреевич! В начало формы вставьте код: 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 А потом скопируйте в форму нижеприведённую функцию. Вызов такой: RunFile (Me.hWnd, "setup.exe", "", "ДИСК:") Приложение: |
| Ответ отправил: Евгений Неверов (статус: Студент) Отправлен: 26.10.2005, 06:18 |
| Отвечает: _Виталий Здравствуйте, Иванов Евгений Андреевич! RE>>Затем создаю "кнопки" (Command) и в них прописываю путь (например :WinRarWinRar.exe) >>Правильно? >>Мне выдает ошибку. Выдает ошибку потому, что не указал диск. Диск с которого запущен авторан можно определить следующим образом. ---------------------------------- Dim sDrv As String Option Explicit Private Sub Form_Load() 'определяем букву диска где запустили авторан sDrv = Left(App.Path, 2) End Sub Private Sub Command1_Click() 'например нажимаем кнопку для установки Winrar'а Call Shell(sDrv + "winrarwinrar.exe") End Sub ------------------------------------ И никаких API объявлять не нужно, всё можно сделать готовыми средствами VB. |
| Ответ отправил: _Виталий (статус: 8-ой класс) Отправлен: 26.10.2005, 08:46 |
| Отвечает: Miklucho Здравствуйте, Иванов Евгений Андреевич! Для открытия всяких не exe файлов можно использовать програмулину winopen (http://www.duckware.com/winopen/index.html). А exe файлы, в том числе и саму winopen, запускаем из VB командой shell(PathName, [WindowStyle As VbAppWinstyle="vbMinimizedFocus])." Чтобы запустить программу с CD(DVD) помещаем на него файл autorun.ini, а в сам файл добавляем строчку open=ИмяФайла.exe. Кажется так, но ты посмотри любой CD c автозагрузкой, там такой файл точно есть. |
| Ответ отправил: Miklucho (статус: Студент) Отправлен: 27.10.2005, 10:20 |
| Отвечает: Залетин Виталий Викторович Здравствуйте, Иванов Евгений Андреевич! А авторун чем не подходит? Напишите прогу, сделайте в ней любое меню и все. Запускайте ее авторуном и ShellExecuteEx будет запускаться любой экзешник. Можно еще и CreateProcess... --------- Учиться никогда не поздно. Особенно программированию! |
| Ответ отправил: Залетин Виталий Викторович (статус: 6-ой класс) Отправлен: 29.10.2005, 16:20 |
© 2001-2005, RusFAQ.ru, Россия, Москва. Все права защищены.
Идея, дизайн, программирование, авторское право: Калашников О.А.
Subscribe.Ru
Поддержка подписчиков
Другие рассылки этой тематики
Другие рассылки этого автора
Подписан адрес:
Код этой рассылки:
comp.soft.prog.basicvba
Архив рассылки
Отписаться
Вспомнить пароль
| В избранное | ||
