[SeDmY]

Доброго времени суток!

Хочу запаковать игру в 7z (без сжатия), потом Precomp-ом, потом SRep-ом и наконец FreeArc-ом! Как это реализовать и как правильно создать скрипт, чтобы потом игра нормально установилась!?

+ может есть менее геморройный способ упаковки игры с таким эффектом, можно тоже скрипт)))!?

[nik1967]

DevilisH,
1) WizardForm.Font.Color:=clWhite; или WizardForm.Font.Color:=$ffffff;
2) //Избавиться от разделительных полос сверху и снизу
WizardForm.Bevel.visible:=true; // Если не надо, то WizardForm.Bevel.visible:=false;
WizardForm.Bevel1.visible:=true; // Если не надо, то WizardForm.Bevel1.visible:=false;

[DevilisH]

nik1967 Спасибо!
Еще 1 вопросик: как для каждой страницы инсталлятора сделать свой фон?

[nik1967]

как для каждой страницы инсталлятора сделать свой фон? »

В смысле на каждую страницу свою картинку или просто цвет?

[DevilisH]

На каждую страницу свою картинку. Во многих репаках игр такое видел. Допустим приветствие - один фон, выбор папки - другой и т.д..

[nik1967]

DevilisH,
Сборник скриптов, там есть пример.

[tema47]

Всем привет. А как сделать чтобы во время установки распаковался архив 7z?

[BlackEric]

Использую InnoSetup 5.3.10 (u)
Создаю установочный скрипт

Код:

[Tasks]
Name: desktopicon; Description: {cm:CreateDesktopIcon}; GroupDescription: {cm:AdditionalIcons}; Flags: unchecked
Name: quicklaunchicon; Description: {cm:CreateQuickLaunchIcon}; GroupDescription: {cm:AdditionalIcons}; Flags: unchecked; Languages:

[Files]
Source: I:\marsbyte\Time Controller\Time_Controller.exe; DestDir: {app}; Flags: ignoreversion
Source: I:\marsbyte\Time Controller\*; DestDir: {app}; Flags: ignoreversion recursesubdirs createallsubdirs
Source: \marsbyte\TIME_CONTROL.FDB; DestDir: {userappdata}\{#MyAppPublisher}\{#MyAppName}; Flags: ignoreversion confirmoverwrite; Tasks:
; NOTE: Don't use "Flags: ignoreversion" on any shared system files

[Icons]
Name: {group}\{#MyAppName}; Filename: {app}\{#MyAppExeName}
Name: {group}\{cm:ProgramOnTheWeb,{#MyAppName}}; Filename: {#MyAppURL}
Name: {group}\{cm:UninstallProgram,{#MyAppName}}; Filename: {uninstallexe}
Name: {commondesktop}\{#MyAppName}; Filename: {app}\{#MyAppPublisher}\{#MyAppExeName}; Tasks: desktopicon
Name: {userappdata}\Microsoft\Internet Explorer\Quick Launch\{#MyAppName}; Filename: {app}\{#MyAppExeName}; Tasks: quicklaunchicon

Собираю установщик.
На Win7 x64 пробую устанавливать. И иконка в панели быстрого запуска не создается.
В чем проблема?

И еще как разрешить пользователю при установке прописать программу в автозагрузку?

[Habetdin]

BlackEric, пример скрипта с закреплением ярлыка в панели задач Windows 7:

Код:

[Setup]
AppName=My Program
AppVerName=My Program 1.5
AppPublisher=My Company, Inc.
AppPublisherURL=http://winaddon.net/
AppSupportURL=http://winaddon.net/
AppUpdatesURL=http://winaddon.net/
DefaultDirName={pf}\My Program
DefaultGroupName=My Program
AllowNoIcons=yes
OutputDir=.
OutputBaseFilename=setup
Compression=lzma/ultra64
SolidCompression=true
InternalCompressLevel=ultra64

[Tasks]
Name: desktopicon; Description: {cm:CreateDesktopIcon}; GroupDescription: {cm:AdditionalIcons}; Flags: unchecked
Name: quicklaunchicon; Description: {cm:CreateQuickLaunchIcon}; GroupDescription: {cm:AdditionalIcons}; Flags: unchecked; OnlyBelowVersion: 0,6.1
Name: quicklaunchicon7; Description: {cm:CreateQuickLaunchIcon}; GroupDescription: {cm:AdditionalIcons}; Flags: unchecked; MinVersion: 0,6.1

[Files]
Source: compiler:Examples\MyProg.exe; DestDir: {app}; Flags: ignoreversion
Source: PinToTasckbar.vbs; DestDir: {tmp}; Flags: deleteafterinstall

[Icons]
Name: {group}\My Program; Filename: {app}\MyProg.exe
Name: {group}\{cm:UninstallProgram,My Program}; Filename: {uninstallexe}
Name: {commondesktop}\My Program; Filename: {app}\MyProg.exe; Tasks: desktopicon
Name: {userappdata}\Microsoft\Internet Explorer\Quick Launch\My Program; Filename: {app}\MyProg.exe; Tasks: quicklaunchicon

[Run]
Filename: {tmp}\PinToTasckbar.vbs; Parameters: """{app}\MyProg.exe"""; Flags: shellexec; Tasks: quicklaunchicon7

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

PinToTasckbar.vbs - сохраняем в кодировке win-1251

[user_123]

Подскажите пожалуйста, какая строковая переменную отвечает за текст, отображаемый над статус баром? Параметр description для секции Run мне не подходит.

Планирую такую реализацию:
{Files}
Source: MyFile.exe; DestDir: {app}; Afterinstall: Myprocedure

{code}
procedure myprocedure;
begin
<нужная_мне_переменная>:='Текст';
exec(expandconstant('{app}\MyFile.exe'),'','',SW_Show,ewWaitUntilTerminated,resultcode)
end;

------------------
Посидел в хелпе, кое-что нашёл... Возможно, <нужная_мне_переменная> - это WizardForm.StatusLabel.Caption / WizardForm.FileNameLabel.Caption