Перейти из форума на сайт.

НовостиФайловые архивы
ПоискАктивные темыТоп лист
ПравилаКто в on-line?
Вход Забыли пароль? Первый раз на этом сайте? Регистрация
Компьютерный форум Ru.Board » Компьютеры » Программы » Закладки » Indigo Rose AutoPlay Media Studio (часть 1)

Модерирует : gyra, Maz

Widok (03-09-2007 23:10): лимит страниц. продолжаем здесь  Версия для печати • ПодписатьсяДобавить в закладки
Страницы: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101

   

maykop3000



Full Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
Для ленивых и нетерпеливых обзор темы aka FAQ
 
Где почитать:
------------------------
Для начала читаем статьи: тут раз илитут раз и два и три
Скриптовый язык LUA (англ) На русском здесь,  еще тут и  тут
Видео-уроки (анг)  
 
 
Где поживиться:
----------------------------
Видео-уроки (Flash) от производителя (англ)
Тоже официальное видео (англ)
Бесплатные шаблоны (маски) для окон ваших приложений (англ)
"Подарки к Рождеству" на оффсайте (англ)
Плагин LuaCOM (англ)
Примеры для начинающих (англ)
Неплохие примеры, библиотеки (англ)
Еще примеры, один из самых активных юзеров на оффоруме (англ)
Плагины и библиотеки (не все free) (англ)
Еще плагины (англ)
Собрание уроков (иногда с русскими объяснениями)  
 
Где найти ответы на вопросы:
------------------------------------
Проблема с путями при создании приложения .EXE и ресурсами на CD от Reineke
Запуск файлов из Web объекта
Реализация Play-листов для Винампа от BOObastis
Виды путей, используемых в AMS от GOOSE
Таблица дисков системы от Lexua
Вывод HTML отчета с использованием SQLite плагина от IndigoRose
Используем таймер
Полноэкранный режим для приложения
Показ\скрытие объектов по действиям мыши
Последовательный запуск нескольких файлов
Запуск WinRARa для распаковки архивов от Reineke
Изменяем скроллинг ListBox-у от GOOSE
Изменяем курсор в приложении от GOOSE
Перенос строки во всплывающей подсказке от GOOSE
Изменяем иконку приложения от Lexua
Включение\отключение фоновой музыки кнопкой
Отправка данных из форм по e-mail от GOOSE
Запускаем экзешник по информации из реестра от Lexua
Утилита для защиты авторанов
Из окна в полноэкранный режим и обратно
Для тех, у кого русский проект с "кракозяблами"
Выделение и копирование в буфер текста\части текста от GOOSE
Работаем с запароленными архивами от GOOSE
Работаем с объектом дерева от GOOSE
Проигрвывание MP3 из ListBox-а подряд от UMode
Простой пример бегущей строки от GOOSE
И более красивый от tavria2
Ряд вопросов и ответов по созданию меню для DVD от tavria2
 
------------------------
Шапка исправлена. Актуально на 3.08.06 GOOSE
------------------------
 
Разработчиков autorun'ов и графических дизайнеров приглашаем посетить проект шаблонов для Autoplay Media Studio:
http://ams-templates.com

Всего записей: 544 | Зарегистр. 24-09-2002 | Отправлено: 23:32 05-12-2002 | Исправлено: Maz, 12:33 25-09-2017
NightW0lf



Full Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Спасибо за ответ, tavria2!
 
Все работает!  
А теперь как мне сделать обработку ошибки при условии если нет инсталлятора, то перед тем запустится сам инсталлятор и autorun.exe будет закрыт – выскачет это сообщение "Ошибка", "Инсталлятор не найден!" (если нет инсталлятора).  
 
В этом коде:

Код:
if (run_install == IDYES) then  
    File.Run("SETUP\\setup.exe", "", "", SW_SHOWNORMAL, false);  
    Application.Exit(0);  
end
 


Всего записей: 479 | Зарегистр. 08-11-2006 | Отправлено: 13:17 24-11-2006 | Исправлено: NightW0lf, 16:12 24-11-2006
tavria2



Advanced Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
NightW0lf
См. справку File.Run, там как раз есть пример с проверкой на ошибку.

Всего записей: 1127 | Зарегистр. 19-01-2005 | Отправлено: 20:44 24-11-2006
NightW0lf



Full Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
tavria2
 
То что описано в справке об разделе «File.Run» я знаю.  
Мне надо НЕ просто при запуске инсталлятора проверять на наличии ошибки (это я сделал), а при запуске функции которая запустит инсталлятор и в этот момент закроет мой autorun.exe (вот здесь и надо мне проверить на наличии ошибки, а не там)

Всего записей: 479 | Зарегистр. 08-11-2006 | Отправлено: 21:40 24-11-2006
tavria2



Advanced Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
NightW0lf
Что-то я уже совсем ничего не понимаю, ты хочешь закрыть проект, а потом сделать проверку на ошибку?

Всего записей: 1127 | Зарегистр. 19-01-2005 | Отправлено: 23:44 24-11-2006 | Исправлено: tavria2, 23:44 24-11-2006
DenVl



Junior Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Нужна помощь!
Имеется zip-архив, который лежит в папке Cd Root и оюъект Progress1 на странице проекта, как сделать чтоб на On Preload страницы  началась распаковка архива в некоторую временную папку и прогресс этой распаковки отображался в объекте Progress1.

Всего записей: 58 | Зарегистр. 01-07-2006 | Отправлено: 15:19 25-11-2006
NightW0lf



Full Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
tavria2

Цитата:
Что-то я уже совсем ничего не понимаю, ты хочешь закрыть проект, а потом сделать проверку на ошибку?

Мне надо чтобы при нажатии на кнопку установить появлялся диалог, который предлагает мне установить игру, далее запускается инсталлятор и закрывается мой autorun.exe (это я сделал!), А ВОТ и суть моего вопроса в том, что если хоть какая-нибудь ошибка присутствует (например - в каталоге нет самого инсталлятора и т.п.) ТО происходит следующее - при нажатии на кнопку установить появляется диалог, который предлагает мне установить игру, далее инсталлятор НЕ запускается, а вот мой autorun.exe  закрывается БЕЗ всяких намеков на ошибку!
Вот тот самый код который должен обрабатывать ошибку:

Код:
 
search_reg_data = Registry.GetValue(HKEY_CURRENT_USER, "Software\\7-Zip", "Path", true); -- читаем значение из реестра  
 
if search_reg_data == "" then -- если в реестре нет записи  
run_install = Dialog.Message("Установка", "Вы уверены, что хотите продолжить установку?", MB_YESNO, MB_ICONINFORMATION, MB_DEFBUTTON1);  
if (run_install == IDYES) then  
File.Run("SETUP\\setup.exe", "", "", SW_SHOWNORMAL, true);  
end
 

Всего записей: 479 | Зарегистр. 08-11-2006 | Отправлено: 16:35 25-11-2006 | Исправлено: NightW0lf, 16:40 25-11-2006
tavria2



Advanced Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
NightW0lf
Добавь просто выход из проекта после File.Run. Если инсталлятор отсутствует - проект будет закрыт без сообщений об ошибке. Если всеже нужно сообщение об ошибке, см. справку File.Run => Пример 3 - там как раз есть пример с проверкой на ошибку, которая обрабатывается после выполнения твоего File.Run.
 
P.S. Все вышесказанное уже было изложено в предыдущих постах, толчем воду в ступе.

Всего записей: 1127 | Зарегистр. 19-01-2005 | Отправлено: 19:53 25-11-2006 | Исправлено: tavria2, 20:05 25-11-2006
tavria2



Advanced Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
DenVl
Цитата:
... как сделать чтоб на On Preload страницы  началась распаковка архива в некоторую временную папку и прогресс этой распаковки отображался в объекте Progress1.

Из On Preload страницы, ты не достучишься к объектам, т.к. в этот момент страница еще не загружена, пиши код в On Show страницы.
Добавь на страницу следующие объекты:
  1. Progress с именем "Progress_Current" - прогресс текущего файла
  2. Progress с именем "Progress_Total" - общий прогресс
  3. Label с именем "Label_Info" - информация распаковки
  4. Button с именем "Button_Cancel" - кнопка прерывания процесса распаковки
 
On Show страницы
Код:
-- Объявляем переменные
cFileZip = _SourceFolder.."\\MyFile.zip"; -- путь к zip-файлу
cPathExtract = "C:\\TEMP"; -- папка для распаковки
lBreakExtract = false; -- флаг прерывания процесса распаковки
 
-- Функция управлением прогресса
function CallBack(String, Percent, Status)
    Label.SetText("Label_Info", String); -- инфо распаковки    
    if (Status == ZIP_STATUS_MINOR) then -- прогресс текущего файла
        Progress.SetCurrentPos("Progress_Current", Percent); -- позиция прогресса текущего файла
        Progress.SetText("Progress_Current", Percent.."%"); -- отображение процента выполнения
    else -- общий прогресс
        Progress.SetCurrentPos("Progress_Total", Percent); -- позиция общего прогресса
        Progress.SetText("Progress_Total", Percent.."%"); -- отображение процента выполнения
    end
    -- Разрешение/Запрещение продолжения распаковки
    if (lBreakExtract) then -- установлен флаг прерывания процесса распаковки
        return false; -- прервать процесс распаковки
    else -- не установлен флаг прерывания процесса распаковки
        return true; -- продолжать процесс распаковки
    end
end
 
Zip.Extract(cFileZip, {"*.*"}, cPathExtract, true, true, "", ZIP_OVERWRITE_NEVER, CallBack);

 
On Click "Button_Cancel"
Код:
lBreakExtract = true;    -- прервать процесс распаковки

Всего записей: 1127 | Зарегистр. 19-01-2005 | Отправлено: 22:31 25-11-2006 | Исправлено: tavria2, 22:37 25-11-2006
DenVl



Junior Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
tavria2
А можно еще какой-нидь код добавить, чтоб пока идет распаковка архива, ничаво нельзя было нажимать, т.е. какой нидь sleep страницы. Спасибо..

Всего записей: 58 | Зарегистр. 01-07-2006 | Отправлено: 16:51 26-11-2006
tavria2



Advanced Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
DenVl
В объектах есть такое св-во SetEnabled, которое отвечает за блокировку/разблокировку объекта. Блокируй необходимые объекты до начала распаковки, по ее окончанию - разблокируй.

Всего записей: 1127 | Зарегистр. 19-01-2005 | Отправлено: 18:37 26-11-2006
NightW0lf



Full Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
У кого ни будь есть русская справка для Autoplay Media Studio v6.0.x? А то уже мой русик для AutoPlay Media Studio 6.0.4.0 Full Retail Cracked by Kindly почти готов, и вот хочется справку тоже на русском добавить.    
 
P.S. сорри за офф топик!

Всего записей: 479 | Зарегистр. 08-11-2006 | Отправлено: 20:09 26-11-2006 | Исправлено: NightW0lf, 20:10 26-11-2006
Andreyrr

Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
В проекте используется объект Область ввода.  
При установке стиля ввода как Стандарт  
Все работает нормально и в английской и в русской раскладке клавиатуры.  
 
Но мне необходимо использовать маску ввода, чтобы первая буква вводимого текста была заглавной  
Отмечаю маска ввода и прописываю >????????????  
При английской клавиатуре все работает нормально, при переходе на русскую напечатать в поле ввода ничего нельзя.  
 
Как быть?  
 
И еще вопрос. Как сделать, чтобы при открытии страницы или запуска готового проекта клавиатура автоматический переключалась на Русский.

Всего записей: 26 | Зарегистр. 13-06-2006 | Отправлено: 10:56 28-11-2006
tavria2



Advanced Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Andreyrr

Цитата:
При английской клавиатуре все работает нормально, при переходе на русскую напечатать в поле ввода ничего нельзя.  
 
Маска ввода пропускает символы только первой половины кодовой таблицы [0-9] и [A-z]. IMHO с русским здесь - тупик .

Цитата:
Как сделать, чтобы при открытии страницы или запуска готового проекта клавиатура автоматический переключалась на Русский.

Пример с использованием API:
Исправлено! (была допущена ошибка в возвращаемом типе)
Код:
EN = "00000409"; -- английский
RU = "00000419"; -- русский
UK = "00000422"; -- украинский
 
function SelLang(cLang)
    cResult = DLL.CallFunction(_SystemFolder.."\\user32.dll", "LoadKeyboardLayoutA", "\""..cLang.."\",1", DLL_RETURN_TYPE_LONG, DLL_CALL_STDCALL);
    cHexResult = "0000"..String.Right(string.format("%X", cResult), 4); -- конвертирование Dec в Hex
    if (cLang == cHexResult) then return true else return false end
end
-- вызов ф-ции переключения раскладки клавиатуры
if SelLang(RU) then  
    Dialog.Message("", "Успешно!");
else
    Dialog.Message("", "Ошибка!");
end

Всего записей: 1127 | Зарегистр. 19-01-2005 | Отправлено: 14:05 28-11-2006 | Исправлено: tavria2, 17:34 28-11-2006
DenVl



Junior Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
можно ли как-нидь узнать скоко времени будет распаковываться архив?

Всего записей: 58 | Зарегистр. 01-07-2006 | Отправлено: 15:40 28-11-2006
NightW0lf



Full Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
tavria2
Большое спасибо!
С тем я разобрался.
А как сделать (мне просто интересно), чтобы если инсталлятор не найден то выскачет сообщение с ошибкой и проект останется открытым, а если все нормально (т.е. нет ошибок) то просто запустится инсталлятор, а проект будет закрыт?

Всего записей: 479 | Зарегистр. 08-11-2006 | Отправлено: 15:45 28-11-2006
tavria2



Advanced Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
DenVl

Цитата:
можно ли как-нидь узнать скоко времени будет распаковываться архив?

Возможно я ошибаюсь, но скорее всего нельзя, т.к. для расчета времени необходимо знать размеры файлов в архиве и кол-во обработанных байт. К сожалению штатный архиватор не дает таких данных.
 
Как вариант, можно попробовать использовать внешние архиваторы.


NightW0lf

Цитата:
А как сделать (мне просто интересно), чтобы если инсталлятор не найден то выскачет сообщение с ошибкой и проект останется открытым, а если все нормально (т.е. нет ошибок) то просто запустится инсталлятор, а проект будет закрыт?

Чесно говоря я хотел, чтобы ты сам к этому пришел, ну ладно держи код:
Код:
if (File.DoesExist("SETUP\\setup.exe")) then
    File.Run("SETUP\\setup.exe", "", "", SW_SHOWNORMAL, false);
    Application.Exit(0);  
else
    Dialog.Message("Ошибка!", "Инсталлятор не найден.", MB_OK, MB_ICONSTOP, MB_DEFBUTTON1);
end

Всего записей: 1127 | Зарегистр. 19-01-2005 | Отправлено: 19:28 28-11-2006 | Исправлено: tavria2, 19:54 28-11-2006
Andreyrr

Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Спасибо за совет по поводу клавиатуры. Все работает.
 
Еще вопрос, на странице много объектов для ввода информации, как сделать чтобы при открытии страницы курсор располагался в нужном объекте ввода.

Всего записей: 26 | Зарегистр. 13-06-2006 | Отправлено: 04:47 29-11-2006
GOOSE



Advanced Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Andreyrr

Цитата:
как сделать чтобы при открытии страницы курсор располагался в нужном объекте ввода.

На вкладке On Show добавь строчку

Код:
Page.SetFocus("имя_нужного_объекта");


----------
AutoPlay Media Studio по-русски!
Русский хелп AutoPlay Media Studio

Всего записей: 903 | Зарегистр. 17-10-2001 | Отправлено: 10:47 29-11-2006 | Исправлено: GOOSE, 10:49 29-11-2006
GOOSE



Advanced Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
tavria2

Цитата:
Маска ввода пропускает символы только первой половины кодовой таблицы [0-9] и [A-z]. IMHO с русским здесь - тупик  

Тупик, кстати, не только с русским, но и немецким...
В свое время бился-бился, задолбал оффорум, но так и не решили эту проблему

----------
AutoPlay Media Studio по-русски!
Русский хелп AutoPlay Media Studio

Всего записей: 903 | Зарегистр. 17-10-2001 | Отправлено: 18:02 29-11-2006
NightW0lf



Full Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
tavria2
У меня проблема! Почему-то из-за вот этого кода

Код:
 
if (File.DoesExist("SETUP\\setup.exe")) then  
    File.Run("SETUP\\setup.exe", "", "", SW_SHOWNORMAL, false);  
    Application.Exit(0);    
else  
    Dialog.Message("Ошибка!", "Инсталлятор не найден!", MB_OK, MB_ICONSTOP, MB_DEFBUTTON1);  
end
 

Перестал работать вот этот код

Код:
 
else -- в реестре есть запись  
run_install = Dialog.Message("Установка", "Игра уже установлена, хотите продолжить?", MB_YESNO, MB_ICONINFORMATION, MB_DEFBUTTON1);
if (run_install == IDYES) then
File.Run("SETUP\\setup.exe", "", "", SW_SHOWNORMAL, true);
end
end
end
 

Всего записей: 479 | Зарегистр. 08-11-2006 | Отправлено: 21:33 30-11-2006
   

Страницы: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101

Компьютерный форум Ru.Board » Компьютеры » Программы » Закладки » Indigo Rose AutoPlay Media Studio (часть 1)
Widok (03-09-2007 23:10): лимит страниц. продолжаем здесь


Реклама на форуме Ru.Board.

Powered by Ikonboard "v2.1.7b" © 2000 Ikonboard.com
Modified by Ru.B0ard
© Ru.B0ard 2000-2024

BitCoin: 1NGG1chHtUvrtEqjeerQCKDMUi6S6CG4iC

Рейтинг.ru