NightW0lf
Full Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
-- Ф-ция установки "WarCraft III"
function Install_Game()
if (File.DoesExist(cFileName)) then -- Файл найден
Audio.Pause(CHANNEL_BACKGROUND); -- Ставим на паузу музыку
sound=false;
Window.Hide(handle); -- Скрываем "autorun.exe"
File.Run(cFileName, "", "", SW_SHOWNORMAL, true); -- Запуск инсталлятора без ожидания завершения
result = Registry.DoesKeyExist(HKEY_LOCAL_MACHINE, "Software\\Blizzard Entertainment\\Warcraft III", "Install_Dir", true); -- Если после установки найден ключ то кнопки:
if result then
Label.SetEnabled("label_install", false); -- Не актвная кнопка "Установить"
Label.SetEnabled("label_play", true); -- Актвная кнопка "Запустить"
Label.SetEnabled("label_uninstall", true); -- Актвная кнопка "Удалить"
end
Window.Show(handle); -- Показываем "autorun.exe"
Audio.Play(CHANNEL_BACKGROUND); -- Воспроизводим музыку
sound=true;
else -- Файл не найден
Dialog.Message("Ошибка", "Инсталлятор не найден!", MB_OK, MB_ICONSTOP, MB_DEFBUTTON1);
end
end
-- Переменные
handle = Application.GetWndHandle();
cFileName = "SETUP\\setup_wc3.exe"; -- Полное имя файла установки
run_message_Install_Game = Dialog.Message("Установка - WarCraft III + Frozen Throne v1.20", "Вы уверены, что хотите продолжить установку?", MB_YESNO, MB_ICONINFORMATION, MB_DEFBUTTON1); -- Вопрос
if (run_message_Install_Game == IDYES) then
Install_Game();-- Вызов ф-ции установки "WarCraft III"
end
|
Всего записей: 479 | Зарегистр. 08-11-2006 | Отправлено: 22:02 02-02-2007 | Исправлено: NightW0lf, 22:07 02-02-2007 |
|
