Форум на Исходниках.RU https://forum.sources.ru Форум на Исходниках.RU Форум на Исходниках.RU https://forum.sources.ru/index.php?showtopic=166031&view=findpost&p=1394519 Thu, 28 Dec 2006 11:09:54 +0000 Заполнить NewCheckListBox https://forum.sources.ru/index.php?showtopic=166031&view=findpost&p=1394519 Цитата jack128 @
А чем не нравится вариант в цикле вызывать ExtractTemporaryFile ?? (хотя он мне тоже не нравится :-)

То есть, создать Preprocessor'ом список, потом пройтись по нему, извлекая в {tmp}, а потом уже оттуда их подключать. Мысль.

Добавлено
Блин, получилось наконец-то!]]> Profi Инсталляторы https://forum.sources.ru/index.php?showtopic=166031&view=findpost&p=1394514 Thu, 28 Dec 2006 11:07:19 +0000 Заполнить NewCheckListBox https://forum.sources.ru/index.php?showtopic=166031&view=findpost&p=1394514 Profi хм. Нет, в препроцессоре такой возможности не вижу.

А чем не нравится вариант в цикле вызывать ExtractTemporaryFile ?? (хотя он мне тоже не нравится :-)]]> jack128 Инсталляторы https://forum.sources.ru/index.php?showtopic=166031&view=findpost&p=1394407 Thu, 28 Dec 2006 10:11:02 +0000 Заполнить NewCheckListBox https://forum.sources.ru/index.php?showtopic=166031&view=findpost&p=1394407 Цитата jack128 @
Цитата Profi @
можно ли в Preprocessore использовать dll?

хм. А зачем тебе это?

Дело в том, что мне нужно получить не само имя файла, а его внутреннее имя (экспортируется в виде PChar). В коде-то я это сделал, а вот как в Preprocessor'е не нашел.]]> Profi Инсталляторы https://forum.sources.ru/index.php?showtopic=166031&view=findpost&p=1394404 Thu, 28 Dec 2006 10:07:02 +0000 Заполнить NewCheckListBox https://forum.sources.ru/index.php?showtopic=166031&view=findpost&p=1394404 Цитата Profi @
можно ли в Preprocessore использовать dll?

хм. А зачем тебе это?]]> jack128 Инсталляторы https://forum.sources.ru/index.php?showtopic=166031&view=findpost&p=1394358 Thu, 28 Dec 2006 09:37:18 +0000 Заполнить NewCheckListBox https://forum.sources.ru/index.php?showtopic=166031&view=findpost&p=1394358 help'е не нашел, можно ли в Preprocessore использовать dll?]]> Profi Инсталляторы https://forum.sources.ru/index.php?showtopic=166031&view=findpost&p=1394312 Thu, 28 Dec 2006 09:05:45 +0000 Заполнить NewCheckListBox https://forum.sources.ru/index.php?showtopic=166031&view=findpost&p=1394312 Цитата jack128 @
Profi
Ну и? с помощью [#2] загоняешь список файлов в Check ListBox и при инсталяции проверяешь отмечен ли checkbox с именем файла, если отмечен, то устанавливаешь... Вроде всё просто.

Блин, точно! Я и забыл, что Proprecessor работает до компиляции инсталлятора!]]> Profi Инсталляторы https://forum.sources.ru/index.php?showtopic=166031&view=findpost&p=1394286 Thu, 28 Dec 2006 08:54:51 +0000 Заполнить NewCheckListBox https://forum.sources.ru/index.php?showtopic=166031&view=findpost&p=1394286 Profi
Ну и? с помощью [#2] загоняешь список файлов в Check ListBox и при инсталяции проверяешь отмечен ли checkbox с именем файла, если отмечен, то устанавливаешь... Вроде всё просто.]]> jack128 Инсталляторы https://forum.sources.ru/index.php?showtopic=166031&view=findpost&p=1394274 Thu, 28 Dec 2006 08:45:45 +0000 Заполнить NewCheckListBox https://forum.sources.ru/index.php?showtopic=166031&view=findpost&p=1394274 Цитата jack128 @
Что автоматизируешь то??

Ну, смотри. У меня есть список файлов, которые к программе идут как дополнение (то есть без них она тоже будет работать на ура), мне надо составить список в TNewCheckListBox с именами этих файлов, чтобы юзер сам выбрал какие ставить, а какую нет. Дело в том, что этих файлов много, но все они лежат в одной папке и у всех одинаковое расширение (в папке есть и другие файлы). В инсталлятор я их по маске загоняю, а вот что делать теперь? Я придумал только извлечение во временный каталог, перебор их там с добавлением в TNewCheckListBox, ну и потом установку вручную с помощь FileCopy. В таком решении автоматизировать можно все, кроме того, что во временный каталог можно извлечь файл с заранее известным именем! Следовательно, все равно руками составлять список и писать кучу ExtractTemporaryFile (ну, или в цикле, но все равно список создавать).]]> Profi Инсталляторы https://forum.sources.ru/index.php?showtopic=166031&view=findpost&p=1394254 Thu, 28 Dec 2006 08:36:49 +0000 Заполнить NewCheckListBox https://forum.sources.ru/index.php?showtopic=166031&view=findpost&p=1394254 Цитата Profi @
Функция ExtractTemporaryFile по маске не работает!

А что, разве должна?
Цитата Profi @
В общем, скорее всего, автоматизировать не удастся.

Что автоматизируешь то??]]> jack128 Инсталляторы https://forum.sources.ru/index.php?showtopic=166031&view=findpost&p=1393659 Wed, 27 Dec 2006 16:32:31 +0000 Заполнить NewCheckListBox https://forum.sources.ru/index.php?showtopic=166031&view=findpost&p=1393659 ExtractTemporaryFile по маске не работает! В общем, скорее всего, автоматизировать не удастся.]]> Profi Инсталляторы https://forum.sources.ru/index.php?showtopic=166031&view=findpost&p=1391253 Tue, 26 Dec 2006 08:35:24 +0000 Заполнить NewCheckListBox https://forum.sources.ru/index.php?showtopic=166031&view=findpost&p=1391253 Run Time! Просто я сделал без Preprocessor'а вот так:
        if FindFirst('Plugins\*.dmp',FindRec) then begin
            try
                Repeat
                    if FindRec.Attributes and FILE_ATTRIBUTE_DIRECTORY=0 then
                        NewCheckListBox1.AddCheckBox(FindRec.Name,'',0,false,true,false,false,nil);
                Until not FindNext(FindRec);
            finally
                FindClose(FindRec);
            end;
        end;

Но за вариант с Proprocessor'ом, все равно "+".]]> Profi Инсталляторы https://forum.sources.ru/index.php?showtopic=166031&view=findpost&p=1390874 Mon, 25 Dec 2006 21:12:49 +0000 Заполнить NewCheckListBox https://forum.sources.ru/index.php?showtopic=166031&view=findpost&p=1390874
Добавлено
Если именно через препроцессор, то примерно так:

    #define FindHandle
    #define FindResult
    #define Mask "F:\p2p на E\Games\Preferans\*.hlp"
    #sub ProcessFoundFile
      #define fn FindGetFileName(FindHandle)
      CheckListBox.AddCheckBox('{#fn}', '', 0, True, True, False, True, nil);
    #endsub
     
    // где в секции [Code]
     
      CheckListBox := TNewCheckListBox.Create(Page);
      CheckListBox.Width := Page.SurfaceWidth;
      CheckListBox.Height := ScaleY(97);
      CheckListBox.Flat := True;
      CheckListBox.Parent := Page.Surface;
      #for {FindHandle = FindResult = FindFirst(Mask, 0); FindResult; FindResult = FindNext(FindHandle)} ProcessFoundFile
]]> jack128 Инсталляторы https://forum.sources.ru/index.php?showtopic=166031&view=findpost&p=1390636 Mon, 25 Dec 2006 17:31:28 +0000 Заполнить NewCheckListBox https://forum.sources.ru/index.php?showtopic=166031&view=findpost&p=1390636 TNewCheckListBox на ней. Вопрос, можно ли как-то заполнить его именами файлов из определенного каталога? Думаю, что капать надо в сторону Preprocessor'а, но что-то пока никак не решу эту проблему.]]> Profi Инсталляторы