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

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

Автор: Begun999
Дата сообщения: 30.11.2011 22:38
TaTTDoGG
СПАСИБО!!!
Я так понял???

[more]#endif
repeat
MyError:=true;
if not ISDoneInitialize(ExpandConstant('{src}\records.inf'), $F777, Comps1,Comps2,Comps3, 0, false, MainForm.Handle, {#NeedMem}, @ProgressCallback) then break;
repeat

if not ISArcExtract ( 0, 0, ExpandConstant('{src}\autorun.inf'), ExpandConstant('{app}'), false, '', '', ExpandConstant('{app}'), notPCFonFLY {PCFonFLY}) then break;
if not ISArcExtract ( 0, 0, ExpandConstant('{src}\setup.exe'), ExpandConstant('{app}'), false, '', '', ExpandConstant('{app}'), notPCFonFLY {PCFonFLY}) then break;
if not ISArcExtract ( 0, 0, ExpandConstant('{src}\DVD1.bin'), ExpandConstant('{app}'), false, '', '', ExpandConstant('{app}'), notPCFonFLY {PCFonFLY}) then break;

if not ShowChangeDiskWindow('Пожалуйста, вставьте диск 2 и дождитесь его инициализации.', ExpandConstant('{src}'),'DVD2.bin' ) then break;
if not ISArcExtract ( 1, 0, ExpandConstant('{src}\DVD2.bin'), ExpandConstant('{app}'), false, '', '', '', notPCFonFLY ) then break;

if not ShowChangeDiskWindow('Пожалуйста, вставьте диск 3 и дождитесь его инициализации.', ExpandConstant('{src}'),'DVD3.bin' ) then break;
if not ISArcExtract ( 1, 0, ExpandConstant('{src}\DVD3.bin'), ExpandConstant('{app}'), false, '', '', '', notPCFonFLY ) then break;
if not ISArcExtract ( 2, 0, ExpandConstant('{src}\Soft'), ExpandConstant('{app}'), false, '', '', '', notPCFonFLY ) then break;
if not ShowChangeDiskWindow('Пожалуйста, вставьте диск 1 и дождитесь его инициализации.', ExpandConstant('{src}'),'DVD1.bin' ) then break;[/more]
Автор: Stalqer
Дата сообщения: 01.12.2011 09:12
Скрипт для Inno setup. Модифицированный мной (StalQer) скрипт феникса.

+ поддержка ISDone 0.6f

+ проигрывания музыки (остановка проигрывания, увеличение, уменьшение громкости музыки)

+ Splash

+ проигрывание флеш видео в окне настроек видеоизображения можно вставить флеш игру которая также будет прогаватись.

- Недостаток скрипта не возможность остановить проигрывание видео.

версия 1.0

Для компиляции требуется расширенная версия.

http://rghost.ru/32339191
Автор: troyan90
Дата сообщения: 01.12.2011 14:24
0D0A
вот пример:
http://rghost.ru/32801491
п.с. пример писал и пробовал только на юникодной версии инно..
Автор: ZIKIG
Дата сообщения: 01.12.2011 14:45
Stalqer
у меня такая вот фигня...
[more]

[/more]
Автор: TaTTDoGG
Дата сообщения: 01.12.2011 16:39
Begun999
почти. надо так:

Код: if not ISDoneInitialize(ExpandConstant('{src}\records.inf'), $F777, Comps1,Comps2,Comps3, 0, false, MainForm.Handle, {#NeedMem}, @ProgressCallback) then break;
repeat

if not ISArcExtract ( 0, 0, ExpandConstant('{src}\DVD1.bin'), ExpandConstant('{app}'), false, '', '', ExpandConstant('{app}'), notPCFonFLY {PCFonFLY}) then break;

if not ShowChangeDiskWindow('Пожалуйста, вставьте диск 2 и дождитесь его инициализации.', ExpandConstant('{src}'),'DVD2.bin' ) then break;
if not ISArcExtract ( 1, 0, ExpandConstant('{src}\DVD2.bin'), ExpandConstant('{app}'), false, '', '', '', notPCFonFLY ) then break;

if not ShowChangeDiskWindow('Пожалуйста, вставьте диск 3 и дождитесь его инициализации.', ExpandConstant('{src}'),'DVD3.bin' ) then break;
if not ISArcExtract ( 1, 0, ExpandConstant('{src}\DVD3.bin'), ExpandConstant('{app}'), false, '', '', '', notPCFonFLY ) then break;

if not ShowChangeDiskWindow('Пожалуйста, вставьте диск 1 и дождитесь его инициализации.', ExpandConstant('{src}'),'DVD1.bin' ) then break;
Автор: Begun999
Дата сообщения: 01.12.2011 17:54
TaTTDoGG
Огромное СПАСИБО!!!
Я так понял, что нужно прописывать файлы фриарк?
Автор: TaTTDoGG
Дата сообщения: 01.12.2011 19:37
судя по мануалу не обязательно. т.е. idone ищет указанный файл на диске. можно любой файл с диска. ну я всё время делаю архив.
Автор: Begun999
Дата сообщения: 01.12.2011 19:50
TaTTDoGG
Ещё вопрос - а здесь не нужно ничего менять?

[Setup]
AppName={#GameName}
AppVerName={#GameName}
AppPublisher=
AppVersion={#Version}
DefaultDirName={pf}\{#GameName}
DefaultGroupName={#GameName}
OutputDir=
SetupIconFile=Icon\icon.ico
OutputBaseFilename=setup
DirExistsWarning=no
MinVersion=0,5.01
VersionInfoDescription={#GameName}
DisableReadyPage=True
Автор: alex0413
Дата сообщения: 02.12.2011 00:39
подскажите, как в модуле bass от shegorat'a переместити картинку отключения музыки вверх вправо чтобы не пряталось, ато нормально отображается только на панельке где кнопки, ито с iswin7logo некоректно работает(изза этого хочу переместить). Заранее благодарен.
Автор: Devils_Night
Дата сообщения: 02.12.2011 05:35
Здорова ребятки!
Спасибо, nik1967 Пост, это получается можно использовать без кода?

Ещё вопросец. Как сделать такое как на скрине?

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

Автор: nik1967
Дата сообщения: 02.12.2011 06:09
Devils_Night
Цитата:
это подучается можно использовать без кода?
Можно.
4 разных примера.Правда для компонентов.
Автор: Devils_Night
Дата сообщения: 02.12.2011 06:47
nik1967, Ой не, немного не то, я там вообще ладу не дам, хотелось бы чтобы отрабатывало из секции [Components], я имею ввиду файлы для установки из секции [Files]
что то вроде

Код: [Components]
Name: A; Description: A; Types: full
Name: B; Description: B; Types: full;

[Files]
Source: "A\*"; DestDir: "{app}"; Flags: ignoreversion recursesubdirs createallsubdirs; Components: A
Source: "B\*"; DestDir: "{app}"; Flags: ignoreversion recursesubdirs createallsubdirs; Components: B
Автор: Stalqer
Дата сообщения: 02.12.2011 08:58
ZIKIG

Попробуй скачать последнюю версию инно юльтра, или закоментовуй строки в которых выбивает ошибку, может это из-за вирусов, или попробуй скомпилировать на другом компе.
Автор: Gnom3
Дата сообщения: 02.12.2011 11:51
Stalqer
Мда... прикольно ты навертел. Результат, конечно, очень даже ничего, мне понравилось в целом. Но вот кто тебя учил так работать с IsJoiner-ом? Там в папке \Example есть пример подготовки скриптов для объединения. а так-же тут я постарался максимально точно описать процедуру подготовки скриптов для объединения. Несколько секций Setup - это вообще супер

Добавлено:
ZIKIG
Компилируй на расширенной версии, все должно работать, хоть и неправильно собрано
Автор: ZIKIG
Дата сообщения: 02.12.2011 13:28
[more]

[/more]
Автор: Gnom3
Дата сообщения: 02.12.2011 14:10

Цитата:
Подробнее...

на другой хост залей картинку, не вижу
Автор: TaTTDoGG
Дата сообщения: 02.12.2011 14:32
Begun999
нет, не надо
Автор: Y4enik32
Дата сообщения: 02.12.2011 15:25
Привет всем.
Возникли проблемы с компонентами:

При выборе 1 из 2 компонентов распаковываются все 2

P.S. Использую Закос под R.G. Механики от Snoopak96
Автор: Gnom3
Дата сообщения: 02.12.2011 15:33

Цитата:
При выборе 1 из 2 компонентов распаковываются все 2

из 10-ти человек, почемуто, у 8-ми возникает такой вопрос. насколько я понимаю - распаковка исдоном? если да, то все просто - читаем справку и пример в скрипте тоже есть, как привязывается распаковка к компонентам. если считаеш, что это тебе не поможет, то не поленись еще раз посмотреть в справку к исдону. там четко написано - при тестовой установке - отработают все заявленные функции, независимо от выбранных компонентов - это совершенно необходимо для правильного отображения на прогрессбаре. что такое тестовая установка, что она дает и как работает - так-же очень понятно и невероятно доходчиво написано в справке по исдону.
Автор: Acint
Дата сообщения: 02.12.2011 16:16
Подскажите, пожалуйста, название данного скина. Или где его скачать?

[
Автор: ZIKIG
Дата сообщения: 02.12.2011 16:17
[more]

[/more]
Автор: Gnom3
Дата сообщения: 02.12.2011 18:20
ZIKIG
у тебя ошибка обращения к длл. вариантов два - либо криво обращаешся, либо, если скрипт вообще не трогал - шалит антивирус - блокирует длл-ку. Хотя... может вмешательство извне в длл-ку, но врядли, скорей всего все-таки антивирь блочит. Можно еще попробовать распаковать длл-ку до обращения к ней, иногда такие ошибки от этого устраняются:

Код: procedure ISFlash_init(Handle:HWND; Ffile: PAnsiChar);
external 'isflash_init@{tmp}\ISFlash.dll stdcall delayload';
procedure ISFlash_free;
external 'isflash_free@{tmp}\ISFlash.dll stdcall delayload';
..........................................
ExtractTemporaryFile('ISFlash.dll');
ExtractTemporaryFile('1.swf')
ISFlash_init(FlashPanel.Handle, ExpandConstant('{tmp}\1.swf'));
Автор: sergey3695
Дата сообщения: 02.12.2011 18:34

Цитата:
Подскажите, пожалуйста, название данного скина. Или где его скачать?

скина? ))). Это IsWin7 в шапке есть. Зачем замазывал, и так понятно rg.catalyst. ))).
Автор: Begun999
Дата сообщения: 02.12.2011 18:52
TaTTDoGG
Написал в личку.
Автор: nik1967
Дата сообщения: 02.12.2011 19:04

Цитата:
скина? ))). Это IsWin7

Если быть точнее - iswin7logo.dll
И это действительно не скин - это скрипт от нашей команды.
Автор: Acint
Дата сообщения: 02.12.2011 20:15
sergey3695
nik1967
Оу... Спасибо! А кто то может его прикрепить сюда? Спасибо

http://rghost.ru/33004241
Автор: nik1967
Дата сообщения: 02.12.2011 21:49

Цитата:
А кто то может его прикрепить сюда?
Эээ... как бы мы его писали по просьбе лидера Каталистов, так, что, сам понимаешь - эксклюзив. Ну а так, было несколько закосов, если поищешь - найдёшь.
Автор: ZIKIG
Дата сообщения: 02.12.2011 23:21
Gnom3

не идет....
Автор: Devils_Night
Дата сообщения: 03.12.2011 01:11
Данный вопрос всё ещё актуален.
Конечно есть что то подобное:
[more]
Код: [Setup]
AppId={{452AA98F-8AA7-40C9-A583-6DAF44B9E14E}
AppName=My Program
AppVersion=1.5
;AppVerName=My Program 1.5
AppPublisher=My Company, Inc.
DefaultDirName={pf}\My Program
DefaultGroupName=My Program
OutputDir=.
OutputBaseFilename=setup
Compression=lzma
SolidCompression=yes

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

[Files]
Source: A\*; DestDir: {app}; Flags: ignoreversion recursesubdirs createallsubdirs; Tasks: A
Source: B\*; DestDir: {app}; Flags: ignoreversion recursesubdirs createallsubdirs; Tasks: B
Source: C\*; DestDir: {app}; Flags: ignoreversion recursesubdirs createallsubdirs; Tasks: C

[Tasks]
Name: A; Description: A; GroupDescription: Типа прога; Flags: exclusive
Name: B; Description: B; Flags: exclusive; GroupDescription: Типа прога
Name: C; Description: C; Flags: exclusive; GroupDescription: Типа прога
Автор: TaTTDoGG
Дата сообщения: 03.12.2011 14:22
как пользоваться SrepInside
с какими параметрами запаковывать srp в arc и как потом этот arc извлекать?
пользуюсь isdone 0.6f

Страницы: 123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177

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


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