» Indigo Rose AutoPlay Media Studio

[q][/q]
спс да и серьезно (ошибка файла нет)
извините я тока учусь в этой программе просто архив распаковываеться файл то позже появляется наместе мне чтото дописать нада или я команду не в то окно встовляю
окно кнопки onclick
Zip.Extract("AutoPlay\\Docs\\1.dat", {"*.*"}, _TempFolder.. "\\ACTIV", true, true, "", ZIP_OVERWRITE_ALWAYS, Callback_ZIP);
File.Run( _TempFolder.. "\\ACTIV\\1.exe", "", "", SW_SHOWNORMAL, false)

666zinger666
Покажи архив что-ли. Так сложно сказать.

[q][/q]
всмысле архив показать там вапаперы в sfx зжаты а позже он зжат в zip
zip распаковываеться sfx запустить немогу

666zinger666, На каком языке пишешь?

Цитата:

там вапаперы в sfx зжаты а позже он зжат в zip

Я так понял ты sfx сжал еще и в zip... Зачем?

По поводу запуска:
У тебя в строчке запуска не указана рабочая папка.

[q][/q]чтоб получить exe и тихую устоновку(sfx)
zip ну скажем чтоб срыть присутстbме exe
Zip.Extract("AutoPlay\\Docs\\1.dat", {"*.*"}, _TempFolder.. "\\ACTIV", true, true, "", ZIP_OVERWRITE_ALWAYS, Callback_ZIP);
result = File.DoesExist(_TempFolder.. "\\ACTIV\\1.exe");
result = File.Run(_TempFolder.. "\\ACTIV\\1.exe", "", _TempFolder.. "\\ACTIV", SW_SHOWNORMAL, false);
нестартует что не так

читай справку по File.Run
Если файл есть, то запуск должен быть.
Учти, в пути не должно быть пробелов, если они имеются, нужно экранировать.

Подскажите, возможен ли поиск в таблицу сразу нескольких форматов:

Код: tRun= File.Find( _SourceFolder, "*.exe", true, false, nil, nil);

AntiWinLockerLive
Например так.

Код: local function IsMatch(tExt, sPath)
    local sExt = string.lower(string.match(sPath, "^.+%.(.+)$"));
    for x, y in ipairs(tExt) do
        if y == sExt then
            return true;
        end
    end
    return false;
end
--
local tRun = File.Find(_SourceFolder, "*", true, false, nil, nil);
if tRun ~= nil then
    local tExt = {"exe", "bat", "cmd", "dll"};
    for x, sPath in ipairs(tRun) do
        local bMatch = IsMatch(tExt, sPath);
        TreeList.AddRow("Plugin1", tostring(bMatch)..", "..sPath, nil, nil, nil);
    end
end

в редакторе скрипта очень мешает автоподстановка DOUBLE во время нажатия на энтер для перехода на новую строку после написания "do" (при использовании конструкции for do). Можно ли как-то убрать это?

Добрый день, хочу сделать подсказку в поле input.

Grasss
Могу предложить такое. Требуется плагин MemoryEx.
[more]

Код: function Input.SetStyle(sObjectName)
    local tInfo = Input.GetProperties(sObjectName);
    if tInfo ~= nil then
        Input.SetProperties(sObjectName, {Border = BORDER_SUNKEN});
        --
        local GWL_STYLE = -16;
        local WS_CHILD = 0x40000000;
        local WS_VISIBLE = 0x10000000;
        local WS_TABSTOP = 0x00010000;
        local ES_AUTOHSCROLL = 0x0080;
        local WS_VSCROLL = 0x00200000;
        local ES_MULTILINE = 0x0004;
     --
        local hWnd = Input.GetProperties(sObjectName).WindowHandle;
        local nStyle = WS_CHILD + WS_VISIBLE + WS_TABSTOP + ES_AUTOHSCROLL;
        if tInfo.Multiline == true then
            nStyle = WS_CHILD + WS_VISIBLE + WS_TABSTOP + ES_AUTOHSCROLL + ES_MULTILINE + WS_VSCROLL;
        end
        --
        local hDLL = Library.Load("user32.dll", false);
        hDLL.SetWindowLongA(hWnd, GWL_STYLE, nStyle);
        hDLL:Close_();
        --
        local tSize = Input.GetSize(sObjectName);
        Input.SetSize(sObjectName, tSize.Width, tSize.Height + 1);
        Input.SetSize(sObjectName, tSize.Width, tSize.Height);
    end
end
function Input.SetPlaceholder(sObjectName, sPlaceholder, bAlways)
    local tInfo = Input.GetProperties(sObjectName);
    if tInfo ~= nil then
        local hWnd = Input.GetProperties(sObjectName).WindowHandle;
        local EM_SETCUEBANNER = 0x1501;
        --
        local hBuffer = MemoryEx.Allocate(256);
        MemoryEx.String(hBuffer, #sPlaceholder, MEMEX_UNICODE, sPlaceholder);
        --
        local nAlways = 0;
        if bAlways == true then
            nAlways = 1;
        end
        --
        local hDLL = Library.Load("user32.dll", false);
        hDLL.SendMessageA(hWnd, EM_SETCUEBANNER, nAlways, hBuffer);
        hDLL:Close_();
        MemoryEx.Free(hBuffer);
        --
        local tSize = Input.GetSize(sObjectName);
        Input.SetSize(sObjectName, tSize.Width, tSize.Height + 1);
        Input.SetSize(sObjectName, tSize.Width, tSize.Height);
    end
end

Плагин скачал. Далее переместил папку MemoryEx по следующему адресу
C:\Program Files (x86)\AutoPlay Media Studio 8\Plugins\Objects\
Делаю так: Проект / Плагины / <<Ставлю галочку>> на MemoryEx

Grasss

Цитата:

C:\Program Files (x86)\AutoPlay Media Studio 8\Plugins\Objects\

Полагаю, тут опечатка так как плагин появился в списке хотя путь должен быть такой "C:\Program Files (x86)\AutoPlay Media Studio 8\Plugins\Actions"

Объявление функций (то что в "Подробнее") помести в глобальные функции. А вот это:

Код: Input.SetStyle("Input1"); -- Устанавливает нормальный визуальный стиль
Input.SetPlaceholder("Input1", "Поиск файла", false); -- Устанавливает текст-подсказку. Третий аргумент определяет показывать ли этот текст если объект имеет фокус.

Всё, разобрался, благодарю.

Добавлено:
За цвет текста какой параметр отвечает?

Цитата:

За цвет текста какой параметр отвечает?

Какого текста?

Цвет подсказки в поле input - в данный момент он серый

Grasss
Насколько я знаю никак. Контрол этого не поддерживает. Разве что вооружиться мощью GDI и отрисовывать контрол самому (это называется custom-draw).

Dialog.Message("Error", "Ошибка");
Можно ли его как-нибудь стилизовать и сделать более поинтереснее?

Grasss
Сделай своё через DialogEx.

Как сделать зависимость приложения от файла-базы?

Grasss
Нужно всего лишь пролистать справку по программе и сразу станет понятно что сделать. Даю подсказку. Функции: File.DoesExist(), Page.Jump(), Application.Exit().

Приложение все еще остается запущенным и не выдает ошибку, хотя доступа к базе уже нет.

Grasss
Можешь использовать таймер и там проверять на месте ли файл.

Допустим каждые 30 сек хочу проверять.

KerberX
Input.SetTextLimit(sObjectName, nLimit) не работает почему-то (в глобальные твои функции кинул) , винапи установлен. какие могут быть причины?

Grasss
Где-нибудь (в On Preload например) вставляешь это код.

Код: Page.StartTimer(30000, 10); -- 10 это ID, 30000 это 30 секунд (время в миллисекундах)

Если возникает ошибка подключения, то приложение с логами должно самоудалиться.

Цитата:

Приложение не хочет самоудаляться

Что значит самоудаляться?

Попробуй так. Я поменял порядок выполнения функции.

Код: if e_ID == 10 then
    if (File.DoesExist("C:\\444.txt")) then

    else
        File.Delete("C:\\111.exe");
        Application.Exit();
    end
end

Пойду экспериментировать.

Цитата:

По моему хорошая идея борьбы с пиратством.

Что-то мне расхотелось помогать дальше.

Тем не менее. Сама программа не удалится пока она запущена. Как вариант можешь сделать bat файл и в нём написать соотвтствующую команду (какую команду подскажет Google). Запускаешь bat файл и после выключаешь программу, а команда в bat удалит саму программу.