» Autoplay Media Studio

lerik2703

Цитата:

одно но, имя процесса исполняемого файла во временной папке autorun.exe, для того чтобы убить процесс SFX измени имя архива на любое другое например autorаn.exe!(имя файла = имени процессу. для справки)

В свойствах процесса можно увидеть путь из которого он запущен, по нему можно различить какой процесс надо убить.
у меня получилось вот так:

Код: Global Functions:
function GetSFXPath()
strPath = "";
strArg = _CommandLineArgs[1];
if strArg then
strPath = String.Right(strArg, String.Length(strArg) - 10);
end
if (String.Length(strPath) > 0) then
tblPath = String.SplitPath(strPath);
strPath = tblPath.Drive..tblPath.Folder;
end
return strPath;
end

On Show:
mySourceFolder = GetSFXPath();
processes = System.EnumerateProcesses();

for j, file_path in processes do
file = String.SplitPath(file_path);
if (String.Lower(file.Drive..file.Folder..file.Filename..file.Extension)) == (String.Lower(mySourceFolder.."autorun.exe")) then
System.TerminateProcess(j);
end
end

-- Чистим темп от предыдущих запусков
for num = 0, 100 do
-- Если такая папка существует, и если это не рабочая папка
if (Folder.DoesExist(_TempFolder.."\\ir_ext_temp_"..num) == true) and _TempFolder.."\\ir_ext_temp_"..num ~= _SourceFolder then
Folder.Delete(_TempFolder.."\\ir_ext_temp_"..num);

-- Проверка на наличие ошибки при удалении
error = Application.GetLastError();

-- Если папка не удалилась в результате ошибки 2203
if error == 2203 then
-- Удаляем все файлы которые находятся в папке
File.Delete(_TempFolder.."\\ir_ext_temp_"..num.."\\*.*", true, false, false, nil);

-- Удаляем пустую папку
Folder.Delete(_TempFolder.."\\ir_ext_temp_"..num);
end
end
end

lorents

Цитата:

а причем тут AMS?
И что значит "Активные области"?

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

immotus
если я тебя правильно понял, то у тебя есть картинка, и тебе надо сделать следующее:
часть картинки сделать кнопкой, это можно сделать через объект Hotspot, как ты и писал выше
ссылку можешь сделать через File.OpenURL

Manechka

Цитата:

Подскажите пожалуйста, где находится опция по наследованию объектов?

а где такую опцию нашел?

vrnRaptor
я то предложил более прстой примерчик)) а при закрытии окна через контекстное меню ошибка не возникает? ну на сколько я наблюдал за прогами которые себя удаляют,делают они это через командную строку!

function _Singleton(strCheckTitle)
local tblWindows = Window.EnumerateTitles(true);
for hWnd, strTitle in tblWindows do
if (strTitle == strCheckTitle) then
Window.Restore(hWnd);
DLL.CallFunction("user32.dll", "SetForegroundWindow", hWnd, DLL_RETURN_TYPE_INTEGER, DLL_CALL_STDCALL);
Window.Close(Application.GetWndHandle(), CLOSEWND_TERMINATE);
end
end
end


_Singleton("имя окна");

вот этот примерчик поинтересней

Цитата:

Manechka
Цитата:Подскажите пожалуйста, где находится опция по наследованию объектов?
а где такую опцию нашел?

если речь о том, чтобы фон и объекты переходят с одной страницы отображаются на другой странице (в своем роде наследование)), то в свойствах страницы пункт Inherit - Background from page: и Objects from page: - кое-какие русификаторы по крайней мере почему то зовут наследованием именно это.
____________________________________________

Очередной детский вопрос - как грамотно обозначить группу объектов разом, чтобы в дальнейшем давать команды всей группе объектов сразу (например, хочется прописать одно и то же действие всем картинкам на сранице). Заранее спасибо

niunii

Цитата:

может ли диск после компеляции не запускаться из-за триальности программы?

Лично не встречал такого, но на всякий случай лучше поставить патч. А на счет проблемы с запуском, то думаю что проблема не с путями, поскольку вы говорите что после 40 минут меню авторана все же запускается и работает. Может это из-за диска(царапанный) или метода записи в NERO, можно попробовать записать проект например c помощью UltraISO или чем другим? А может на других системах стоит защита(блокиратор или антивирус), и пока диск полностью не проверен на вирусы он не запустится?
Ocellus

Цитата:

Как сделать загрузочный диск, чтобы при нажатии кнопки запускалась программа с CD-ROM-а, например "cdrom:\\папка\\****.exe".

Для этого нужен компьютер, базовые знания программы "Autoplay Media Studio" и т.д. и т.п..
Изучите программу "Autoplay Media Studio", почитайте форум. Ваша проблема была решена уже 100 раз.

Цитата:

bedrik

Код:
function Callback_ZIP(String, Percent, Status)
    -- Extracting: путь к папке назначения + извлекаемый файл
    Label.SetText("Label1", String);
    if (Status == ZIP_STATUS_MINOR) then                 -- для извлекаемого файла
        Progress.SetCurrentPos("Progress1", Percent);    -- процент распаковки
        Progress.SetText("Progress1", Percent.."%");    -- отображаем проценты
    elseif (Status == ZIP_STATUS_MAJOR) then            -- общий прогресс
        Progress.SetCurrentPos("Progress2", Percent);
        Progress.SetText("Progress2", Percent.."%");
    end
end
 
Zip.Extract("C:\\ArtMoney.zip", {"*.*"}, "C:\\My Folder", true, true, "", ZIP_OVERWRITE_NEVER, Callback_ZIP);

Подскажите пожалуйста пример чтобы работало с любым файлом или расширением, пример: файл tvbase.tvb копируем (с проекта) в папку С: и чтоб виден был процесс копирования Progress. Чтоб не использовать архиватор, возможно ли такое ?

niunii
а может прсто скопировать весь проект с диска на хард и уже с него запустить?

Commfort191
Возможно но...!

Код: function Callback_Copy(Source,Destination,Copied,Total,FileCopied,FileTotal)
Label.SetText("Label1","Копирую "..Destination); --путь копирования файлов
Progress.SetRange("Progress1", 0,FileTotal/65535)
Progress.SetCurrentPos("Progress1",FileCopied/65535); --прогресс текушего файла
Progress.SetRange("Progress2", 0,Total/65535)
Progress.SetCurrentPos("Progress2",Copied/65535); -- общий прогресс
end
Folder.Create("C:\\My Folder\\")
File.Copy("AutoPlay\\Docs\\My Folder\\*.*", "C:\\My Folder\\", true, true, false, true, Callback_Copy);
error = Application.GetLastError();
if error ~= 0 then
result = Dialog.Message("Error", "Код Ошибки "..error, MB_OK, MB_ICONSTOP, MB_DEFBUTTON1);
end

Цитата:

а при закрытии окна через контекстное меню ошибка не возникает?

Тогда лучше писать этот код не на On Click, а на On Show, предыдущий пост поправил и добавил еще чистку темпа от предыдущих запусков.

Цитата:

ну на сколько я наблюдал за прогами которые себя удаляют,делают они это через командную строку!

Мне бы это помогло

Diabolik - для защиты файлов приложения используй виртуализаторы, типа MoleBox, BoxedApp Packer и т.д.

Всем привет, нужна помощь
хочу сделать что то типо инсталятора, имеются 4 страници
1 приветствие
2 выбор пути установки
3 процесс установки
4 завершение установки
ну установка будет идти с архива в формате зип
как сделать чтобы можно было выбирать путь распоковки в ручную а не прописывать его на постояный адрес ?
и как сделать распоковку не зипа а ZZ формата?
эсли это всё можно замутить помогите мне пожалуйста ато я чтото совсем не чего не пойму

lerik2703

Цитата:

...минимальный размер файла 500 килобайт где-то

С чего это вдруг? Откуда такая инфа?
File.Copy - копирует файлы даже нулевого размера.

Цитата:

ну установка будет идти с архива в формате зип

есть отличный пример от Zloy_Gelud в шапке

Цитата:

как сделать чтобы можно было выбирать путь распоковки в ручную а не прописывать его на постояный адрес ?
и как сделать распоковку не зипа а ZZ формата?

Код: folder_path = Dialog.FolderBrowse("Please select a folder:", "AutoPlay");
Zip.Extract("C:\\ArtMoney.zz", {"*.*"}, folder_path, true, true, "", ZIP_OVERWRITE_NEVER, Callback_ZIP);

Kindly
ИМХО, самая лучшая программа для виртуализации программ - VMware ThinApp
Ни кто не знает когда приблизительно выпустят AMS 8.0?

tavria2
Да я в плане того что строка прогресса останется просто пустой лень дописать было и с 500 я конечно приувеличел!опять же лень

а как выбрать путь ?

2All
Download the AutoPlay Media Studio Beta Release - 8.0.0.16

[more=VERSION 8.0.0.16 UPDATES:]Welcome to the beta release of AutoPlay Media Studio 8!

IMPORTANT! Due to changes in the installer, if you've previously installed the beta, please uninstall first using the control panel instead of the automatic uninstall located within the setup file.

This version of AutoPlay Media Studio is beta software and we expect there to be bugs that will be discovered and squashed before release!

We'll be giving away 5 free copies of the final product (or extend your support & maintenance subscription by 1 year). They'll go to those beta testers who provide the most useful feedback as judged by our development team.

Please post any bugs that you find right here in the AMS8 discussion forums.
Please try to provide as much detail as possible with any bug report - what where you doing? what happened? can you reproduce the problem? etc

VERSION 8.0.0.16 UPDATES:
Fix: Fixed a bug where the category selection in the action wizard wasn't working for plugin actions after clicking Back button.
Fix: Made it so that the resize "Min width" and "Min height" values automatically change when page size is changed if "Window is resizable" is disabled, otherwise it will present a confirmation dialog. This fix was also applied for Dialogs properties.
Fix: Fixed a pre-build error that could occur if a page/dialog image file radio button was selected, but "Use custom settings" was unchecked.
Fix: Changed the xButton ButtonImage parameter to be an editable field in the properties grid so you can clear out the image file without going into the object's properties dialog.
Fix: Made it so that the lua5.1.dll and lua51.dll are not included in exported projects.
Fix: Made it so database files are only deleted when you click OK to exit the Project > Databases dialog.
Fix: Fixed a bug relating to canceling the import of a version 7 project file where the Welcome Dialog was being left on the screen.
Fix: Fixed a bug where the code editor was not loading it's colour settings properly from the XML.
Fix: Fixed a bug in the filter used when selecting skin files.
Fix: Fixed an issue with AutoPlay's default GUI size where its bottom would be hidden by the Windows task bar.
Fix: Fixed a bug where the second parameter of the Table.Sort action wasn't being handled properly.
Fix: Fixed a bug where the PDF object's border would overlap part of the object.
Fix: Fixed a bug where the file browse for QuickTime files from the property pane was not showing *.MOV files properly.
Fix: Improved the visual results of duplicating certain windowed objects.
Fix: Added a right-click "Clear Text" option to the Grid object's CSV file field.
Fix: Added a series of return error codes for Grid object actions that were missing in some cases.
Fix: Made it so the database module files for enabled databases are ignored by Tools > Optimize Resources.
Fix: Fixed a bug where the action wizard was parsing script with local result variables incorrectly.
Fix: Minor updates in the help file.
Feature: Added a "Default object font" preference in Edit > Preferences, Objects category.
Feature: Added SW_HIDE window option to File.Run, File.RunAs and Shell.Execute actions.
Feature: ListBox.SetItemCheck action - if you pass -2 (LB_ALLCHECKS) as the index, the checkbox state will be applied to all items in the list.
Feature: Added ability to preview the project, page and dialog while focus is in the Script pane using menu shortcut keys.
Feature: Added keyboard shortcuts for Page Preview and Dialog Preview.
Feature: Added ListBox.GetChecked and ListBox.GetCheckedCount actions.
Feature: Added the ability to insert a numeric colour value into the code editor using the right-click context menu.
Feature: Added new Slideshow.apt template. [/more]

vrnRaptor
тогда в этом случаи будет открываться окно MS-DOS (вроде бы скрыть его нельзя хотя я точно не знаю)вызови командную строку набери help del (чтобы отобразить все команды просто help) On Show ты убиваешь сразу процесс как только прога откроется я видимо не увидел исправление!

нужно чтобы путь распоковки отображался в text1

lerik2703

Цитата:

вроде бы скрыть его нельзя хотя я точно не знаю

Цитата:

result = File.Run("cmd.exe", "", "", SW_MINIMIZE, false);

где SW_MINIMIZE - запустить свёрнутым

RW4PIR
используй Input.SetText

tavria2

Цитата:

Download the AutoPlay Media Studio Beta Release - 8.0.0.16

По ссылке ничего

lorents
как прописать ?
Input.SetText = чо дальше я чтото попробывал не вышло

tavria2
Спасибо, протестируем

yragen
запусти ссылку через Internet Explorer

Цитата:

как прописать ?

Код: folder_path = Dialog.FolderBrowse("Please select a folder:", "AutoPlay");
Input.SetText("Input1", folder_path);
Zip.Extract("C:\\ArtMoney.zz", {"*.*"}, folder_path, true, true, "", ZIP_OVERWRITE_NEVER, Callback_ZIP);

lorents
Спасибо, помогло

lorents
не работает

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

Цитата:

не работает

что имеено? есть ли ошибки?

zmerlin
Спасибо за фон, но хотелось бы наследовать и другие объекты, и обязательно избирательно. Как это можно сделать?