[Serega]

Здравствуйте, решил реализовать в Inno Setup 'Бегущую строку' и вот, что получилось...

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

Код:

; Решил реализовать в Inno Setup 'Бегущую строку' и вот, что получилось...
; Для нормальной работы у Вас должен быть установлен набор от Restools http://restools.hanzify.org/
; Подразумеваю под словом набор - InnoCompiler и ISCmplr, последние версии Вы можете найти на сайте Restools.
; Автор: Serega, http://forum.oszone.net/member.php?userid=88670

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

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

[_Code]
var
  lbl1: TLabel;
  tmr1: TTimer;

procedure tmr1Timer(Sender: TObject);
var
  str: string;
begin
  str:= lbl1.Caption;
  lbl1.Caption:= Copy(str, 2, Length(str) - 1) + Copy(str, 1, 1);
end;

procedure InitializeWizard();
begin
  //lbl1
  lbl1:= TLabel.Create(WizardForm);
  with lbl1 do begin
    Parent:= WizardForm;
    Left:= 20;
    Top:= 325;
    Width:= 200;
    Height:= 20;
    AutoSize:= False;
    Caption:= 'Вот, что можно сделать средствами Inno Setup...   ';
    Font.Color:= clWindowText;
    Font.Height:= -16;
    Font.Name:= 'MS Sans Serif';
    Font.Style:= [];
    ParentFont:= False;
  end;
  
  //tmr1
  tmr1:= TTimer.Create(WizardForm);
  with tmr1 do begin
    Interval:= 200;
    OnTimer:= @tmr1Timer;
  end;
end;

Для правильной работы требуется: ispack, после чего необходимо обновить, путём замены файлов, до расширенной версии от Restools.
В расширенную версию входят:
InnoCompiler - в неё входят файлы: Compil32.exe и Templates.dat;
Inno_ISCmplr_Setup - в неё входят файлы, лучше из папки InnoSetup_FullVCL: setup.e32, ISCmplr.dls, ISCmplr.dll и SetupLdr.e32.