» Autoplay Media Studio

Zloy_Gelud
Спасибо!
Т.е., судя по скрипту, путь к cd-romу можно будет задать через _SourceDrive при наличии маркерного файла?
Сегодня не получится проверить, отпишусь завтра.

Добавлено:
Lexua

Цитата:

В шапке - Таблица дисков системы от Lexua посмотри, может поможет

Спасибо, смотрел.Я и пытался как-то это применить,но,честно говоря, для меня сложновато разобраться.Вот и обратился за помощью.

alfonser

Цитата:

Т.е., судя по скрипту, путь к cd-romу можно будет задать через _SourceDrive при наличии маркерного файла?

Да. Переменная _SourceDrive возвратит букву того cd-roma-a, в корне которого будет обнаружен маркерный файл. Маркерным файлом может быть как и сам SFX-архив, так и любой другой файл (например файл-путстышка), предварительно помещенный в корень диска (можно его сделать и скрытым).

Код: bStop = false;
function Callback(strSource, strDestination, nCopied, nTotal)
local nPercent = Math.Round(nCopied / nTotal * 100, 0);
Progress.SetText("Progress1", Math.Round(nPercent, 0).."%");
Progress.SetCurrentPos("Progress1", nPercent);
if (bStop) then
    File.Delete(strOutFile, false, false, false, nil);
return false;
else
return true;
end
end
function SaveAs(strOutDir, strOutFileName)
strFileToCopy = "AutoPlay\\Videos\\data01.avi";
local strFiles = CommonDialogs.File(false, "Сохранить",strOutDir, "Видео файл (*.avi)|*.avi|", strOutFileName, "avi", false);
if (strFiles ~= "CANCEL") then
local tblFiles = WinApi.DelimitedStringToTable(strFiles, "|");
if (tblFiles) then
if (File.DoesExist(tblFiles[1])) then
local cBut = Dialog.Message("Сохранить как", tblFiles[1].."\r\nУже существует.\r\nЗаменить существующий файл?", MB_YESNO, MB_ICONQUESTION, MB_DEFBUTTON1);
if (cBut == 6) then
strOutFile = tblFiles[1];
StatusDlg.Show(MB_ICONNONE, false);
File.Copy(strFileToCopy, tblFiles[1], true, true, false, true, Callback);
else
local strOutDir = String.SplitPath(tblFiles[1]).Drive..String.SplitPath(tblFiles[1]).Folder;
local strOutFileName = String.SplitPath(tblFiles[1]).Filename
SaveAs(strOutDir, strOutFileName);
end
else
strOutFile = tblFiles[1];
StatusDlg.Show(MB_ICONNONE, false);
File.Copy(strFileToCopy, tblFiles[1], true, true, false, true, Callback);
            end
end
end
end
local strOutDir = Shell.GetFolder(SHF_MYDOCUMENTS);
local strOutFileName = "Глобальный передел";
SaveAs(strOutDir, strOutFileName);

2All

Вроде такого еще у нас не пробегало!

DragDrop.dll
Версия: 1.0.0.0
Автор: sside
Описание: Данная либа предоставляет возможность перетаскивания (drag 'n drop) файлов и папок в рабочую область самого проекта. Требует Microsoft. NET Framework v2.0 или выше.
Скачать: Пример + либа (~ 47КБ)




Добавлено:
lorents
Убери строки StatusDlg.Show(MB_ICONNONE, false);

Как можно реализовать такую штуку? Щелкаем на кнопку и на весь экран начинается слайдшоу показываться. Или как картинку на весь экран разварачивать при клике на нее?

Zloy_Gelud
Цитата:

DragDrop.dll

Конкретно это не пробегало, но xDialog.dll имеет такую функцию и никаких левых рантаймов не требует.

Kindly

Цитата:

xDialog.dll имеет такую функцию и никаких левых рантаймов не требует

По мне так DragDrop.dll куда удобнее, чем xDialog.dll, т.к. не надо отображать дополнительное окно для dran 'n drop-a.

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

lorents

Код: CHECKED = 1;
UNCHECKED = 2;
function Checked(cType)
    nCount = 4;
    if (cType == 1) then
        for i = 1, nCount do
            CheckBox.SetChecked("CheckBox"..i, true);
        end
    elseif (cType == 2) then
        for i = 1, nCount do
            CheckBox.SetChecked("CheckBox"..i, false);
        end
    end
end

if (not bChecked) then
    Button.SetText(this, "Unchecked");
    Checked(CHECKED);
    bChecked = true;
else
    Button.SetText(this, "Checked");
    Checked(UNCHECKED);
    bChecked = false;
end

Zloy_Gelud
спасибо!
ты бы не мог мне помочь с еще одним вопросом
если не выбран ни один RadioButton то?
не могу создать это условие

lorents

Код: function IsChecked()
    local bResult = false;
    -- 3 - кол-во радиобаттонов на странице
    for i=1, 3 do
        if (RadioButton.GetChecked("RadioButton"..i) == true) then
            bResult = true;
            break;
        end
    end
    return bResult;
end

if (not IsChecked()) then
    result = Dialog.Message("", "Что-то надо выбрать.", MB_OK, MB_ICONINFORMATION, MB_DEFBUTTON1);
end

Код:
File.Run(_SourceFolder.."\\WinDjView-0.5.exe", _SourceFolder.."\\Books\\book.djvu", _SourceFolder.."\\Programs", SW_SHOWNORMAL, true);

Crazy_Snake

Цитата:

Сама программа находится в папке Programs

Код: File.Run(_SourceFolder.."\\Programs\\WinDjView-0.5.exe", _SourceFolder.."\\Books\\book.djvu", _SourceFolder.."\\Programs", SW_SHOWNORMAL, true);

tavria2
А как быть если \\Books\\book.djvu находится не на диске С, а рядом с автораном в папке СД_рут.
При запуске файла, программа открывается и выдает ошибку типа:
File not found: C:\Book\Book.djvu

Crazy_Snake

Цитата:

А как быть если \\Books\\book.djvu находится не на диске С, а рядом с автораном в папке СД_рут.

Выше указанный пример так и работает, а то что у тебя выдает ошибку: "File not found: C:\Book\Book.djvu", говорит о том, что ты где-то напортачил с путями.
Переменная _SourceFolder возвращает путь к папке CD_Root и никак не может быть корнем диска.
Проверь второй параметр:
Код: File.Run(_SourceFolder.."\\Programs\\WinDjView-0.5.exe", _SourceFolder.."\\Books\\book.djvu", _SourceFolder.."\\Programs", SW_SHOWNORMAL, true);

тут такая проблема
у меня есть объект "Label" и такая ситуация, допустим пользователь указывает путь к какому-то файлу и он отображается в "Label", как сделать чтобы "Label" оставался с исходным размером если даже текст указанного пути превышает размер "Label"?
смотрел функцию Label.SetProperties но не нашел то что мне надо
просто подскажите через что сделать а дальше сам

lorents
Размеры объекта Label зависят от свойств текста, отображаемого в нем. Тебе необходимо использовать объект Paragraph.

Zloy_Gelud
а нельзя сделать все что не помешается в Label удалить автоматически?

lorents
Можно наверно.., а чем тебя Параграф не устраивает?

Zloy_Gelud
а все я понял как ты имеешь ввиду сделать
до меня тока дошло, спасибо

и еще один вопрос а как можно вызвать стандартное окно копирования?

объясните плиз что-то я не совсем понял
detect for media player 9 codec

lorents
Можно попробывать проверять версию WMP, если версия меньше 9, то устанавливать кодеки.

Всем привет!
Вопрос: как же сделать маску элемента, а именно "web". Хочу скрыть бордер и скроллы, они не активные, т.к. содержимое страницы меньше, чем объект "web", но то, что они есть портят вид.
Приготовил маску, в настройке окна поставил маску, но маскируется вся страница, а мне надо только один элемент. В кодирование тоже не нашел, как это реализовать.
Помогите решить вопрос.

Народ, немогу разобратся, как тут использовать поиск по этому форуму.
Тот который есть, ищет по всему "ru-board", а как искать по этой тематике? Не хотелось бы плодить, одни и теже вопросы.
Вручную искать не получилось, слишком много страниц, и уже на 20-й внимание рассеевается...

Zloy_Gelud
идея хорошая, но а если сделать именно проверку на наличие кодеков не только для WMP 9, а вообще например на кодеки XVid или DivX, просто делать проверку на наличие K-Lite Codec Pack, думаю это не очень правильно заставлять пользователя устанавливать те кодеки которые ему не надо
tavria2
может ты подскажешь?

sp3d

Код: hWnd = Web.GetProperties("Web1").WindowHandle;
Window.SetMask(hWnd, "C:\\MyFile.bmp", true, 0);

Zloy_Gelud
ругается на GetProperties
кстати у меня нет такого кода, а для 5 версии он подходит?


Цитата:

Версия для печати

спасибо! сам бы не догодался, все оказалось просто)))

sp3d

Цитата:

ругается на GetProperties
кстати у меня нет такого кода, а для 5 версии он подходит?

Думаю нет, если ругается. Не знал, что еще кто-то на пятерке сидит..

да я устанавливал 7-ку, 3 раза скачивал(с разных ресурсов) и устанавливал, и во всех трех панель "действия" глючная, ответа по этому багу не нашел. Откатил на 5 и работаю.

sp3d
Скачай с Варезника. Вроде еще никто не жаловался на 'панель действия'.
Да и уж лучше б тогда ты откатился на 6-ку, там хоть возможностей поболе будет, чем в 5-ке.