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

народ есть у кого нибудь такой скрипт?
http://i32.fastpic.ru/big/2011/0918/71/1a2dd89a9ae65ad18af8592af6f70a71.png
и еще
как через инно делать так чтобы при распаковке создалась папка например в моих документах

Прошу протестировать инсталлятор: http://rghost.ru/22450641

R3Pa4eK
http://i29.fastpic.ru/big/2011/0921/d8/7e44c60133239534d1ecef239eca82d8.jpeg
http://i27.fastpic.ru/big/2011/0921/36/3b30205c44f4a1f1bfcbb89f8ead7036.jpeg
http://i28.fastpic.ru/big/2011/0921/8e/378684d954655369f2bb05a4c029658e.jpeg

Цитата:

Доброго времени суток.
У кого нибудь есть скрипт на такой инстолятор:

за 300-400 рублей я тебе его сделаю...

Snoopak96
А так http://rghost.ru/22458751 ?

R3Pa4eK ты будешь скрипт этого инстала на паблик выкладывать ?

Exe вариант моего запрошенного скрипта тут

Y4enik32, в последнее время R3Pa4eK делает очень много закосов, но в паблик их не пускает почему-то.
R3Pa4eK, почему в паблик не пускаешь свои закосы?

Karbid87
А зачем? он может делает для себя, т.с повышая себе самооценку.

Цитата:

народ есть у кого нибудь такой скрипт?
http://i32.fastpic.ru/big/2011/0918/71/1a2dd89a9ae65ad18af8592af6f70a71.png

Есть у меня так как я его делал

Brabusdark:


Код:
[Code]
procedure InitializeWizard;
begin
CreateDir(ExpandConstant('{userdocs}\NewDir')); //{userdocs}-папка "Документы", NewDir - название создаваемой папки.
end;

А возможно ли сделать, чтоб юзер смог поставить "птичку" напротив компонентов "Version\107" и "Version\108" только в случае, если выбран компонент "GameLoD"?
Грубо говоря, нужно связать не дочерние компоненты.

Karbid87

Цитата:

почему в паблик не пускаешь свои закосы?

Какбэ делаю для себя и РГ, так что закосы кому попало не даю
vistaw

Цитата:

он может делает для себя, т.с повышая себе самооценку.

Y4enik32

Цитата:

Exe вариант моего запрошенного скрипта тут

Y4enik32, а какое принципиальное отличие этого скрипта от моего NFS Undercover 2.х?
Лично я никаких существенных отличий не нашел.
Проверка сист. требований один в один, мигание лейблов при несоответствии, даже звуки чекбоксов и эти взяты с моего скрипта.

Так что если возмешь NFS Undercover и чуть поработаешь напильником получишь тоже самое...

Да и вообще я смотрю, что после выхода NFS Undercover ничего принципиально нового никто не придумал, а все новое это хорошо забытое старое

ЗЫ. Глядя на этот скрипт сразу видно с чего он слеплен. Зато свои копирайты понатыкали по всему скрипту и нигде нет упоминания ни про меня ни про South. Могу отдать дань уважения только товарищу nik1967. Единственный человек, который указал в скрипте его авторов...

Gnom3

Цитата:

Предлагаю взимопомощ- если посчитаеш, что я заслуживаю работать с тобой.

Ну, это ты загнул. Я не такого высокого мнения мнения о себе
Я к чему веду, что скриптопись в основном топчится на месте использую старое. Юзать старое это конечно хорошо, но все равно надо двигатся вперед и вносить что-новое. Вскоре планирую взятся снова за напильник и помощь таких людей как ты обязательно понадобится.

Raf_SE
Только в коде (компоненты невозможно сделать зависимыми друг от друга)
Вариант:
[more=Зависимые компоненты][Setup]
AppName=My Application
AppVersion=1.5
DefaultDirName={pf}\My Application


[Components]
Name: text; Description: Язык субтитров; Types: full;
Name: text\rus; Description: Русский; Flags: exclusive;
Name: text\eng; Description: Английский; Flags: exclusive;
Name: voice; Description: Язык озвучки;
Name: voice\rus; Description: Русский; Flags: exclusive;
Name: voice\eng; Description: Английский; Flags: exclusive;

[Code]
var
OldEvent_ComponentsListClickCheck: TNotifyEvent;

procedure ComponentsListClickCheck(Sender: TObject);
begin
If IsComponentSelected('text') then
WizardForm.ComponentsList.ItemEnabled[3]:=False
else
WizardForm.ComponentsList.ItemEnabled[3]:=True;
OldEvent_ComponentsListClickCheck(Sender);
end;

procedure InitializeWizard();
begin
with WizardForm.ComponentsList do
begin
OldEvent_ComponentsListClickCheck := OnClickCheck;
OnClickCheck := @ComponentsListClickCheck;
ItemEnabled[3]:=False;
end;
end;[/more]



Добавлено:
YURSHAT
Предлагаю взимопомощ- если посчитаеш, что я заслуживаю работать с тобой.

ISFont.dll
Библиотека позволяет загрузить свой шрифт в формате .ttf
P.S.: Облекчил работу загрузки шрифта =)
Скачать

Добавлено:
P.S.S.: Можно ли добавить ISFont.dll в шапку? =)

vintage_1
Полезная вещь

ISFont.dll Unicode&Ansi
Та же ISFont.dll, но с поддержкой Unicode-компиляторов.

Скачать

люди знаю что обсуждалось, но что то не нашел
как убрать - http://i29.fastpic.ru/big/2011/0921/5d/5cfbbb31c1bbb46f5bdf8b4d96745d5d.jpg
прогон этот тестовый

Brabusdark
в самом верху над секцией Setup убери перед define records точку с запятой, а лучше почитай справку по isdone

люди а почему он у меня не находит айло для распаковки?
http://rghost.ru/22570511
insomnia - почитай ЛС

использовал inno как оболочку для установки msi используя
[Files]
Source: "Your-MSI-File.msi"; DestDir: "{tmp}"
[Run]
Filename: "msiexec.exe"; Parameters: "/i ""{tmp}\Your-MSI-File.msi"""

всё работает отлично но хотелось бы узнать можно ли сделать чтобы после установки inno ещё бы убивала msiexec в процессах а то оно будет висеть пока перезагруз не сделаешь либо вручную не снимешь. посоветуйте как сделать?

Gnom3

Задам вопрос по другому. Мне так самому понятней будет Где хранится информация о связи секций:


Код:
[Types]
Name: full; Description: "Выбрать все компоненты";
Name: osn; Description: "Основные информационные банки";
...
[Components]
Name: Structure\ib\osn\{#_name1}\{#_ib}; Description: {#_name3}; Types: full osn
...
[Files]
Source: {src}\Source\{#osn_base}\BASE\{#_ib}\*; DestDir: {app}\BASE\{#_ib}; Components: Structure\ib\osn\{#_name1}\{#_ib}; Flags: external recursesubdirs createallsubdirs;
...

Brabusdark я пока скрипт никому не даю(кроме тех кто помогает в его разработке

Люди добрые, потратил полчаса на поиски, но так и не нашел.
Можно ли в Inno сделать запрет запуска инсталла после определенного числа запусков или после определенной даты?
Если можно дайте, пожалуйста, скрипты для обеих вариантов (желательно с комментариями), если не сложно в ЛС. Заранее благодарен за помощь.

люди а почему он у меня не находит файло для распаковки?
http://rghost.ru/22570511
что ему надо?

Цитата:

Мне так самому понятней будет Где хранится информация о связи секций:

Эээ, это уже выше моих познаний. Навскидку - в скрипте, который ты пишеш - этот скрипт является по сути управляющим кодом откомпилированного инсталлятора, и я не уверен, что препроцессор может управлять компонентами изнутри компонентов. Хотя, может я и ошибаюсь.

Brabusdark в ISDone в секции if not ISArcExtract ( 0, 0, ExpandConstant('{src}\*.arc'), ExpandConstant('{app}'), '', false, '', '', ExpandConstant('{app}'), notPCFonFLY {PCFonFLY}) then break; укажи расположение файлов

Как отключить виндовый (у меня стоит WinXP SP3) звук ошибки, который проигрывает Inno, если Exit Code:1. Проще говоря у меня все работает как надо, только этот звук бесит, когда происходит выход из инсталлятора после его установки...

Xom9I4oK, мм... Единственное, чем могу помочь: Сделай батник запуска со строкой Setup.exe /NoMusic=1
И его запускай. Можно его как-то замаскировать. Пробуй.

Xom9I4oK

Цитата:

Как отключить виндовый (у меня стоит WinXP SP3) звук ошибки, который проигрывает Inno, если Exit Code:1. Проще говоря у меня все работает как надо, только этот звук бесит, когда происходит выход из инсталлятора после его установки...

Если ты слышишь этот звук при выходе, значит не все работает нормально и где то есть ошибка. Посмотри внимательней код.