InnoSetup可以實現「安裝細節描述」界面嗎？

QUOTE( Example_Test.iss )

// 腳本使用了 加強版腳本編輯器 build 091218:Beta2
// 編譯器版本爲 5.3.6.ee1 

[Setup]
AppName=My Program
AppVerName=My Program version 1.5
DefaultDirName={pf}\My Program
DefaultGroupName=My Program
UninstallDisplayIcon={app}\MyProg.exe
Compression=lzma
SolidCompression=yes
OutputDir=userdocs:Inno Setup Examples Output

[Files]
Source: "MyProg.exe"; DestDir: "{app}"; BeforeInstall: AddToDetaList;
Source: "MyProg.chm"; DestDir: "{app}"; BeforeInstall: AddToDetaList;

[ISFormDesigner]
WizardForm=FF0A005457495A415244464F524D0030107702000054504630F10B5457697A617264466F726D0A57697A617264466F726D044C656674020003546F7002000C436C69656E744865696768740366010B436C69656E74576964746803EF010D506978656C73506572496E636802600A54657874486569676874020D00F10C544E65774E6F7465626F6F6B0D4F757465724E6F7465626F6F6B00F110544E65774E6F7465626F6F6B5061676509496E6E65725061676500F10C544E65774E6F7465626F6F6B0D496E6E65724E6F7465626F6F6B00F110544E65774E6F7465626F6F6B506167650E496E7374616C6C696E675061676500F302000E544E6577537461746963546578740B5374617475734C6162656C0756697369626C65080000F202010B544E65774C697374426F7808446574614C697374044C656674020003546F70022C05576964746803A1010648656967687403B9000A4974656D486569676874020D085461624F7264657202040756697369626C65080000F302020E544E6577537461746963546578740D46696C656E616D654C6162656C0756697369626C65080000F10F544E657750726F67726573734261720D50726F6772657373476175676503546F70021200000A544E6577427574746F6E0B53686F774465746142746E044C656674020503546F700230055769647468024B0648656967687402160743617074696F6E12080000003E663A79C67E82822800260044002900085461624F72646572020300000E544E65775374617469635465787409446574614C6162656C044C656674020003546F70020005576964746803A101064865696768740210084175746F53697A65080D53686F77416363656C4368617208085461624F72646572020500000000000000

[Code]
procedure ShowDetaBtnOnClick(Sender: TObject); forward;

{ RedesignWizardFormBegin } // 不要刪除這一行代碼。
// 不要修改這一段代碼，它是自動生成的。
var
DetaList: TNewListBox;
ShowDetaBtn: TNewButton;
DetaLabel: TNewStaticText;

procedure RedesignWizardForm;
begin
with WizardForm.StatusLabel do
begin
  Visible := False;
end;

{ DetaList }
DetaList := TNewListBox.Create(WizardForm);
with DetaList do
begin
  Parent := WizardForm.InstallingPage;
  Left := ScaleX(0);
  Top := ScaleY(44);
  Width := ScaleX(417);
  Height := ScaleY(185);
  ItemHeight := 13;
  TabOrder := 4;
  Visible := False;
end;

with WizardForm.FilenameLabel do
begin
  Visible := False;
end;

with WizardForm.ProgressGauge do
begin
  Top := ScaleY(18);
end;

{ ShowDetaBtn }
ShowDetaBtn := TNewButton.Create(WizardForm);
with ShowDetaBtn do
begin
  Parent := WizardForm.InstallingPage;
  Left := ScaleX(5);
  Top := ScaleY(48);
  Width := ScaleX(75);
  Height := ScaleY(22);
  Caption := '顯示細節(&D)';
  TabOrder := 3;
end;

{ DetaLabel }
DetaLabel := TNewStaticText.Create(WizardForm);
with DetaLabel do
begin
  Parent := WizardForm.InstallingPage;
  Left := ScaleX(0);
  Top := ScaleY(0);
  Width := ScaleX(417);
  Height := ScaleY(16);
  AutoSize := False;
  ShowAccelChar := False;
  TabOrder := 5;
end;

{ ReservationBegin }
// 這一部分是提供給你的，你能夠在這裏輸入一些補充代碼。
ShowDetaBtn.OnClick := @ShowDetaBtnOnClick;
{ ReservationEnd }
end;
// 不要修改這一段代碼，它是自動生成的。
{ RedesignWizardFormEnd } // 不要刪除這一行代碼。

procedure  InitializeWizard();
begin
RedesignWizardForm;
end;

procedure ShowDetaBtnOnClick(Sender: TObject);
begin
ShowDetaBtn.Visible := False;
DetaList.Visible := True;
end;

procedure AddToDetaList;
begin         
DetaLabel.Caption := '安裝: ' + ExpandConstant(CurrentFileName);
DetaList.Items.Append(DetaLabel.Caption); 

//滾動
DetaList.ItemIndex := DetaList.Items.Count - 1;
end;

procedure  CurPageChanged(CurPageID: Integer); begin if CurPageID = wpFinished then begin   // 跳回前一頁，忽略完成頁。    DetaList.Items.Append('安裝完成');    WizardForm.PageNameLabel.Caption := '安裝完成';   WizardForm.PageDescriptionLabel.Caption := '安裝程序已經成功完成安裝。';   DetaLabel.Caption := '完成';   WizardForm.InnerNotebook.ActivePage := WizardForm.InstallingPage;   WizardForm.OuterNotebook.ActivePage := WizardForm.InnerPage; end; end;