» Indigo Rose AutoPlay Media Studio

[more] Доброго времени суток Всем Вам! Уважаемые знатоки AMS - подскажите следующее.
---
Нужно распаковать 5 ZIP архивов по разным местам:
C:\Program Files\Folder1\Folder2
C:\Documents and Settings\Admin\Application Data
C:\Documents and Settings\Admin\Мои документы
C:\Documents and Settings\All Users\Application Data
C:\WINDOWS\system32
---
Строка в скрипте обычная (для образца):
Zip.Extract("AutoPlay\\Docs\\test.zip", {"*.*"}, "C:\\Program Files\\Folder1\\Folder2", true, true, "", ZIP_OVERWRITE_ALWAYS, ZIP_CALLBACK);
Zip.Extract -- тоже только для Documents and Settings\Admin\Application Data
Zip.Extract -- тоже только для Documents and Settings\Admin\Мои документы
Zip.Extract -- тоже только для Documents and Settings\All Users\Application Data
Zip.Extract -- тоже только для WINDOWS\system32
---
Собственно вопрос:
Как правильно вписать "Глобальные переменные" в скрипт для распаковки ZIP архива , что-бы на других компах небыло проблем если например "винда" стоит на диске D , а так-же если вместо Admin установлено имя пользователя?
---
ps: про "Глобальные переменные" читал и прекрасно понимаю для чего они нужны , но как правильно их написать (вставить в скрипт) - нифига непонимаю
Заранее благодарен! [/more]

Привет всем!
Я хочу перетаскивать изображение или текст в данное место и мне соответственно должно выходит какое нибудь сообщение.
И 2-ая просьба: как увеличит изображение при наведении курсора?
Помогите......

Ashap_1974 -- наверно так:

Код: ---[[
Zip.Extract("AutoPlay\\Docs\\MyZip.zip", {"*.*"}, Shell.GetFolder(SHF_PROGRAMFILES).."\\Folder1\\Folder2", true, true, "", ZIP_OVERWRITE_ALWAYS, ZIP_CALLBACK);
Zip.Extract("AutoPlay\\Docs\\MyZip.zip", {"*.*"}, Shell.GetFolder(SHF_APPLICATIONDATA_LOCAL), true, true, "", ZIP_OVERWRITE_ALWAYS, ZIP_CALLBACK);
Zip.Extract("AutoPlay\\Docs\\MyZip.zip", {"*.*"}, Shell.GetFolder(SHF_MYDOCUMENTS), true, true, "", ZIP_OVERWRITE_ALWAYS, ZIP_CALLBACK);
Zip.Extract("AutoPlay\\Docs\\MyZip.zip", {"*.*"}, Shell.GetFolder(SHF_APPLICATIONDATA_COMMON), true, true, "", ZIP_OVERWRITE_ALWAYS, ZIP_CALLBACK);
Zip.Extract("AutoPlay\\Docs\\MyZip.zip", {"*.*"}, _SystemFolder, true, true, "", ZIP_OVERWRITE_ALWAYS, ZIP_CALLBACK);
--]]

Zloy_Gelud
Помоги...
Подскажите пожалуйста как сделать проверку на версию программы и если программа не совпадает с файлом версии на сервере. то, происходило обновление. Либо, выдавался диалог с требованием сделать обновление.
Как это осуществить подскажите пожалуйста.

nikitorol -- без понятия.

Всем снова здрасти=)
Появились ещё несколько вопросов... Хочу сделать что то наподобие чата
С записью набираемого текста в файл допустим chlog.txt
Вопрос 1.Как сделать запись в файл? Если я в imput набрал нужный мне текст и нажал отправить и данный текст записывался в файл chlog.txt.
Вопрос 2.Как сделать Авто загрузку этого лога на фтп? После нажатия кнопки отправить..

Добавлено:
Так, с записью в файл разобрался. Но, он постоянно заменяет этот текст... Что делать?
Как сделать перенос строки при последующей записи?

Добавлено:
Ох, разобрался как сделать это.
"Так, с записью в файл разобрался. Но, он постоянно заменяет этот текст... Что делать?"
А вот этот вопрос Как сделать перенос строки при последующей записи?
Ещё актуален...


Добавлено:
Разобрался с этим... Вот как поступил.
ZchLog = Input.GetText("Input1"); -- Проверяет текст в поле Imput1
TextFile.WriteFromString("C:\\MyFile.txt","\r\n", true); -- Переносит строку
TextFile.WriteFromString("C:\\MyFile.txt", ZchLog, true); -- А потом уже пишет что в Imput1
=)
Как же хорошо когда есть под рукой интернет и немножко ума=)


Добавлено:
Вопрос 2.Как сделать Авто загрузку этого лога на фтп? После нажатия кнопки отправить..
Актуально...

Zloy_Gelud Спасибо Огромное! Всё очень доходчиво обьяснили!
Про Shell.GetFolder не знал Спасибо ещё раз! Удачи!

Уважаемые, вопрос в следующем...
Как реализовать кнопочку "Поверх всех окон"? [more=Решено]
Код: --[[ xButton -> Settings -> Style -> Toggle -> Up ]]--
--[[ --//-- -> On Click ]]--
-- Если клавиша нажата, тогда...
if xButton.GetState(this) == 1 then
    -- Устанавливаем для текущего окна стиль "поверх"
    Window.SetOrder(Application.GetWndHandle(), HWND_TOPMOST);
else
    -- Устанавливаем для текущего окна обычный стиль
    Window.SetOrder(Application.GetWndHandle(), HWND_NOTOPMOST);
end

UModeL
А стандартное действие не подойдет?

Код: Window.SetOrder(Application.GetWndHandle(), HWND_NOTOPMOST);

Zloy_Gelud, спасибо. Я именно это и использую. Не досмотрел в скрипте циферку и полдня угрохал на поиск решения.
Извиняюсь за беспокойство.

Ребята, как победить исчезание объектов после ресайза окна в сторону увеличения?
Объект прорисовывается только при наведении курсора или ресайза на уменьшение размеров окна. Так ведут себя в основном плагины, в частности Spin.
Application.SetRedraw(true) и Page.Redraw() не помогают.
Изменяю только позиции объектов, размеры постоянные.

И ещё вопрос.
Как реализовать проверку фокуса, т.е. активность окна приложения? [more=Решено]
Код: --[[ Page -> OnShow ]]--
-- Получаем дескриптор окна приложения
hWnd = Application.GetWndHandle();
-- Получаем размер окна приложения
tSizeWindow = Window.GetSize(hWnd);
-- Высота заголовка окна
nWindowTitleH = 31;
-- Запускаем таймер на 5 секунд
Page.StartTimer(5000, 10);

--[[ Page -> OnTimer ]]--
-- Если сработал нужный таймер, тогда...
if e_ID == 10 then
    -- Получаем дескриптор активного окна
    hWndActive = WinApi.GetActiveWindow();
    -- Если дескрипторы равны, тогда...
    if hWndActive == hWnd then
        -- Если окно приложения свёрнуто, тогда...
        if Window.GetSize(hWnd).Height == nWindowTitleH then
            -- Останавливаем таймер
            Page.StopTimer(10);
            -- Восстанавливаем прежние размеры
            Window.SetSize(hWnd, tSizeWindow.Width, tSizeWindow.Height);
            -- Запускаем таймер на 5 секунд
            Page.StartTimer(5000, 10);
        else
            -- Получаем размеры окна приложения
            tSizeWindow = Window.GetSize(hWnd);
        end
    else
        -- Останавливаем таймер
        Page.StopTimer(10);
        -- Сворачиваем окно приложения в заголовок
        Window.SetSize(hWnd, tSizeWindow.Width, nWindowTitleH);
        -- Запускаем таймер на 1/4 секунды
        Page.StartTimer(250, 10);
    end
end

Для Всех!
600 скинов (*.cjstyles) для AutoPlay Media Studio , Setup Factory 9 , Inno Setup
Скачать здесь (~67 mb): http://yadi.sk/d/XEKRvoRN3AnFT
ps: инструкция + скриншоты для всех скинов - внутри архива
---
Уважаемые Модераторы!
Если я разместил это не совсем сюда , то перенесите это куда считаете нужным. Спасибо!

Подскажите пожалуйста, как мне сделать "загрузку" файла на "Фтп"?

nikitorol, смотри в сторону плагинов FTP, SFTP и FTPS.

Еще вопрос как сделать Проверку есть ли файл в программе? примерно
File.GetFile("",nul); Но, такой функции нет подскажите пожалуйста как это сделать.
Нужна проверка на файл.
if переменная then

else

end
Если нету файла то, начнется загрузка этого файла.
p.s Как сделать загрузка файла это я знаю=)

nikitorol

Код: if File.DoesExist("D:\\Folder\\Filename.ext") then
файл уже существует
else
загрузка файла
end

Спасибо!!!
Ещё вопрос. Как сделать выбор дериктории? просто хочу чтобы загружало файлы туда куда указал пользователь.
Делаю так
BrowseFolder = Dialog.FolderBrowse("Please select a folder:", "C:\\");
HTTP.DownloadSecure("http://lppcbase.hol.es/rancher.DFF", BrowseFolder , MODE_BINARY, 20, 443, nil, nil, nil);
Но, безрезультатно... сохраняет на с диск...

nikitorol

Код: BrowseFolder = Dialog.FolderBrowse("Please select a folder:", "C:\\");
if BrowseFolder ~= "CANCEL" and BrowseFolder ~= "" then
HTTP.DownloadSecure("http://lppcbase.hol.es/rancher.DFF", BrowseFolder .. "Filename.ext", MODE_BINARY, 20, 443, nil, nil, nil);
end

UModeL
Спасибо тебе большое... Авторизуй плиз у себя в асе.

Вопрос, Как сделать проверку текста в файле? И если этот текст совпадает с тем текстом который введен в input то, перенаправляем на 2.стр
Как это сделать?

Добрый вечер , уважаемые знатоки AMS! Подскажите пожалуйста следующее:

Как сделать что-бы при нажатии кнопки X (выход) в правовом верхнем углу диалога , во время распаковки ZIP-архива отрабатывалась команда: Application.Exit или Dialog.Message?

При запуске диалога - "свернуть в трей" и "выход" работают как положено.
Во время распаковки - работает только "свернуть в трей" , "выход" - не реагирует (то-есть процесс распаковки не прерывается).

Это излечимо?
Заранее благодарен!

Ashap_1974
Самый легкий способ это сделать проект в bordur
Т.е бордюр и вставить нужные объекты Т.е крестики и т.д а потом уже в них выполнять действия.

nikitorol , Спасибо за совет! Мысль очень дельная и понятная.
ps: я изначально тоже думал подобное сделать
(хотелось просто сохранить оформление со скином *.cjstyles)
В итоге - сделал отдельную кнопку "Выход" , ну а "родная" кнопка X - просто не используется.

Ashap_1974
Теперь более подробно ты сказал. И я понял.
Просто зайди в настройки страниц. Не знаю сколько их у тебя в проекте.
Открой действие рядом с On Show называется On Close
И прописывай что тебе нужно сделать до закрытия программы.
После выполнения всех действий которые ты указал в On Close у тебя закроется сама программа.
И не нужно никаких Бордюров=)

2ALL

Уважаемые, кто занимался/занимается руссификацией Справки, просьба "стукнуться" в ПМ.

nikitorol , Спасибо ещё раз! Этот вариант мне больше нравиться. Буду пробовать... Удачи!
ps: а страниц в проекте всего одна - что-то вроде инсталятора с музыкой (типа как у Inno Setup)

Помогите пожалуйста. Пытаюсь создать тест со стандартным шаблоном quiz. НО русские буквы не хотять отображаться(((( во всех настройках шрифтов указал на кириллицу. Пытался сохранять XML файл в различных кодировках, но не помогло((((
Или программа просто не потдерживает русские буквы?????
Или что-то я делаю не так???

keri2

Цитата:

Пытался сохранять XML файл в различных кодировках, но не помогло((((

XML-файл должен быть в кодировке ANSI.

Цитата:

НО  русские буквы не хотять отображаться((((

Добавь строку в начало каждого XML-файла:
<?xml version="1.0" encoding="windows-1251"?>

tavria2
спасибо помогло)))
и еще не подскажите, где находится исходник текста Question 1 of 10? Надо это перевести на русский

Вопрос, есть ли возможность в AMS запихать файл в существующий zip Т.е
1.файл формата jpg засунуть в zip архив с файлами. при этом не создавая ещё архив.