» Autoplay Media Studio

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

Цитата:

Разработчики AMS разъяснили, что в этом месяце будет выпущено обновление к 7-й версии, а срок выхода 8-ки не определен

насколько я также понял, что приблизительная разбежка между версиями - 2 года, т.е. ждать новой версии еще около года, а апдейт для 7-ки в октябре.
Некоторые подробности:
http://indigorose.com/forums/showthread.php?t=25122

lorents

Цитата:

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

С помощью Window.EnumerateProcesses получи дескриптор (handle) окна Setup, а далее выведи это окно на передний план используя Window.SetOrder.

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

Код: instances_of_file = 0;
file_to_check_for = "autorun.exe";
processes = Window.EnumerateProcesses();

for j, file_path in processes do
    file = String.SplitPath(file_path);
    if (String.Lower(file.Filename..file.Extension)) == file_to_check_for then
        instances_of_file = instances_of_file + 1;
    end
end
if instances_of_file > 0 then
    Window.SetOrder(, HWND_TOP);
else
    File.Run("AutoPlay\\Docs\\MyProg.exe", "", "", SW_SHOWNORMAL, false);
end

lorents

Цитата:

что надо написать в Window.SetOrder в первом параметре

Дескриптор (handle) окна, который ты получаешь с помощью Window.EnumerateProcesses.
Код: ...
for j, file_path in processes do
...

tavria2

Цитата:

что уже начали преподавать AMS?

да нет, просто препод попросил сделать
я бы был только рад чтобы преподавали AMS


Цитата:

Вставить свой код в событие On Timer и запустить таймер в событии On Show с помощью Page.StartTimer.

понял, как легко выходит



Добавлено:

Цитата:

j - дескриптор (handle) окна текущего процесса
file_path - полный путь и имя файла запущенного процесса
processes - таблица содержащая инфу о процессах

все равно не пойму
видимо туплю

lorents
Что не понятного, я тебе уже красным выделил, что нужно подставить в Window.SetOrder!?

tavria2

выходит так?

Код: instances_of_file = 0;
file_to_check_for = "Setup.exe";
processes = Window.EnumerateProcesses();

for j, file_path in processes do
file = String.SplitPath(file_path);
if (String.Lower(file.Filename..file.Extension)) == file_to_check_for then
instances_of_file = instances_of_file + 1;
end
end

if instances_of_file > 0 then
    Window.SetOrder(j, HWND_TOP);
else
File.Run("AutoPlay\\Docs\\Setup.exe", "", "", SW_SHOWNORMAL, false);
end

lorents

Цитата:

выходит так?

Да.

Zloy_Gelud, надеюсь это поможет

Я вписал текст в Input1 как мне через кнопку печать распечатать все что там написанно в A4
+ еще ?...
как поставить "параметры печяти" т.е. настроить печать для дальнейгих действии... т.е. дальше распечатать
+ еще ?...
хочу сохранять текст Input1 вписаный в Input1
функцией сохранить а не сохранить как т.е. я открыл текст от сюда C:\text.txt вписал в Input1 немножко отредактировал в Input1 и хочу сохранить функцией сохранить там же а не выводить команду сохранить как
+ еще ?...
Как сделать 2 списка типа т.е. там где написанно ...тип файла... чтоб выдвегались 2-ва списка
Dialog.FileBrowse(true, "Открыть", _DesktopFolder, "Текстовые документы (.txt, .doc, .rtf )|*.txt;*.doc;*.rtf|", "", "", false, true);
--------------------------------------------
У меня дополнительный вопросик а где взять этот RichText1
у меня такой клавы (функии) нет хочу вписать
RichText.LoadFromFile("RichText1", "AutoPlay\\Docs\\1.rtf");
чтоб открыть rtf файл и впиисать его в окно... если есть другой вариант открытия файла rtf давайте его сюды буду очень благодарен...


СПАСИБО ЗАРАНЕЕ,,,,

tavria2

код не работает, я запускаю проект (изначально запустив Setup.exe) и по идеи запущенный Setup.exe должен встать на передний план, но этого не происходит, у меня просто запускается Setup.exe

вот код который у меня используется

Код: instances_of_file = 0;
file_to_check_for = "Setup.exe";
processes = Window.EnumerateProcesses();

for j, file_path in processes do
file = String.SplitPath(file_path);
if (String.Lower(file.Filename..file.Extension)) == file_to_check_for then
instances_of_file = instances_of_file + 1;
end
end

if instances_of_file > 0 then
Window.SetOrder(j, HWND_TOP);
else
File.Run("AutoPlay\\Docs\\Setup.exe", "", "", SW_SHOWNORMAL, false);
end
Window.Close(Application.GetWndHandle(), CLOSEWND_TERMINATE);

lorents
Исправленный код:
Код: instances_of_file = 0;
file_to_check_for = "setup.exe";
processes = Window.EnumerateProcesses();

for j, file_path in processes do
file = String.SplitPath(file_path);
if (String.Lower(file.Filename..file.Extension)) == file_to_check_for then
instances_of_file = instances_of_file + 1;
hWnd = j;
break;
end
end

if instances_of_file > 0 then
Window.SetOrder(hWnd, HWND_TOP);
else
File.Run("AutoPlay\\Docs\\Setup.exe", "", "", SW_SHOWNORMAL, false);
end
Window.Close(Application.GetWndHandle(), CLOSEWND_TERMINATE);

tavria2
Работает! СПАСИБО!
ты меня спас!

Извени, но там не совсем корректный код, см. выше исправленный...

tavria2

я как раз хотел спросить на счет кода, а ты уже его сделал как надо
СПАСИБО тебе большое!

Всем привет! сейчас разбираюсь с Progress bar
и у меня возник вопрос, как избавится от чёрной рамки

Всем привет!
Как сделать что бы фоновый музыке играл .xm файл?
Или как подключить плагин in_mod.dll или MiniFMOD.dll?
За ране спасибо!

lorents

Справедливо для всех объектов, которые имеют дескриптор (в том числе и Progress):
Получаем дескриптор объекта hWnd = Object.GetProperties("ObjectName").WindowHandle;
Применяем маску к окну Window.SetMask(hWnd, "C:\\MyFile.bmp", true, 0); Соот-но маску делаешь на 2px меньше размера самого объекта.

---

xmyrza0 -- уже обсуждалось проигрывание трековой музыки. Воспользуйся поиском в Версии для печати


Добавлено:
KurtWagner


Цитата:

Как сделать 2 списка типа т.е. там где написанно ...тип файла... чтоб выдвегались 2-ва списка

В справке есть примеры.

Zloy_Gelud
точно! спасибо
и еще один вопрос
почему, если я использую следующий код (связанный с Progress) то при работе кода нельзя выключить проект
вот код

Код:
-- Get user-specified data
nMinRange = Input.GetText("inputMin");
nMaxRange = Input.GetText("inputMax");
nStepSize = Input.GetText("inputStepSize");
nDelay = Input.GetText("inputDelay");

-- Create array of all controls to be adjusted
arrProgressCtrls = {"Progress_XP_Bars_Green","Progress_XP_Smooth",
    "Progress_Smooth_Text","Progress_Bars_Text","Progress_XP_Bars_Text","Progress_Smooth"};

-- Set the ranges
for i,strCtrlName in arrProgressCtrls do
    Progress.SetRange(arrProgressCtrls[i],nMinRange,nMaxRange);
    Progress.SetCurrentPos(arrProgressCtrls[i],nMinRange);
end

-- Loop
nCounter = nMinRange;

for nPos=nMinRange,nMaxRange,nStepSize do
    for i,strCtrlName in arrProgressCtrls do
        Progress.SetCurrentPos(arrProgressCtrls[i],nPos);
        if(String.Find(arrProgressCtrls[i],"Text") ~= -1)then
            -- Set the text
            Progress.SetText(arrProgressCtrls[i],"Position = "..nPos);
        end
    end
    
    Application.Sleep(nDelay);
end

-- Set the ranges
for i,strCtrlName in arrProgressCtrls do
    Progress.SetCurrentPos(arrProgressCtrls[i],nMaxRange);
end

lorents

Скорей всего из-за Application.Sleep(nDelay);

Zloy_Gelud
ТОЧНО! СПАСИБО!

не обращаем внимание!

Zloy_Gelud, А на остальные вопросы ответишь пожалуйста...
да и этот 2 списка как ты ответил мне не помог мне бы по подробнее... пожалуйста...

KurtWagner


Цитата:

да и этот 2 списка как ты ответил мне не помог

Тебе справка должна была помочь..

Цитата:

мне бы по подробнее... пожалуйста...

Код: -- Диалог выбора файлов
tblFilePaths = Dialog.FileBrowse(true, "Открыть", _DesktopFolder, "Word для Windows (*.doc)|*.doc|Файлы RTF (*.rtf)|*.rtf|Текстовые документы (*.txt)|*.txt|Все файлы (*.*)|*.*|", "", "", false, true);
-- Если что-то выбрали и не нажали "Отмена"
if (tblFilePaths ~= nil) and (tblFilePaths[1] ~= "CANCEL") then
Dialog.Message("File", tblFilePaths[1], MB_OK, MB_ICONINFORMATION, MB_DEFBUTTON1);
end

Помогите пожалуйста)
у меня при запуске проекта на первой странице видео (воспроизводится при щелчке мыши) и у меня возник вопрос, как сделать чтобы при запуске проекта объекта Video было не чёрным а на пример первый кадр из видео?

Добавлено:
и ещё один вопрос
если я свойствах видео объекта следующие свойства



то как мне потом можно изменить stage?

lorents


Цитата:

как сделать чтобы при запуске проекта объекта Video было не чёрным а на пример первый кадр из видео?

Прям сразу так не получится, но если устроит, то попробуй так:
Объект Video сначала устанавливаешь невидимым и ставишь галку на Auto start
В On Show добавляешь это:

Код: -- Перематываем вперед на 2 сек.
Video.Seek("Video1", SEEK_FORWARD, 2);
-- Приостанавливаем воспроизведение
Video.Pause("Video1");
-- Отображаем объект
Video.SetVisible("Video1", true);

Zloy_Gelud
СПАСИБО!

у меня тут один вопрос появился, можно ли сделать чтобы в диалоге FolderBrowse при выделении "Компьютер" или "Сетевое окружение" кнопка "ОК" была бы отключена?

весь нет облазил, выходит ничего нельзя сделать ну ладно

у меня очередная проблема
я сделал что при нажатии кнопки запускается FolderBrowse и выбирается любая папка
и этот путь к папке сохраняется в Input, но при нажатии отмена или выбирается "Компьютер" или "Сетевое окружение" то в Input пишется CANCEL. как сделать проверку если написано CANCEL то...?
проблема в этом не знаю что написать,

Код: WTO = Input.GetText("Input1");
if then
    Input.Delete("Input1");
end

и ещё два вопроса
если идёт копирование как сделать кнопку отмена копирования?
и как при копировании запустить Progress bar?

Добавлено:
надеюсь на вашу помощь