[diman_21Ru]

Dodakaedr, Кнопки пропали согласится

[Dodakaedr]

Кнопки пропали согласится »

Соответственно и их нужно переместить

Код:

procedure InitializeWizard();
begin
 WizardForm.LicenseMemo.Width:=600;
 WizardForm.LicenseMemo.Height:=400;
 WizardForm.LicenseAcceptedRadio.SetBounds(ScaleX(300), ScaleY(410), ScaleX(WizardForm.LicenseAcceptedRadio.Width), ScaleY(WizardForm.LicenseAcceptedRadio.Height));
 WizardForm.LicenseNotAcceptedRadio.SetBounds(ScaleX(300), ScaleY(430), ScaleX(WizardForm.LicenseNotAcceptedRadio.Width), ScaleY(WizardForm.LicenseNotAcceptedRadio.Height));
end;

[diman_21Ru]

Dodakaedr, Дружище может ты знаешь и FAQ как настроить его просто нет в настройках скрипта как с лицензией вот скрин

[Dodakaedr]

FAQ как настроить »

Так само сделайте и для того элемента которым используется ваш FAQ.

[diman_21Ru]

Dodakaedr, Знать бы как ещё )

[Dodakaedr]

diman_21Ru, Покажите тот кусок, где используется FAQ или скиньте скрипт.

[diman_21Ru]

Dodakaedr, InfoBeforeFile=faq.rtf

[Dodakaedr]

InfoBeforeFile=faq.rtf »

Код:

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

[Serega]

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

Пример

Код:

[Setup]
AppName=My Program
AppVerName=My Program v 1.5
DefaultDirName={pf}\My Program
OutputDir=.
Compression=lzma2/ultra
InternalCompressLevel=ultra
SolidCompression=yes

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

[CustomMessages]
ru.FSize=Общий объем извлеченных файлов %s
ru.Bt=Бт
ru.Kb=Кб
ru.Mb=Мб
ru.Gb=Гб
ru.Tb=Тб

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

[Code]
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 delayload';
function SetTimer(hWnd, nIDEvent, uElapse, lpTimerFunc: LongWord): LongWord; external 'SetTimer@user32.dll stdcall delayload';
function KillTimer(hWnd, nIDEvent: LongWord): LongWord; external 'KillTimer@user32.dll stdcall delayload';

function GetFileSize(const FileName: string): Extended;
{ определяет размер файла, в отличии от встроенной функции FileSize не имеет ограничения в 2 Гб }
var
  FindData: TFindRec;
  Lo, Hi: Integer;
begin
  if FindFirst(FileName, FindData) then
    try
      Lo := FindData.SizeLow;
      Hi := FindData.SizeHigh;
      Result := Lo;
      if Lo < 0 then
        Result := Result + $7FFFFFFF + $7FFFFFFF + 2;
      for Hi := Hi - 1 downto 0 do
        Result := Result + $7FFFFFFF + $7FFFFFFF + 2;
    finally
      FindClose(FindData);
    end;
end;

procedure IncSize;
var
  Size: Integer;
begin
  { FileSize имеет ограничение в 2 Гб, но на маленьких файлах работать должен шустрее }
  if FileSize(ExpandConstant(CurrentFileName), Size) then
    FullSize := FullSize + Extended(Size);
end;

function BytesToReadable(Bytes: Extended; Signs: Integer): string;
{ перевод числа в значение Бт/Кб/Мб/Гб/Тб (Signs - количество знаков после запятой)}
var
  n: Integer;
begin
  n := 0;
  while Int(Bytes) > 1023 do
    begin
      Bytes := Bytes/1024;
      n := n + 1;
    end;
  case n of                                     
    0: Result := FloatToStr(Int(Bytes)) + #32 + CustomMessage('Bt');                   // Байт
    1: Result := Format('%.' + IntToStr(Signs) + 'n ' + CustomMessage('Kb'), [Bytes]); // Килобайт
    2: Result := Format('%.' + IntToStr(Signs) + 'n ' + CustomMessage('Mb'), [Bytes]); // Мегабайт
    3: Result := Format('%.' + IntToStr(Signs) + 'n ' + CustomMessage('Gb'), [Bytes]); // Гигабайт
    4: Result := Format('%.' + IntToStr(Signs) + 'n ' + CustomMessage('Tb'), [Bytes]); // Терабайт
  end;
  StringChange(Result, ',', '.');
end;

procedure MyTimerProc(HandleW, Msg, idEvent, TimeSys: LongWord);
begin
  WizardForm.StatusLabel.Caption := Format(CustomMessage('FSize'), [BytesToReadable(FullSize, 2)]);
end;

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

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

[diman_21Ru]

Вставил код на музыку выдает ошибку с чем связана подскажите пожалуйста вот скрин :