Имя пользователя:
Пароль:  
Помощь | Регистрация | Забыли пароль?  

Показать сообщение отдельно

Ветеран


Сообщения: 1133
Благодарности: 580

Профиль | Отправить PM | Цитировать


Здравствуйте, решил реализовать в 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.

-------
Книги нужны, чтобы напоминать человеку, что его оригинальные мысли не так уж новы... Авраам Линкольн.


Последний раз редактировалось Serega, 08-06-2009 в 22:36. Причина: добавление комментария

Это сообщение посчитали полезным следующие участники:

Отправлено: 21:34, 22-03-2009 | #518