sjdb45
Junior Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Zloy_Gelud
Хотел бы спросить у вас следующее:
Как то годик назад делал установщик программ по вашей конструкции и в даный момент столкнулся с одной проблемой.
Значит стоит так:Page1 - on preload:
Код:
local tDirs = Folder.Find(_SourceFolder.."PROGRAMS", "*", false, nil);
if tDirs then
for i = 1, #tDirs do
ListBox.AddItem("ListBox1", String.Mid(tDirs[i], String.ReverseFind(tDirs[i], "\\", false) + 1, -1), tDirs[i]);
end
end
|
Button - On Click:
Код:
local tChecked = ListBox.GetChecked("ListBox1", BST_CHECKED);
if tChecked then
for i = 1, #tChecked do
local sWorkDir = ListBox.GetItemData("ListBox1", tChecked[i]);
Shell.Execute(sWorkDir.."\\"..INIFile.GetValue(sWorkDir.."\\install.ini", "info", "setup1"), "open", "", "", SW_SHOWNORMAL, true);
Shell.Execute(sWorkDir.."\\"..INIFile.GetValue(sWorkDir.."\\install.ini", "info", "setup2"), "open", "", "", SW_SHOWNORMAL, true);
Shell.Execute(sWorkDir.."\\"..INIFile.GetValue(sWorkDir.."\\install.ini", "info", "setup3"), "open", "", "", SW_SHOWNORMAL, true);
Shell.Execute(sWorkDir.."\\"..INIFile.GetValue(sWorkDir.."\\install.ini", "info", "setup4"), "open", "", "", SW_SHOWNORMAL, true);
Shell.Execute(sWorkDir.."\\"..INIFile.GetValue(sWorkDir.."\\install.ini", "info", "setup5"), "open", "", "", SW_SHOWNORMAL, true);
Shell.Execute(sWorkDir.."\\"..INIFile.GetValue(sWorkDir.."\\install.ini", "info", "setup6"), "open", "", "", SW_SHOWNORMAL, true);
Page.Redraw();
end |
С одной командой всё нормально, а вот я добавил в секции ini файла дополнительные 5 команд setup1 setup2 и т.д и вот по завершении обработки последней команды установщик выключается как положено, однако открывается сама папка с вложенными установщиками. Получается схожее действие с ( File.ExploreFolder ).
Может существует какое нибудь анти действие этому? |
Дружественная тема в Варезнике
