Имя пользователя:
Пароль:
 

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

Аватара для Raf-9600

Старожил


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

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


Лександер, А как его "задействовать"?
Когда указываю так, то ничего не работает. Прогресс-бар тупо сбрасывается "на ноль", и все.

[Run]
Filename: "{app}\binkmix.exe"; StatusMsg: "MyProgress1"; AfterInstall: MyProgress1;
Filename: "{app}\binkmix.exe"; StatusMsg: "MyProgress2"; AfterInstall: MyProgress2;
Filename: "{app}\binkmix.exe"; StatusMsg: "MyProgress3"; AfterInstall: MyProgress3;
Filename: "{app}\binkmix.exe"; StatusMsg: "MyProgress4"; AfterInstall: MyProgress4;

[C0de]
procedure MyProgress1;
begin
WizardForm.ProgressGauge.Position:=10
end;

procedure MyProgress2;
begin
WizardForm.ProgressGauge.Position:=20
end;

procedure MyProgress3;
begin
WizardForm.ProgressGauge.Position:=30
end;

procedure MyProgress4;
begin
WizardForm.ProgressGauge.Position:=40
end;

Отправлено: 01:19, 30-10-2011 | #26