[saurn]

а при распаковке паративки, скрыть выбор папки, чтобы сразу приступал к распаковке »

читать дальше »

Код:

;InnoSetupVersion=5.5.0 (Unicode)
[Setup]
AppName=Autorun Organizer
AppVerName=Autorun Organizer 1.22
AppVersion=1.22
AppPublisher=RePack by Killer000.
DefaultDirName={pf}\Autorun Organizer
DefaultGroupName=Autorun Organizer
UninstallDisplayIcon={app}\mischief.exe
UninstallDisplayName=Autorun Organizer 1.22 RePack
OutputBaseFilename=Autorun Organizer 1.22
Compression=lzma2/ultra64
Uninstallable=not IsComponentSelected('Portable')
DisableProgramGroupPage=yes
DisableReadyPage=yes
WizardImageFile=embedded\WizardImage.bmp
WizardSmallImageFile=embedded\WizardSmallImage.bmp

[Files]
Source: "{app}\AutorunOrganizer.exe"; DestDir: "{src}\Autorun Organizer Portable"; Components: Portable; MinVersion: 0.0,5.0; Flags: ignoreversion
Source: "{app}\ChemtableStartupChecker.exe"; DestDir: "{src}\Autorun Organizer Portable"; Components: Portable; MinVersion: 0.0,5.0; Flags: ignoreversion
Source: "{app}\HardwareConstant.dll"; DestDir: "{src}\Autorun Organizer Portable"; Components: Portable; MinVersion: 0.0,5.0; Flags: ignoreversion
Source: "{app}\ProgramDataStorage.const"; DestDir: "{src}\Autorun Organizer Portable"; Components: Portable; MinVersion: 0.0,5.0; Flags: ignoreversion
Source: "{app}\Reg64Call.exe"; DestDir: "{src}\Autorun Organizer Portable"; Components: Portable; MinVersion: 0.0,5.0; Flags: ignoreversion
Source: "{app}\Updater.exe"; DestDir: "{src}\Autorun Organizer Portable"; Components: Portable; MinVersion: 0.0,5.0; Flags: ignoreversion
Source: "{app}\UpdaterDll.dll"; DestDir: "{src}\Autorun Organizer Portable"; Components: Portable; MinVersion: 0.0,5.0; Flags: ignoreversion
Source: "{app}\Languages\Russian.sib"; DestDir: "{src}\Autorun Organizer Portable\Languages\"; Components: Portable; MinVersion: 0.0,5.0; Flags: ignoreversion
Source: "{app}\Documentation\images\line.gif"; DestDir: "{src}\Autorun Organizer Portable\Documentation\images\"; Components: Portable; MinVersion: 0.0,5.0; Flags: ignoreversion
Source: "{app}\Documentation\index_eng.htm"; DestDir: "{src}\Autorun Organizer Portable\Documentation\"; Components: Portable; MinVersion: 0.0,5.0; Flags: ignoreversion
Source: "{app}\Documentation\index_rus.htm"; DestDir: "{src}\Autorun Organizer Portable\Documentation\"; Components: Portable; MinVersion: 0.0,5.0; Flags: ignoreversion
Source: "{app}\Documentation\styles.css"; DestDir: "{src}\Autorun Organizer Portable\Documentation\"; Components: Portable; MinVersion: 0.0,5.0; Flags: ignoreversion
Source: "{app}\AutorunOrganizer.exe"; DestDir: "{app}"; Components: install; MinVersion: 0.0,5.0; Flags: ignoreversion
Source: "{app}\ChemtableStartupChecker.exe"; DestDir: "{app}"; Components: install; MinVersion: 0.0,5.0; Flags: ignoreversion
Source: "{app}\HardwareConstant.dll"; DestDir: "{app}"; Components: install; MinVersion: 0.0,5.0; Flags: ignoreversion
Source: "{app}\ProgramDataStorage.const"; DestDir: "{app}"; Components: install; MinVersion: 0.0,5.0; Flags: ignoreversion
Source: "{app}\Reg64Call.exe"; DestDir: "{app}"; Components: install; MinVersion: 0.0,5.0; Flags: ignoreversion
Source: "{app}\Updater.exe"; DestDir: "{app}"; Components: install; MinVersion: 0.0,5.0; Flags: ignoreversion
Source: "{app}\UpdaterDll.dll"; DestDir: "{app}"; Components: install; MinVersion: 0.0,5.0; Flags: ignoreversion
Source: "{app}\Languages\Russian.sib"; DestDir: "{app}\Languages\"; Components: install; MinVersion: 0.0,5.0; Flags: ignoreversion
Source: "{app}\Documentation\images\line.gif"; DestDir: "{app}\Documentation\images\"; Components: install; MinVersion: 0.0,5.0; Flags: ignoreversion
Source: "{app}\Documentation\index_eng.htm"; DestDir: "{app}\Documentation\"; Components: install; MinVersion: 0.0,5.0; Flags: ignoreversion
Source: "{app}\Documentation\index_rus.htm"; DestDir: "{app}\Documentation\"; Components: install; MinVersion: 0.0,5.0; Flags: ignoreversion
Source: "{app}\Documentation\styles.css"; DestDir: "{app}\Documentation\"; Components: install; MinVersion: 0.0,5.0; Flags: ignoreversion

[Run]
Filename: "{app}\AutorunOrganizer.exe"; Description: "{cm:LaunchProgram,Autorun Organizer}"; Components: Install; MinVersion: 0.0,5.0; Flags: postinstall skipifsilent nowait

[Icons]
Name: "{group}\{cm:LaunchProgram,Autorun Organizer}"; Filename: "{app}\AutorunOrganizer.exe"; Components: Install; Tasks: Group; MinVersion: 0.0,5.0;
Name: "{group}\{cm:UninstallProgram,Autorun Organizer}"; Filename: "{uninstallexe}"; Components: Install; Tasks: Group; MinVersion: 0.0,5.0;
Name: "{userdesktop}\{cm:LaunchProgram,Autorun Organizer}"; Filename: "{app}\AutorunOrganizer.exe"; Components: Install; Tasks: Desktopicon; MinVersion: 0.0,5.0;

[Tasks]
Name: "desktopicon"; Description: "{cm:CreateDesktopIcon}"; GroupDescription: "{cm:AdditionalIcons}"; Components: "Install"; MinVersion: 0.0,5.0;
Name: "group"; Description: "{cm:Shortcut}"; GroupDescription: "{cm:AdditionalIcons}"; Components: "Install"; MinVersion: 0.0,5.0;

[Components]
Name: "install"; Description: "{cm:Install}"; Types: "custom"; MinVersion: 0.0,5.0; Flags: exclusive
Name: "portable"; Description: "{cm:Portable}"; Types: "custom"; MinVersion: 0.0,5.0; Flags: exclusive

[Types]
Name: "custom"; Description: "Выборочная установка"; Flags: iscustom

[Languages]
; These files are stubs
; To achieve better results after recompilation, use the real language files
Name: "ru"; MessagesFile: "embedded\Russian.isl";

[CustomMessages]
ru.NameAndVersion=%1, версия %2
ru.AdditionalIcons=Дополнительно:
ru.CreateDesktopIcon=Ярлык на &Рабочем столе
ru.CreateQuickLaunchIcon=Создать значок в &Панели быстрого запуска
ru.ProgramOnTheWeb=Сайт %1 в Интернете
ru.UninstallProgram=Удалить
ru.LaunchProgram=Запустить %1
ru.AssocFileExtension=Св&язать %1 с файлами, имеющими расширение %2
ru.AssocingFileExtension=Связывание %1 с файлами %2...
ru.AutoStartProgramGroupDescription=Автозапуск:
ru.AutoStartProgram=Автоматически запускать %1
ru.AddonHostProgramNotFound=%1 не найден в указанной вами папке.%n%nВы всё равно хотите продолжить?
ru.Shortcut=Ярлыки в меню «Пуск»
ru.ContextMenu=Пункт контекстного меню
ru.Install=Установка обычной версии
ru.Portable=Распаковка портативной версии (рядом с инсталлятором)

[code]
var
Components: TLabel; ComponentPage: TWizardPage;
SelectComponentsLabel: TLabel;


procedure InitializeWizard();
begin
ComponentPage := CreateCustomPage(wpLicense, 'Выбор компонентов',
'Какие компоненты должны быть установлены?');
WizardForm.DiskSpaceLabel.Hide
WizardForm.TypesCombo.Parent:= ComponentPage.Surface;
WizardForm.ComponentsList.Parent:= ComponentPage.Surface
WizardForm.ComponentsDiskSpaceLabel.Parent:= ComponentPage.Surface
WizardForm.TypesCombo.Parent:= ComponentPage.Surface;
WizardForm.TypesCombo.Top:= ScaleY(45)
WizardForm.ComponentsList.Top:= ScaleY(45)
WizardForm.ComponentsDiskSpaceLabel.Hide;
WizardForm.ComponentsList.Height := ScaleY(165);
SelectComponentsLabel:= TLabel.Create(WizardForm)
with SelectComponentsLabel do
begin
Left:= ScaleX(40);
Width:= WizardForm.SelectComponentsLabel.Width;
Height:= WizardForm.SelectComponentsLabel.Height;
Autosize:= false;
WordWrap:= true;
Transparent:= true;
Caption:= WizardForm.SelectComponentsLabel.Caption;
WizardForm.SelectComponentsLabel.Parent:= ComponentPage.Surface;
end
end;

function ShouldSkipPage(PageID: Integer): Boolean;
begin
    case PageID of
        wpSelectComponents: Result := True;
        wpSelectDir: Result := IsComponentSelected('portable') <> False;
    end;
end;