Indigo Rose AutoPlay Media Studio (часть 2) - [100] :: Программы

all043

Цитата:

Знаю что этот вопрос не из легких [..]

Да вопрос собстно на 10 минут..тем более где я уже писал подобное, лень искать ток.

Глобальные функции:

Код:

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..String.Left(tblPath.Folder, String.Length(tblPath.Folder) - 1);
end
return strPath;
end

_SourceFolder = GetSFXPath();

-- путь к папке с софтом
strPathToSoft = _SourceFolder.."\\SOFTWARE";

function File.FindEx(strFolderPath, tblExts)
    local tblResult = {};
    if (tblExts ~= nil) and (Table.Count(tblExts) > 0) then
        for n, strExt in tblExts do
            local tblFilePaths = File.Find(strFolderPath, strExt, false, false, nil, nil);
            if (tblFilePaths) then
                for _, strFilePath in tblFilePaths do
                    tblResult[Table.Count(tblResult) + 1] = strFilePath;
                end
            end
        end
    end
    if (Table.Count(tblResult) == 0) then return nil else return tblResult; end
end

On Preload:

Код:

-- таблица файлов
tblFilePaths = File.FindEx(strPathToSoft, {'*.exe', '*.msi'});
if (tblFilePaths ~= nil) then
    for i, strPath in tblFilePaths do
        -- заполняем текст чекбоксов именами файлов из таблицы
        CheckBox.SetText("CheckBox_"..i, String.SplitPath(strPath).Filename);
    end
end

On Click кнопки установки:

Код:

for n=1, Table.Count(tblFilePaths) do
    -- если выбран чекбокс
    if (CheckBox.GetChecked("CheckBox_"..n)) then
        -- запускаем ассоциированный с ним файл
        File.Run(tblFilePaths[n], "", "", SW_SHOWNORMAL, true);
        -- снимем 'птичку' после установки
        CheckBox.SetChecked("CheckBox_"..n, false);
    end
end

Пару правил, чтобы было все шоколадно

:
1. Имена чекбоксам даешь в таком стиле: CheckBox_1, CheckBox_2, CheckBox_3, ..., CheckBox_n
2. Количество программ желательно должно соответствовать количеству чекбоксов на странице.

Модерирует : gyra, Maz
Widok (30-01-2009 12:11): Лимит страниц. Продолжаем здесь.	Версия для печати • Подписаться • Добавить в закладки
Страницы: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102