Скрипты Inno Setup. Помощь и советы [часть 3]

[ChVL]

Цитата ChVL:
…и призваны (по мнению создателей) хранить служебную информацию и авторские права.
Коллега, и где только Вы такой чуши наслушались, а?! »
Да хотя бы в той статье, ссылку на которую Вы сами дали, читаем:
В Windows 2000 Microsoft начал использовать альтернативные потоки данных в NTFS для хранения информации, такой как данные файла автора или названия атрибутов и изображения миниатюр. (Перевод мой)
Могу привести и немало другой подобной "чуши", подтверждающей мои слова. Выбрал один источник (http://www.xakep.ru/post/21628/default.asp), который отличается тем, что в нём приведены конкретные коды, предлагаемые к использованию - тут уж не поспоришь... С этим материалом сейчас, кстати, и работаю применительно к поставленной задаче.

[Gnom_aka_Lexander]

Ну а почему сразу не задать нужную ширину текста при создании TLabel, а AutoSize поставить в False?
Мне кажется так проще всего... »
Я вот (http://rghost.ru/4733381) что имею ввиду, на странице компоненты лейбл с описанием компонент.
На данный момент там все вручную...

[insombia]

кто то может сделать мне скрипт установки Devil May Cry 4 типа как NFS Undercover?

[Gnom_aka_Lexander]

insombia, береш скрипт NFS Undercover и просто меняеш там названия, ярлыки, реестр, графику оформления на те, которые должны быть в нужной тебе игре. Это совсем несложно, хотя-бы начни, если непонятно - тебе подскажут.
За тебя такой сложный скрипт с нуля точно никто писать не будет, если только за деньги.

[Serega]

Я вот что имею ввиду »
Если не сложно, перекомпилируйте на пустой инсталл, а то при моей медленной скорости 4,5 кб\сек, я просто не могу скачать файл, постоянно скидывает...

[Gnom_aka_Lexander]

Serega, это пустой инстал... полный он около 60 метров, скрипт окол 11-ти метров. Перезалил сюда (http://innoultra.ru/downloads/тест.exe) - ссылка прямая, может не будет скидывать.
Подскажите пожалуйста, как сюда:
procedure CurStepChanged(CurStep: TSetupStep);
ResultCode, tmp:integer;
begin
if CurStep = ssDone then
if MsgBox('{#SetupSetting("AppName")}' +' успешно ' + ' установлена!' + #10#10#13 + 'Запустить ' + '{#SetupSetting("AppName")}' + '?' , mbInformation, MB_OKCANCEL) = IDOK then
Exec(ExpandConstant('{#AppExe}'), '', '', SW_SHOW, ewNoWait, ResultCode);
end;
end;
приделать еще одну кнопку, на запуск еще одного файла?

[Serega]

приделать еще одну кнопку, на запуск еще одного файла? »
Это стандартное сообщение и задать название для третьей кнопки не получится, придётся рисовать самому такое сообщение, т.е. просто создаёте форму и все контролы, которые хотите на ней увидеть. Пример создания формы есть в CodeClasses.iss, смотрите procedure FormButtonOnClick(Sender: TObject);

[insombia]

http://i17.fastpic.ru/big/2011/0312/4e/646c02e7367a13826ffc70abd5466b4e.jpg

кто то может сделать подобный инсталятор для call of duty modern warfare 2?

И вопрос есть ли програмка для того чтобы можно было как то с любой игры знать коды для inno припустим как у механиков

[duxa]

insombia, Держи (http://rghost.ru/4741045) свой айфон.

[Gnom_aka_Lexander]

Разобрался со своим (http://forum.oszone.net/post-1633371-1069.html) вопросом, сделал на примере скрипта для игры Minecraft скачать (http://rghost.ru/4743261) заодно получился меседж-бокс, который и на семерке отображается без белой полоски снизу.

[insombia]

duxa там фон dead space 2 как мне сделать фон call of duty? файлы я менял не помогает

[R.i.m.s.k.y.]

Повторяю вопрос - как сделать мультиязычный инсталлер в части касающейся списка компонентов.

[Languages]

Name: russian; MessagesFile: compiler:Languages\Russian.isl;
Name: english; MessagesFile: compiler:\Default.isl;

[Components]
# define abcd "абвгд"
Name: a; Description: {#abcd}; Flags: disablenouninstallwarning

надо чтобы при русском языке было abcd = "абвгд", а при англ abcd = "abcdefg"
Разные переменные заводить не вариант, по переменным идет проверка/подстановка через код наподобие этой
WizardForm.ComponentsList.ItemEnabled[WizardForm.ComponentsList.Items.IndexOf('{#abcd}')] := False;

[Gnom_aka_Lexander]

R.i.m.s.k.y., Я-же добавил к своему ответу тогда - язык может применяться как компонент:
[Languages]
Name: ru; MessagesFile: compiler:Languages\Russian.isl; LicenseFile: 1.rtf; InfoBeforeFile: Пролог_ru.rtf; InfoAfterFile: Эпилог_ru.rtf
Name: en; MessagesFile: compiler:Languages\English.isl; LicenseFile: 2.rtf; InfoBeforeFile: Пролог_En.rtf; InfoAfterFile: Эпилог_En.rtf

[Files]
Source: 1; DestDir: {app}; Languages: ru;
Source: 2; DestDir: {app}; Languages: en;

[Tasks]
Name: 1; Description: русский; Languages: ru;
Name: 2; Description: Английский; Languages: en;

[Components]
# define abcd "абвгд"
# define abcd1 "abcdefg"
Name: a; Description: {#abcd}; Flags: disablenouninstallwarning; Languages: ru;
Name: b; Description: {#abcd1}; Flags: disablenouninstallwarning; Languages: en;

[XXXler]

R.i.m.s.k.y.


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

[Components]
Name: a; Description: "{cm:abcd}"; Flags: disablenouninstallwarning

[CustomMessages]
english.abcd=abcdefg
russian.abcd=абвгд

...

WizardForm.ComponentsList.ItemEnabled [WizardForm.ComponentsList.Items.IndexOf (ExpandConstant ('{cm:abcd}'))] := False;

[ryabis]

Не нашел ответа на свой вопрос и подходящей темы...
Как в скрипте Inno Setup выйти из инсталлятора? Делаю так:

|Code|
function InitializeSetup(): Boolean;
begin
//....

if interbaseInstalled = true then begin
MsgBox('В системе установлен InterBase!', mbError, MB_OK);
Exit;
end;

//....
end;
Но выходит только из этой функции, а надо прекратить работу всего инсталлятора...

Самого осенило.... =)

|Code|
function InitializeSetup(): Boolean;
begin
//....

if interbaseInstalled = true then begin
MsgBox('В системе установлен InterBase!', mbError, MB_OK);
Result := false;
Exit;
end;

//....
end;

[0.07]

у меня такая проблемма: я беру за основу этот (http://forum.oszone.net/attachment.php?attachmentid=61317&stc=1&d=1300386055) скрипт и редактирую его, но почему то инсталлятор создается, а архив не распаковывается
может кто-нибудь посмотрит Мой скрипт (http://forum.oszone.net/attachment.php?attachmentid=61316&stc=1&d=1300385451) и подскажет, что я делаю не так. Буду очень признателен

[Gnom_aka_Lexander]

0.07, У тебя парадокс в строчке:
Source: {src}\PES11.arc; DestDir: {app}; Flags: external dontcopy{#SourceToProgress}
- ты задаеш путь для архива DestDir: {app} - положить сюда, и тут-же - Flags: external dontcopy - говориш, что его не нужно копировать никуда (по умолчанию в этом случае копируется в папку темп но у тебя я хз вообще, куда в этом случае уйдет твой архив) - инсталлятор в итоге не знает, где брать то, чтто распаковывать :)

[0.07]

Лександер,
спасибо огромное,очень помог.я столько времени думал над этим скриптом, а дело было в том, что я неправильно указал, где лежит архив

[Krinkels]

Доброго времени суток, друзья. Обновил свой сборник скриптов, забираем (http://www.krinkels.ru/load/raznoe/inno_faq_v1_4/2-1-0-29)

[Iska]

Выбрал один источник, »
Спасибо за ссылку. Теперь ясно, где Вы сие почерпнули. Журнал мог бы потратиться на литкорректора, дабы не пропускать таких ошибок, как «безфайловые процессы», прямо в заголовке статьи. Статья написана весьма предвзято, автор выдаёт свои рассуждения за вселенскую истину.
Одна чушь:
Они [именованные потоки] никак не сказываются на размере файла (!!!)…
вместо того, чтобы написать, например:
В качестве размера файла командный процессор и Проводник указывают размер основного не именованного потока, тем не менее полный размер файла будет состоять из суммарной длины всех входящих в него потоков.

Другая чушь, тут же:
…и призваны (по мнению создателей) хранить служебную информацию и авторские права.
Из какого пальца автор высосал эту истину? Приведённая мною ссылка (http://en.wikipedia.org/wiki/Alternate_data_stream) и Ваш перевод:
В Windows 2000 Microsoft начал использовать альтернативные потоки данных в NTFS для хранения информации, такой как данные файла автора или названия атрибутов и изображения миниатюр. »
Разницу видите? Между «призваны (по мнению создателей) хранить служебную информацию и авторские права» и «Начал использовать для…» — колоссальная разница. В первом делается абсолютно безаппеляционное утверждение о предназначении данной возможности, во втором — о том, что частным случаем стало использование такой возможности для того-то и того-то.

P.S. Всё ж в процитированной Вами статье слово «"недокументированные" возможности» взято в кавычки. У Вас же:
эта незадокументированная возможность интересная. »
— нет.