[Nordek]

Irenis, Смотрите первое сообщение соседней темы:

Показать/скрыть: Различные сборки, русификаторы и полезные ссылки » Показать/скрыть: Распаковщики инсталляторов Inno Setup: » Inno Setup Unpacker - стандартная версия 0.40 [20.12.2013]; Inno Setup Unpacker enhanced - расширенная версия 0.38 [??.??.????]; HavySoft InnoExtractor - стандартная версия 4.8.1.157 [09.07.2014]; InnoEx - стандартная версия 0.5 [25.06.2014]; »

На примере консольной утилиты Inno Setup Unpacker:

Код:

:: Каталог для извлечения содержимого
set DIR="C:\Stronghold"

:: Исполняемый файл
set EXE="C:\Stronghold_setup.exe"

innounp.exe -x -a -d%DIR% %EXE%

[Serega]

дружил и с другими ключами? »

Предполагаю, что обработка других ключей у вас уже реализована, тогда в вашем случае можно написать так:

Пример

Код:

function InitializeSetup: Boolean;
var
  i, ResultCode: Integer;
  param: string;
  IsNeedRestart: Boolean;
begin
  IsNeedRestart := False;
  // проверяем с 2, ParamStr(0) = ...\setup.tmp, а ParamStr(1) = ...\setup.exe
  for i := 2 to ParamCount do
    if LowerCase(ParamStr(i)) = '/v' then
      begin
        param := param + ' /verysilent';
        IsNeedRestart := True;
      end
    else
      // запишем остальные ключи, если есть
      param := param + #32 + ParamStr(i);
  if IsNeedRestart then
    begin
      Exec(ExtractFileName(ExpandConstant('{srcexe}')), TrimLeft(param), ExtractFileDir(ExpandConstant('{srcexe}')), SW_SHOWNORMAL, ewNoWait, ResultCode);
      Exit;
    end;
  Result := True;
end;

[diman_21Ru]

Как можно в стрипт вывести дополнительную страницу для Tasks.

[Dodakaedr]

тогда в вашем случае можно написать так: »

Благодарю, все прекрасно работает!

[Tco 03]

Господа. Знаю такой код:

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

Код:

[Setup]
AppName=MyProg
AppVerName=MyProg
OutputDir=D:\Репаки\MyProg
DefaultDirName={pf}\MyProg

[Files]
Source: compiler:innocallback.dll; Flags: dontcopy
Source: D:\Program\*; DestDir: {app}; Flags: ignoreversion recursesubdirs createallsubdirs

[ code]
const
oneMB=1024*1024;

type
TTimerProc = procedure(HandleW, Msg, idEvent, TimeSys: LongWord);

var
FullSize: Extended;
TimerID: LongWord;

function WrapTimerProc(callback: TTimerProc; Paramcount: Integer): longword; external 'wrapcallback@files:innocallback.dll stdcall';
function SetTimer(hWnd, nIDEvent, uElapse, lpTimerFunc: LongWord): longword; external 'SetTimer@user32';
function KillTimer(hWnd, nIDEvent: LongWord): LongWord; external 'KillTimer@user32 stdcall delayload';

Function NumToStr(Float: Extended): String;
Begin
Result:= Format('%.2n', [Float]); StringChange(Result, ',', '.');
while ((Result[Length(Result)] = '0') or (Result[Length(Result)] = '.')) and (Pos('.', Result) > 0) do
SetLength(Result, Length(Result)-1);
End;

Function Size64(Hi, Lo: Integer): Extended;
Begin
Result:= Lo; if Lo< 0 then Result:= Result + $7FFFFFFF + $7FFFFFFF + 2; for Hi:= Hi-1 Downto 0 do Result:= Result + $7FFFFFFF + $7FFFFFFF + 2;
End;

Function ByteOrTB(Bytes: Extended; noMB: Boolean): String; {Перевод числа в значение бт/Кб/Мб/Гб/Тб (до 2х знаков после запятой)}
Begin
if not noMB then Result:= NumToStr(Int(Bytes)) +' Mb' else
if Bytes < 1024 then if Bytes = 0 then Result:= '0' else Result:= NumToStr(Int(Bytes)) +' Bt' else
if Bytes/1024 < 1024 then Result:= NumToStr(round((Bytes/1024)*10)/10) +' Kb' else
If Bytes/oneMB < 1024 then Result:= NumToStr(round(Bytes/oneMB*100)/100) +' Mb' else
If Bytes/oneMB/1000 < 1024 then Result:= NumToStr(round(Bytes/oneMB/1024*1000)/1000) +' Gb' else
Result:= NumToStr(round(Bytes/oneMB/oneMB*1000)/1000) +' Tb';
End;

function CalcDirSize(const fromDir, fileMask: string; SubDirsAllow: Boolean): Extended;
var
FSR, DSR: TFindRec; FindResult: Boolean; APath: string;
Begin
APath:= AddBackslash(fromDir);
FindResult:= FindFirst(APath + fileMask, FSR);
Try
while FindResult do
begin
if FSR.Attributes and FILE_ATTRIBUTE_DIRECTORY = 0 then Result:= Result + Size64(FSR.SizeHigh, FSR.SizeLow)
FindResult:= FindNext(FSR);
end;
FindResult := FindFirst(APath + '*.*', DSR);
while FindResult and SubDirsAllow do
begin
if ((DSR.Attributes and FILE_ATTRIBUTE_DIRECTORY) = FILE_ATTRIBUTE_DIRECTORY) and not ((DSR.Name = '.') or (DSR.Name = '..')) then
{Recursion} Result:= Result + CalcDirSize(APath + DSR.Name, fileMask, SubDirsAllow);
// если есть хоть одна рекурсия, то подсчёт почему-то не прерывается
FindResult:= FindNext(DSR);
end;
Finally
FindClose(FSR); FindClose(DSR);
end;
End;

procedure GetExtractSize();
begin
//Так как ClcDirSize суммирует полученные размеры, то сначала обнуляем счетчик
FullSize:=0;
FullSize:=CalcDirSize(ExpandConstant('{app}'), '*', true)
WizardForm.StatusLabel.Caption:= 'Общий объем извлеченных файлов ' + ByteOrTB(FullSize, true)
end;

Procedure MyTimerProc(h, msg, idevent, dwTime: Longword);
Begin
if WizardForm.CurPageID = wpInstalling then GetExtractSize();
End;

procedure DeinitializeSetup();
begin
KillTimer(0, TimerID);
end;

procedure CurStepChanged(CurStep: TSetupStep);
begin
if CurStep = ssInstall then
begin
TimerID:= SetTimer(0, 0, 500 {полсекунды}, WrapTimerProc(@MyTimerProc, 4));
end;
end;

Всё конечно работает прекрасно, но дело в том, что в папке установки уже присутствуют файлы. Из-за этого размер извлечённых файлов естественно считывается неправильный. Подскажите, пожалуйста, возможно ли как-то считывать файлы из самого инсталлятора, а не из папки?

[Dodakaedr]

Как можно в стрипт вывести дополнительную страницу для Tasks. »

Вот так

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

Код:

[Setup]
AppName=My Program
AppVerName=My Program ver.1.5
DefaultDirName={pf}\My Program

[Tasks]
Name: desktopicon; Description: Create a &desktop icon; GroupDescription: Additional icons:
Name: quicklaunchicon; Description: Create a &Quick Launch icon; GroupDescription: Additional icons:; Flags: unchecked
Name: associate; Description: &Associate files; GroupDescription: Other tasks:; Flags: unchecked

[Code]
var
Page: TInputOptionWizardPage;
procedure InitializeWizard();
begin
Page := CreateInputOptionPage(wpSelectTasks,
'Выберите дополнительные задачи', 'Какие дополнительные задачи необходимо выполнить?',
'Выберите дополнительные задачи, которые должны выполниться при установке My Program, после этого нажмите «Далее»:',
False, False);

{0} Page.Add('Дополнительная задача 1');
{1} Page.Add('Дополнительная задача 2');
{2} Page.Add('Дополнительная задача 3');
{3} Page.Add('Дополнительная задача 4');
{4} Page.Add('Дополнительная задача 5');
{5} Page.Add('Дополнительная задача 6');
{6} Page.Add('Дополнительная задача 7');
{7} Page.AddEx('Дополнительное ПО', 0, True);
{8} Page.AddEx('DirectX', 1, False);
{9} Page.AddEx('AudioDriver', 1, False);
//Page.Values[7] := True;
//Page.Values[8] := True;
end;

[diman_21Ru]

Как сделать страницу с лицензией и FAQ ровнее

[Dodakaedr]

Как сделать страницу с лицензией и FAQ ровнее »

В смысле ровнее?

[diman_21Ru]

Dodakaedr, Окно с Файлом лицензии сделать побольше

[Dodakaedr]

Окно с Файлом лицензии сделать побольше »

Так задайте размер

Код:

procedure InitializeWizard();
begin
 WizardForm.LicenseMemo.Width:=600;
 WizardForm.LicenseMemo.Height:=400;
end;