» Autoplay Media Studio

Zloy_Gelud, ГЕНИАЛЬНО! )) Всё работает ))
Вот только столкнулся с таким: у меня на работе винда ENG, а дома - RUS. Соответственно, папки обзываются My documents и Мои документы. Можно ли задать относительный путь к этой папке? И ещё: где-то потерял темку, в которой описано, как обойти при авторане конфликт запуска двух файлов autorun.exe - из корня диска и из каталога AutoPlay\\Docs. Тыкните носом, плз )) СПАСИБО !!

Цитата:

На основе этого плагина вот тебе пример ~211.4 kB.

Огромное спасибо, Zloy_Gelud! Я так поимаю пример под 8ку Autoplay?

LEDRA

Цитата:

Я так поимаю пример под 8ку Autoplay?

Ну естесно.

---

vlom333

Цитата:

у меня на работе винда ENG, а дома - RUS. Соответственно, папки обзываются My documents и Мои документы. Можно ли задать относительный путь к этой папке?

Код: result = Shell.GetFolder(SHF_MYDOCUMENTS);

Zloy_Gelud, ДАНКЕ за относительность ))

А конфликт у меня получился такой: при запуске autorun.exe из корня диска этот самый autorun.exe копируется в папку ТЕМР и запускается оттуда, а autorun.exe из каталога AutoPlay\\Docs делает то же самое (( Ну, в смысле, пытается сделать... Хм... Туплю?

Zloy_Gelud

Вот оно Чудо НОВОГОДНЕЕ!!!

Работает! Пошел разбираться как)

Спасибо!

vlom333

Цитата:

Ну, в смысле, пытается сделать

Как это понять? Не запускается? Ошибка вываливается? Еще что-то?
И вообще, имхо, какая-то напутанная схема действий.. Какие стоят задачи?

Задача такая: вставляем диск, запускается авторан АМS. В нём нажимаем кнопочку и, по идее, должна начинаться установка из каталога AutoPlay\\Docs. А вываливается ошибка, т.к. autorun.exe из каталога AutoPlay\\Docs не может себя скопировать во временную папку из-за находящегося там и запущеного autorun.exe АМS.

vlom333
А зачем autorun.exe АМС копировать во временную папку?

Дык, фиг его знает: обнаружил случайно, когда собрал проект (( Посмотрю сегодня повнимательней - завтра отпишу )) СПС!

Добрый день, прошу помочь с реализацией затемнения всего экрана монитора, у меня получилось так

Image.SetOpacity("BigBlack", 0);
Image.SetSize("BigBlack", 1024, 768);
Image.SetOpacity("BigBlack", 10);
Image.SetOpacity("BigBlack", 20);
Image.SetOpacity("BigBlack", 30);
Image.SetOpacity("BigBlack", 40);
Image.SetOpacity("BigBlack", 50);
Image.SetOpacity("BigBlack", 70);
Image.SetOpacity("BigBlack", 80);
Image.SetOpacity("BigBlack", 90);
Image.SetOpacity("BigBlack", 1000);

BigBlack

Добавлено:
BigBlack - это картинка черного цвета, но когда выполняются все ети действия на дохлых железках приходится долго ждать, пока разместится картинка, пока пройдет десяток действий по ее прозрачности, можно ли както по иному реализовать все ети ефекты (постепенного затемнения, а потом постепенного прояснения), без задействования обьектов ?

По поводу относительного пути:

Цитата:

result = Shell.GetFolder(SHF_MYDOCUMENTS);

Не до конца сформулировал свой вопрос: по нажатию кнопки нужно скопировать файл "1.sav" из "AutoPlay\\Docs\\" по вот такому пути "С:\Documents and Settings\%USERPROFILE%\%MYDOCUMENTS%\Dir1\Dir2\".

Что-то не получилось у мну...

vlom333

Код: local sMyDocumentsPath = Shell.GetFolder(SHF_MYDOCUMENTS);
local sDestDirPath = sMyDocumentsPath.."\\Dir1\\Dir2";
if not Folder.DoesExist(sDestDirPath) then Folder.Create(sDestDirPath); end
File.Copy('AutoPlay\\Docs\\1.sav', sDestDirPath);

Уважаемые форумчане спасибо lerik2703 за подсказку, сделал немного по другому, столкнулся со следующей проблемой: как реализовать поиск в папке и подпапках всех фаилов

Есть поле Input для ввода названия файла для поиска - часть названия

Соответственно кнопка со следующим кодом

search = Input.GetText("3");
result = File.Find(search, "*.*", false, true, nil, nil);
Web.LoadURL("Window", "C:\\Prince\\".. result);


Требуется вывод найденных файлов в Web окне

Заранее огромнейшее спасибо за помощь

Zloy_Gelud, НИЖАЙШИЙ ПОКЛОН ))
С РОЖДЕСТВОМ ХРИСТОВЫМ!

Добавлено:
Ещё такой вопросик: при нажатии кнопочки начинается фоновое копирование 7-и каталогов с вложенными файлами (файлов мно-о-го). Как прикрутить к этому процессу индикатор, чтобы можно было визуально определить завершение копирования? СПС ))

krasafcheg08

Код: --[[Функция убирает в начале и в конце строки все пробелы]]
String.Trim = function(s) return String.TrimLeft(String.TrimRight(s, nil), nil); end
--****************************************************************
-- строка для поиска (часть названия файла)
sSearchString = Input.GetText("Input1");
-- если строка не пустая (что-то ввели, кроме пробелов)
if String.Trim(sSearchString) ~= '' then
-- диалоговое окно для выбора папки, в которой будем искать
sDirForSearch = Dialog.FolderBrowse("Please select a folder:", Shell.GetFolder(SHF_DESKTOP));
-- если не нажали "Отмена" при выборе папки
if sDirForSearch ~= 'CANCEL' then
-- таблица всех найденных фалов в папке
tFilesPath = File.Find(sDirForSearch, "*"..sSearchString.."*.*", false, false, nil, nil);
-- если что-то найдено
if tFilesPath then
-- начало HTML
sHTML = '<html>\r\n\t<body>\r\n';
-- перебираем в цикле найденные файлы
for i, sFilePath in pairs(tFilesPath) do
-- таблица составляющих пути
tParths = String.SplitPath(sFilePath);
-- формируем тело HTML из названия + расширение найденных файлов
sHTML = sHTML .. '\t\t<b>'..tParths.Filename .. tParths.Extension .. '</b><br>\r\n';
end
-- завершаем формирование HTML
sHTML = sHTML .. '\t</body>\r\n</html>';
-- загружаем HTML сорц в объект 'Web1'
Web.LoadHTML("Web1", sHTML);
end
end
end

Цитата:

vlom333

Код:--[[Функция копирования папки]]
Folder.Copy = function(sInFolderPath, sDestFolderPath)
sInFolderPath = String.TrimRight(sInFolderPath, "\\");
sDestFolderPath = String.TrimRight(sDestFolderPath, "\\").."\\"..String.Right(sInFolderPath, String.ReverseFind(sInFolderPath, "\\", false) + 1);
if not Folder.DoesExist(sDestFolderPath) then
Folder.Create(sDestFolderPath);
end
File.Copy(sInFolderPath.."\\*.*", sDestFolderPath, true, true, false, true, nil);
end
--************************
local sDir = Dialog.FolderBrowse("Please select a folder:", "AutoPlay\\Docs");
if sDir ~= "CANCEL" then
-- копируем файл test.txt
File.Copy('C:\\test.txt', sDir, true, true, false, true, nil);
-- копируем папку test с файлами
Folder.Copy('C:\\test', sDir);
end

Да что ж у меня за чудеса:


Цитата:

-- копируем файл test.txt
File.Copy('C:\\test.txt', sDir, true, true, false, true, nil);

Прописываю File.Copy("AutoPlay\\Docs\\Dir1\\Dir2\\Dir3\\test.txt", sDir, true, true, false, true, nil); - всё копируется отлично!


Цитата:

-- копируем папку test с файлами
Folder.Copy('C:\\test', sDir);

Прописываю:
Folder.Copy("AutoPlay\\Docs\\test1", sDir);
Folder.Copy("AutoPlay\\Docs\\test2", sDir);
Folder.Copy("AutoPlay\\Docs\\test3", sDir);
Folder.Copy("AutoPlay\\Docs\\test4", sDir);
Folder.Copy("AutoPlay\\Docs\\test5", sDir);
Folder.Copy("AutoPlay\\Docs\\test6", sDir);
Folder.Copy("AutoPlay\\Docs\\test7", sDir);
end - всё копируется, НО: копируется не последняя директория, а все дерево папок AutoPlay\Docs\test, т.е. test получается вложена в Docs, а Docs - в AutoPlay ((
При этом папочка AutoPlay именуется огрызком как lay, oPlay, Play, utoPlay. Когда пробовал путь из примера 'C:\\test' - всё получалось нормально.

vlom333 -- см. мой пост выше

Zloy_Gelud, BIG DANKE )) ALL OK!

Нужна помощь!

Объект Tree1. При включенном "переключателе"

Код в On Check:

Код: if e_NodeIndex == "1" then
nGetChild = Tree.GetChildCount("Tree1", "1")
for n=1,nGetChild do
Tree.SetNode("Tree1", "1."..n, {Checked=e_Checked});
end
Button.SetVisible("Button1", e_Checked);
Button.SetVisible("Button2", e_Checked);
end
if e_NodeIndex == "1.1" then
Button.SetVisible("Button1", e_Checked);
elseif e_NodeIndex == "1.2" then
Button.SetVisible("Button2", e_Checked);
End

Заранее извините,если не туда попала. Я полный чайник. Мое меню простое,но и его не могу сделать. При нажатии на кнопку должен запускаться видеофайл, но если он заканчивается воспроизводиться или я его сама закрываю,нужно чтобы на экране снова возникало мое меню и чтобы снова начинала звучать фоновая музыка. Сообразила только до того, чтобы музыка прекращалась,когда я нажимаю на кнопку запуска видеофайла,дальше никак. Не поможете? Заранее спасибо.

Nikielena
Если вы запускаете видеофайл с помощью внешней программы, то будет сложновато выполнить

Цитата:

на экране снова возникало мое меню и чтобы снова начинала звучать фоновая музыка

Ну а если использовать объект Video, то можно попробывать сделать.

Zloy_Gelud, не победил я autorun.exe ((
Суть такова: сделать более функциональный авторан к существующему диску. Все данные с диска (где присутствует свой файл AutoRun.exe) помещаю в "\\AutoPlay\\Docs\\". В свойствах кнопочки "install cd", которая должна запускать этот AutoRun.exe прописываю


Цитата:

"result = File.Run("AutoPlay\\Docs\\AutoRun.exe", "", "", SW_SHOWNORMAL, false);

Сохраняю. Создаю предпросмотр. Запускается АМС проект, жму на кнопочку "install cd" - появляется сообщение "Runtime Error: Could not find data file".
Запуская диск отдельно, посмотрел, что во временную папку с диска всегда копируются два файла: этот самый AutoRun.exe и AutoRunGUI.dll. А если запускать кнопочкой через проект, то во временной папке оказывается autorun.exe проекта (почему он туда копируется только в этом случае???) и, естественно, AutoRun.exe из диска не может занять его место ((

Вот здесь нашел все-таки похожую проблему, но сам разобраться так и не смог (Reineke, пост 55)
http://forum.ru-board.com/topic.cgi?forum=5&bm=1&topic=5609&start=40

vlom333 -- напиши в ICQ. Попробуем разобраться..

Zloy_Gelud -- отпишу после праздников )) СПАСИБО ))

Парни объясните кто-нибудь популярно где моя ошибка/как правильно всё сделать...
У меня не получается сделать авторан с собственной маской (произвольной формы). Как я понял берется необходимая картинка формата png, далее ненужная область на ней закрашивается скажем салатовым цветом. Затем в свойствах проекта указывается картинка-маска такого же размера как и 1ая, полностью залитая салатовым фоном... В общем таким путем ничего не получается. Пробовал и на 7ой и на 8ой версиях.

1ne2wo
Во-первых, согласно мануалу:

Цитата:

In AutoPlay, the transparent parts of the mask should all be solid black.

По-русски: в AutoPlay, только черные участки изображения-маски станут прозразными, но никак не салатовые и другие.
Таким образом, берем изображение любого формата, которое будет являться маской, закрашиваем на нем участки черным цветом, которые хотим, чтобы были прозрачными, и в настройках проекта Custom mask указываем этот файл. Вот и все манипуляции. При желании, можно в качестве фонового изображения страницы также указать этот файл-маску, чтобы было удобнее размещать объекты. Ну, конечно, также не стОит забывать о действии Window.SetMask, которое позволяет уже в аргументах указать цвет прозрачности.

Не по теме:
Zloy_Gelud
Чо в асе не появляешься ?

По теме:
Как сделать чтобы ссылка открытая в объекте веб1 отображалась в инпут1 ? (к\акто делал и непомню как)

RW4PIR
Наверно так:
On Loaded объекта Web

Код: Input.SetText("Input1", e_URL);

Zloy_Gelud, спасибо большое со всем разобрался.

Кто-то может помочь решить мою задачу?

[more=Подробнее тут]
Объект Tree1. При включенном "переключателе"

Код в On Check:

Код: if e_NodeIndex == "1" then
nGetChild = Tree.GetChildCount("Tree1", "1")
for n=1,nGetChild do
Tree.SetNode("Tree1", "1."..n, {Checked=e_Checked});
end
Button.SetVisible("Button1", e_Checked);
Button.SetVisible("Button2", e_Checked);
end
if e_NodeIndex == "1.1" then
Button.SetVisible("Button1", e_Checked);
elseif e_NodeIndex == "1.2" then
Button.SetVisible("Button2", e_Checked);
End