[serg aka lain]

Как мне сделть чтоб установка какой либо программы отображалась так: (см.рис.)

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

Код:

[Files]
Source: {sys}\*.dll; DestDir: {app}; Flags: deleteafterinstall external;

[Setup]
AppName=My Program
AppVerName=My Program
DefaultDirName={pf}\My Program
OutputDir=userdocs:InnoSetupTest.

[code]
procedure CurPageChanged(CurPageID: Integer);
begin
  if CurPageID = wpInstalling then
  begin
    with WizardForm do
    begin           
      ClientWidth := ScaleX(330);
      ClientHeight := ScaleY(110);
      MainPanel.Hide;
      InnerNotebook.Left := 0;
      InnerNotebook.Top := 0;
      StatusLabel.Left := ScaleX(10);
      StatusLabel.Top := ScaleY(10);
      StatusLabel.Width := ClientWidth - ScaleX(20);
      FilenameLabel.Left := ScaleX(10);
      FilenameLabel.Top := StatusLabel.Top + StatusLabel.Height;
      FilenameLabel.Width := ClientWidth - ScaleX(20);
      ProgressGauge.Left := ScaleX(10);
      ProgressGauge.Top := FilenameLabel.Top + FilenameLabel.Height + ScaleY(5);
      ProgressGauge.Width := ClientWidth - ScaleX(20);
      CancelButton.BringToFront;
      CancelButton.Left := ClientWidth div 2 - CancelButton.Width div 2;
      CancelButton.Top := ClientHeight - CancelButton.Height - ScaleY(10); 
      Center; 
    end;
  end;

  if CurPageID = wpFinished then
  begin
    WizardForm.ClientWidth := ScaleX(497);
    WizardForm.ClientHeight := ScaleY(360);
    WizardForm.Center;
  end;
end;