Ru-Board.club
← Вернуться в раздел «Программы»

» Inno Setup (создание инсталяционных пакетов)

Автор: Gnom3
Дата сообщения: 05.04.2012 07:34

Цитата:
Raf_SE
Ктонить может в этом коде сделать так, чтобы текст описания компонентов нельзя было скопировать?


Код: DRTF.ReadOnly := True;
Автор: JHeavy
Дата сообщения: 05.04.2012 11:29
Здравствуйте. Спасибо nik1967 за помощь, у меня почти получилось, но не все...
Я так и не понял как сделать так чтобы при выборе rus1 и voice они (файлы) копировались в одну папку, а при выборе rus2 и voice в другую папку, файл звука
А в примере ниже если выбрать rus1 или rus2 вместе с Voice, то он копируется 2 раза сразу в обе папки.
Может кто то ещё сможет помочь

[Components]
Name: game; Description: Игрушка; Types: full compact custom; Flags: fixed
Name: Lang; Description: Русики и звук; Types: custom
Name: Lang\rus1; Description: русик первый; Types: custom; Flags: exclusive
Name: Lang\rus2; Description: русик второй; Types: custom; Flags: exclusive
Name: Voice; Description: Русский звук; Types: custom

[Files]
Source: "game\*"; DestDir: "{app}"; Components: game
Source: "rus1\*"; DestDir: "{app}\eng"; Flags: ignoreversion recursesubdirs createallsubdirs; Components: rus1
Source: "rus2\*"; DestDir: "{app}\deu"; Flags: ignoreversion recursesubdirs createallsubdirs; Components: rus2
Source: "Voice\*"; DestDir: "{app}\eng"; Flags: ignoreversion recursesubdirs createallsubdirs; Components: Voice
Source: "Voice\*"; DestDir: "{app}\eng"; Flags: ignoreversion recursesubdirs createallsubdirs; Components: Voice and Lang\rus1
Source: "Voice\*"; DestDir: "{app}\deu"; Flags: ignoreversion recursesubdirs createallsubdirs; Components: Voice and Lang\rus2
Автор: nik1967
Дата сообщения: 05.04.2012 11:51
JHeavy
Я так и не понял, что всё таки тебе нужно. При "Source: "Voice\*"; DestDir: "{app}\eng"; Flags: ignoreversion recursesubdirs createallsubdirs; Components: Voice" файл звука будет копироваться в папку eng не зависимо от выбора rus1 или rus2. Если убрать "Source: "Voice\*"; DestDir: "{app}\eng"; Flags: ignoreversion recursesubdirs createallsubdirs; Components: Voice" то файл звука будет копироваться в папки eng или deu в зависимости от выбора rus1 или rus2. Что ещё не так?
Автор: Raf_SE
Дата сообщения: 05.04.2012 12:07
Gnom3 (07:34 05-04-2012)
Цитата:
ReadOnly - буквально - только чтение.

Я немного не понял, что вы хотите сказать. Read Only видь выставлен, но желаемого результата не дает.
Автор: JHeavy
Дата сообщения: 05.04.2012 13:43
nik1967 нет, не совсем так, если Voice не выбран он не должен копироваться совсем, даже если выбраны rus1 или rus2, копируется только если он выбран. Проблема осталась в одном, при выборе rus2 и Voice они должны писаться в папку deu, а Voice пишется в обе папки
Автор: Gnom3
Дата сообщения: 05.04.2012 15:41
Raf_SE
Извиняюсь, ступил. Держи: [more=код]
Код: var
RichEditViewer1: TRichEditViewer;

procedure MemoKeyPress(Sender: TObject; var Key: Char);
begin
Key := #0;
end;

procedure MemoKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
Key := 0;
end;

procedure InitializeWizard();
begin
WizardForm.WelcomeLabel2.Hide;
WizardForm.WelcomeLabel1.Hide;

{ RichEditViewer1 }
RichEditViewer1 := TRichEditViewer.Create(WizardForm);
with RichEditViewer1 do
begin
Parent := WizardForm.WelcomePage;
Align := alRight;
Width := ScaleX(333);
ReadOnly := true;
RTFText := WizardForm.WelcomeLabel2.Caption;
OnKeyDown := @MemoKeyDown;
OnKeyPress := @MemoKeyPress;
end;
end;
Автор: Nasgul1987
Дата сообщения: 05.04.2012 17:36
JHeavy
дублированием сток
просто у тебя файлы и компоненты из твоего скрипта и фиг поймёшь какие именно файлы и куда
вот логика

[Components]
Name: game; Description: Игрушка; Types: full compact custom; Flags: fixed
Name: Lang; Description: Русики и звук; Types: custom

Name: Lang\rus1; Description: русик первый; Types: custom; Flags: exclusive
Name: Lang\rus2; Description: русик второй; Types: custom; Flags: exclusive
Name: Voice; Description: Русский звук; Types: custom

[Files]
Source: те же файлы ; DestDir: одна папка; Components: Voice and Lang\rus1

Source: те же файлы ; DestDir: другая папка; Components: Voice and Lang\rus2
Автор: Raf_SE
Дата сообщения: 05.04.2012 17:57
Gnom3 (15:41 05-04-2012)
Цитата:
Извиняюсь, ступил. Держи: код

Но ведь он касается не комментариев к компонентам и текст в нем по-прежнему возможно выделить/скопировать...
Автор: Gnom3
Дата сообщения: 05.04.2012 18:04

Цитата:
Raf_SEвыделить/скопировать

выделить можно, скопировать у меня не вышло...
Чтоб совсем уж сделать так чтоб никто не понял, что это ричэдит, можно, конечно, сделать, но сейчас некогда, возможно местные зубры помогут
Автор: Raf_SE
Дата сообщения: 05.04.2012 18:13
Gnom3 (18:04 05-04-2012)
Цитата:
Чтоб совсем уж сделать так чтоб никто не понял, что это ричэдит

Собсно это и требуется
Только мне кажется что кроме вас, тут зубров особо и нету...
Автор: nik1967
Дата сообщения: 05.04.2012 20:57
JHeavy
[more][Setup]
AppName=My Application
AppVersion=1.5
DefaultDirName={pf}\My Application
SolidCompression=yes
Compression=lzma/ultra
PrivilegesRequired=none
OutputDir=.

[Languages]
Name: Russian; MessagesFile: compiler:Languages\Russian.isl;

[Types]
Name: full; Description: Full installation; Flags: iscustom

[Components]
Name: game; Description: Игрушка; Types: full compact custom; Flags: fixed
Name: Lang; Description: Русики и звук; Types: full
Name: Lang\rus1; Description: русик первый; Flags: exclusive
Name: Lang\rus2; Description: русик второй; Flags: exclusive
Name: Voice; Description: Русский звук; Types: full

[Files]
Source: "game\*"; DestDir: "{app}"; Components: game
Source: "rus1\*"; DestDir: "{app}\eng"; Flags: ignoreversion recursesubdirs createallsubdirs; Components: Lang\rus1
Source: "rus2\*"; DestDir: "{app}\deu"; Flags: ignoreversion recursesubdirs createallsubdirs; Components: Lang\rus2
Source: "Voice\*"; DestDir: "{app}\eng"; Flags: ignoreversion recursesubdirs createallsubdirs; Components: Voice and Lang\rus1
Source: "Voice\*"; DestDir: "{app}\deu"; Flags: ignoreversion recursesubdirs createallsubdirs; Components: Voice and Lang\rus2[/more]
Raf_SE
Цитата:
Только мне кажется что кроме вас, тут зубров особо и нету...
Да ладно?
Автор: Raf_SE
Дата сообщения: 05.04.2012 21:08
nik1967 (20:57 05-04-2012)
Цитата:
Да ладно?

Прошу прощения.
Это было предвзятый вывод, основанный лишь на том, что никто кроме Gnom3 не откликнулся на мою просьбу о помощи.
Автор: MOD_TEC
Дата сообщения: 06.04.2012 14:07
Как у новой bass.dll v2.4.8 создать кнопку вкл выкл музыки...
Автор: nik1967
Дата сообщения: 06.04.2012 17:20
Raf_SE
Добавь DragMode:= dmAutomatic;
Автор: Raf_SE
Дата сообщения: 06.04.2012 18:42
nik1967
Все гениальное – просто :) Благодарю.
Для абсолютного совершенства не хватает лишь блокировки возможности кликнуть ПКМ по тексту. Вы можете подсказать как это сделать?
Автор: nik1967
Дата сообщения: 06.04.2012 20:10
Raf_SE
Хе, без возможности кликнуть ПКМ нельзя будет передать фокус на мемо - как следствие, нельзя будет скролить колёсиком мышки.
Автор: Raf_SE
Дата сообщения: 06.04.2012 20:27
nik1967
Я знаю об этом. Но сейчас скролить колесиком мышки тоже далеко не все смогут, ибо я уверен, что большинство пользователей не додумается предварительно кликнуть ПКМ по тексту.

В общем я готов идти на такую жертву и прошу Вас помочь с её реализацией
Автор: nik1967
Дата сообщения: 06.04.2012 21:17
Raf_SE
Ну а теперь мне следует признаться - я не знаю, как блокировать возможность кликнуть ПКМ по тексту.
Автор: JHeavy
Дата сообщения: 07.04.2012 11:29
nik1967 спасибо все работает, но вопрос остался, когда я выбираю только Voice, без rus1 или rus2, файл звука не копируется
Автор: GDDR7
Дата сообщения: 07.04.2012 18:00
Ребят подскажите как в этой раздаче http://www.bestrepack.net/forum/viewtopic.php?t=2683 прописана последовательность распаковки архивов в скрипте???
Автор: Despofix
Дата сообщения: 07.04.2012 22:07
есть ли какие-нибудь библиотеки кроме как isdone, в открытом доступе?
Автор: MOD_TEC
Дата сообщения: 07.04.2012 23:43
Возможно ли растянуть изображение только на странице установки
Автор: meekrab
Дата сообщения: 08.04.2012 07:47
Despofix
isexec от VolT'а есть.Версия 0.9 в свободном плавание (не могу сказать стабильная или нет).Версия 1.01 может и новая есть она имеется у группы Каталистов. Что по некоторым причинам не должна попасть в паблик. А может уже и слили вместе с скриптом гр.
Автор: nik1967
Дата сообщения: 08.04.2012 08:29

Цитата:
Я так и не понял как сделать так чтобы при выборе rus1 и voice они (файлы) копировались в одну папку, а при выборе rus2 и voice в другую папку, файл звука

Цитата:
когда я выбираю только Voice, без rus1 или rus2, файл звука не копируется
Что то я не понял, где упоминание о копировании Voice? И куда он должен копироваться в таком случае?
Автор: JHeavy
Дата сообщения: 08.04.2012 08:57
nik1967,извиняюсь может запамятовал, нужно чтобы Voice копировался также в папку eng, как при выборе вместе с rus 1, только без него. (то есть только файл звука).
А если добавить строчку

Source: "Voice\*"; DestDir: "{app}\eng"; Flags: ignoreversion recursesubdirs createallsubdirs; Components: Voice

то файл копируется в обе папки сразу.
Спасибо.
Автор: nik1967
Дата сообщения: 08.04.2012 11:20
[more=Ну тогда]
Код: [Setup]
AppName=My Application
AppVersion=1.5
DefaultDirName={pf}\My Application
SolidCompression=yes
Compression=lzma/ultra
PrivilegesRequired=none
OutputDir=.

[Languages]
Name: Russian; MessagesFile: compiler:Languages\Russian.isl;

[Types]
Name: full; Description: Full installation; Flags: iscustom

[Components]
Name: game; Description: Игрушка; Types: full compact custom; Flags: fixed
Name: Lang; Description: Русики и звук; Types: full
Name: Lang\rus1; Description: русик первый; Flags: exclusive
Name: Lang\rus2; Description: русик второй; Flags: exclusive
Name: Voice; Description: Русский звук; Types: full

[Files]
Source: "game\*"; DestDir: "{app}"; Components: game
Source: "rus1\*"; DestDir: "{app}\eng"; Flags: ignoreversion recursesubdirs createallsubdirs; Components: Lang\rus1
Source: "rus2\*"; DestDir: "{app}\deu"; Flags: ignoreversion recursesubdirs createallsubdirs; Components: Lang\rus2
Source: "Voice\*"; DestDir: "{app}\eng"; Flags: ignoreversion recursesubdirs createallsubdirs; Components: (Voice and Lang\rus1) or (Voice and not Lang\rus2)
Source: "Voice\*"; DestDir: "{app}\deu"; Flags: ignoreversion recursesubdirs createallsubdirs; Components: Voice and Lang\rus2
Автор: JHeavy
Дата сообщения: 08.04.2012 15:01
nik1967 Большое спасибо все отлично работает.
Автор: Raf_SE
Дата сообщения: 08.04.2012 16:00
Ктонить может перенести задачу из батника в секцию [Run] инсталлятора? Т.е. нужно чтобы действие выполнялись без bat файла, напрямую через cmd.exe

Код: @Echo Off
For /F "tokens=*" %%i In (123.txt) Do <nul set /p $WRT="%%i. Good Bye" >123.txt
pause&goto :Eof
Автор: quorg
Дата сообщения: 08.04.2012 21:19
Есть идея реализовать пакет самоустанавливающихся программ, основанный на полностью обновляемых через интернет (выбор версии) ядре, DLL, побочных файлов, включая скрипты с возможностью редактирования/замены, с полностью прозрачным процессом установки: иконки исходного, распаковывающего и распаковываемого файла, убираемая панель отладки...
Помогите с реализацией
Автор: Karbid87
Дата сообщения: 08.04.2012 22:23
meekrab
это та самая isexec101.dll?
CRC32: D100C20A
MD5: F15A5036D1A2EA8C0CED04A354CF033C
SHA-1: A969E66AD4AEB332865335503884CF8D64BCA60C

Страницы: 123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177

Предыдущая тема: поиск


Форум Ru-Board.club — поднят 15-09-2016 числа. Цель - сохранить наследие старого Ru-Board, истории становления российского интернета. Сделано для людей.