» Autoplay Media Studio

tavria2

Цитата:

Мне трудно ответить на этот вопрос не видя, кода поиска.

Вот такой код:

ListBox.DeleteItem("ListBox1", -1);
tblPages = Application.SearchKeywords(Input.GetText("Input1"), true, false);
if tblPages then
    for i, v in tblPages do
        for k, value in v do
            ListBox.AddItem("ListBox1", i.." - "..value, i);
        end
    end
end

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

Ссори что повторяюсь
как повесить действие, которое бы запускалось после внесения своих данных в Combobox?

lorents
Попробуй этот вариант:
Код: sFileName = _SourceFolder.."\\AutoPlay\\Docs\\Setup.exe";
ID = File.GetAttributes(sFileName).WriteDateISO; -- создаем идентификатор приложения

instances_of_file = 0;
file_to_check_for = "setup.exe";
processes = Window.EnumerateProcesses();
for j, file_path in pairs(processes) do
file = String.SplitPath(file_path);
if (String.Lower(file.Filename..file.Extension) == file_to_check_for) and (File.GetAttributes(file_path).WriteDateISO == ID) then
instances_of_file = instances_of_file + 1;
hWnd = j;
break;
end
end
if instances_of_file > 0 then
DLL.CallFunction("user32.dll", "OpenIcon", hWnd, DLL_RETURN_TYPE_LONG, DLL_CALL_STDCALL);
DLL.CallFunction("user32.dll", "SetForegroundWindow", hWnd, DLL_RETURN_TYPE_INTEGER, DLL_CALL_STDCALL);
else
File.Run(sFileName, "", "", SW_SHOWNORMAL, false);
end
Window.Close(Application.GetWndHandle(), CLOSEWND_TERMINATE);

tavria2
Выдает следующую ошибку



у меня AMS 8.0.1.1

lorents
у тебя засада на операторе for? проверил ошибка не существует переменной instances_of_file !

lorents
В 4-й строке отсутствует 1-й символ в instances_of_file, при копировании выпала первая буква
Код выше поправил.

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

lerik2703
Цитата:

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

Я поправил код lorents'a. Этот код не имеет отношения к FileRunOnce1.x.apz.

tavria2
это я понял что отношения не имеет я в плане того что кому-то захочется повторить то что делает lorents !

lerik2703
Цитата:

я в плане того что кому-то захочется повторить то что делает lorents !

Это его проект и все вопросы к нему.

tavria2
Получилось! Спасибо!

Сейчас заметил, что если приложение открыто на все окно и свернуто, то при его повторном запуске, приложение свернуто в окно. это так задумано?
Проверил на FileRunOnce1.2, тоже самое.

lorents
FileRunOnce1.3 - исправлен баг, связанный с восстановлением свернутого окна на панели задач, в полноэкранный режим.
Для свернутого окна в трей - восстановление окна в полноэкранный режим, невозможно - ограничение AMS.

tavria2
Класс, спасибо!
Не подскажешь, а что надо сделать, чтобы также работал код запуска отдельного приложения?

lorents
Для твоего случая:
Код: sFileName = _SourceFolder.."\\AutoPlay\\Docs\\Setup.exe";
ID = File.GetAttributes(sFileName).WriteDateISO; -- создаем идентификатор приложения

instances_of_file = 0;
file_to_check_for = "setup.exe";
processes = Window.EnumerateProcesses();
for j, file_path in pairs(processes) do
file = String.SplitPath(file_path);
if (String.Lower(file.Filename..file.Extension) == file_to_check_for) and (File.GetAttributes(file_path).WriteDateISO == ID) then
instances_of_file = instances_of_file + 1;
hWnd = j;
break;
end
end
if instances_of_file > 0 then
local IsVisible = tonumber(DLL.CallFunction("user32.dll", "IsWindowVisible", hWnd, DLL_RETURN_TYPE_INTEGER, DLL_CALL_STDCALL));
if IsVisible == 0 then                        
DLL.CallFunction("user32.dll", "SetParent", hWnd..",0", DLL_RETURN_TYPE_LONG, DLL_CALL_STDCALL);
DLL.CallFunction("user32.dll", "OpenIcon", hWnd, DLL_RETURN_TYPE_LONG, DLL_CALL_STDCALL);    
end
local isMinimize = tonumber(DLL.CallFunction("user32.dll", "IsIconic", hWnd, DLL_RETURN_TYPE_INTEGER, DLL_CALL_STDCALL));
if isMinimize ~= 0 then -- если окно свернуто на панели задач
DLL.CallFunction("user32.dll", "ShowWindow", hWnd..",9", DLL_RETURN_TYPE_LONG, DLL_CALL_STDCALL);    
end
DLL.CallFunction("user32.dll", "SetForegroundWindow", hWnd, DLL_RETURN_TYPE_INTEGER, DLL_CALL_STDCALL);
else
File.Run(sFileName, "", "", SW_SHOWNORMAL, false);
end
Window.Close(Application.GetWndHandle(), CLOSEWND_TERMINATE);

tavria2
Большое при большое спасибо, наверно я тебя достал, но я нашел еще одну проблему.
Если приложение развернуто на все окно, то при повтор запуске сворачивается в свернутое состояние окна.
В версии FileRunOnce1.2 такого нет, а FileRunOnce1.3 есть

lorents

Цитата:

Если приложение развернуто на все окно, то при повтор запуске сворачивается в свернутое состояние окна.

Спасибо за замечание, твой код поправил выше.
Очередная версия FileRunOnce1.4

Цитата:

В ComboBox есть событие On Select, которое срабатывает при выборе любого элемента и предоставляет тебе переменную e_Selection, которая содержит индекс выбранного пункта. В этом событии проверяй полученный индекс и выполняй нужное действие.

Это я знаю. Но у меня КомбоБокс с возможностью редактирования и мне нужно чтобы запуск был не только после выбора существующего элемента а и после вписывания нового. А такого события нет - может есть плагин какой?

tavria2

Цитата:

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

это тебе спасибо!
У меня код не работает, проблема

Код: if instances_of_file > 0 then

lorents

Цитата:

У меня код не работает, проблема

Упс, вставлял строки кода из своего примера, а у меня вместо hWnd используется hWndReg - твой код поправил.

---

LEDRA

Цитата:

Но у меня КомбоБокс с возможностью редактирования и мне нужно чтобы запуск был не только после выбора существующего элемента а и после вписывания нового

А, чем событие On Key не устраивает? Ввел данные, нажал Enter, а в событии On Key отловил нажатие Enter и выполнил свой код.

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

Цитата:

А, чем событие On Key не устраивает?

Устраивает - но, просто не факт что после ввода цифер будет нажат Энтер - может просто мышкой будет переведен фокус на другое поле.

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

lorents

Цитата:

не работает с portable приложениями

а что это за приложения такие

lerik2703
те которые не требуют установки и не "мусорят систему"
вот здесь можешь про них прочитать
http://forum.ru-board.com/topic.cgi?forum=55&topic=9848

ясненько спасибки! пробегись по списку запущенных процессов и посмотри какое расширение имеет твой процесс!допустим инсталяшка тоже не работает с этим кодом т.к. процесс имеет расширение tmp!

lerik2703
расширение exe

lorents

Цитата:

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

Возможные причины:
Не верно указанно имя процесса, проверь существование процесса с таким именем в списке процессов
Имя процесса указано без учета регистра, например реальное имя процесса "Setup.exe", а ты указал "setup.exe"
Динамическое создание файла запуска, у которого дата и время записи файла всегда будут разные, соответственно невозможно определить идентичность файлов

tavria2

Цитата:

Где у тебя находится этот код? В объекте Input1, событие On Click?

1. Есть объект Hotspot (это кнопка Искать). В событии он клик написано:

ListBox.DeleteItem("ListBox1", -1);
tblPages = Application.SearchKeywords(Input.GetText("Input1"), true, false);
if tblPages then
    for i, v in tblPages do
        for k, value in v do
            ListBox.AddItem("ListBox1", i.." - "..value, i);
        end
    end
end



2. Есть объект инпут (для ввода текста). В нём ничего не прописано.
3. Есть объект листбокс (в нём выводятся результаты). Там в событии он дабл клик прописано:

tblSel = ListBox.GetSelected(this);
if tblSel then
    Page.Jump(ListBox.GetItemData(this, tblSel[1]));
end

В событии он кей прописано:

if e_Key == 8 then
ListBox.SelectItem("ListBox1", 1);
end

tavria2
думаю проблема в динамическом создании файла запуска, у которого дата и время записи файла всегда будут разные, соответственно невозможно определить идентичность файлов.
Сейчас спрошу в соответствующей теме