[Rostlv]

Serega, именно такой прогрессбар и нужен, чтобы брал стиль из системы, но в XP бегунка нет. Только должен быть расположен на странице основного прогрессбара, немного ниже. И привязать его к секции Run, заодно соединить с кодом, который я давал в предыдущем сообщении. Думаю, это пригодится не только мне, но и многим другим, ведь из Run многие устанавливают доп. ПО. К сожалению, сам я не смогу решить эту задачу.
Нашёл как добавить второй прогрессбар ниже основного, но в нём отсутствует бегунок:

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

Код:

var
  ProgressBar: TNewProgressBar;

procedure CurPageChanged(CurPageID: Integer);
var
i:Integer;
begin
If CurPageID=wpInstalling
then
 begin
  ProgressBar := TNewProgressBar.Create(WizardForm);
  ProgressBar.Left := ScaleY(40);
  ProgressBar.Top := ScaleX(180);
  ProgressBar.Width := ScaleY(415);
  ProgressBar.Height := ScaleX(18);
  ProgressBar.Parent := WizardForm;
  ProgressBar.Position := 0; //указывает количество заполняемых секторов
end;
begin
If CurPageID=wpFinished
then
ProgressBar.Hide
end;
end;

Лександер, спасибо, я его уже видел, вот только внешний вид не впечатлил, слишком грубо.