Inno Setup 为安装界面添加些文字

[Setup]
AppName=讯雷5.6.2.300
AppVerName=讯雷5.6.2.300去广告版
AppPublisher=电脑公司特别版
AppPublisherURL=http://www.dhghost.cn/
AppSupportURL=http://www.dhghost.cn/
AppUpdatesURL=http://www.dhghost.cn/
DefaultDirName=C:/Program Files/讯雷
DefaultGroupName=讯雷
AllowNoIcons=yes
LicenseFile=C:/Documents and Settings/Owen.Guo/桌面/serial.txt
InfoBeforeFile=C:/Documents and Settings/Owen.Guo/桌面/serial.txt
OutputDir=C:/Program Files
OutputBaseFilename=Thunder5.6.2.300.exe
Compression=lzma
SolidCompression=yes

[Messages]
BeveledLabel=电脑公司特别版官方论坛 讯雷5.6.2.300无广告版 制作：Guoyin
[Languages]
Name: "chinese"; MessagesFile: "compiler:Default.isl"

[Tasks]
Name: "desktopicon"; Description: "{cm:CreateDesktopIcon}"; GroupDescription: "{cm:AdditionalIcons}"; Flags: unchecked
Name: "quicklaunchicon"; Description: "{cm:CreateQuickLaunchIcon}"; GroupDescription: "{cm:AdditionalIcons}"; Flags: unchecked

[Files]
Source: "C:/Program Files/Thunder/Thunder.exe"; DestDir: "{app}"; Flags: ignoreversion
Source: "C:/Program Files/Thunder/*"; DestDir: "{app}"; Flags: ignoreversion recursesubdirs createallsubdirs
; 注意: 不要在任何共享系统文件上使用“Flags: ignoreversion”

[Icons]
Name: "{group}/讯雷5.6.2.300"; Filename: "{app}/Thunder.exe"
Name: "{group}/{cm:ProgramOnTheWeb,讯雷5.6.2.300}"; Filename: "http://www.dhghost.cn/"
Name: "{group}/{cm:UninstallProgram,讯雷5.6.2.300}"; Filename: "{uninstallexe}"
Name: "{commondesktop}/讯雷5.6.2.300"; Filename: "{app}/Thunder.exe"; Tasks: desktopicon
Name: "{userappdata}/Microsoft/Internet Explorer/Quick Launch/讯雷5.6.2.300"; Filename: "{app}/Thunder.exe"; Tasks: quicklaunchicon

[Run]
Filename: "{app}/Thunder.exe"; Description: "{cm:LaunchProgram,讯雷5.6.2.300}"; Flags: nowait postinstall skipifsilent

[Code]
procedure AboutButtonOnClick(Sender: TObject);
begin
MsgBox('更多请访问我们的论坛查看', mbInformation, mb_Ok);

end;

procedure URLLabelOnClick(Sender: TObject);
var
ErrorCode: Integer;
begin
ShellExec('open', 'http://www.dhghost.cn', '', '', SW_SHOWNORMAL, ewNoWait, ErrorCode);
end;

procedure InitializeWizard();
var
AboutButton, CancelButton: TButton;
URLLabel: TNewStaticText;
BackgroundBitmapImage: TBitmapImage;
BackgroundBitmapText: TNewStaticText;
LabelDate:Tlabel; //good
begin
CancelButton := WizardForm.CancelButton;

AboutButton := TButton.Create(WizardForm);
AboutButton.Left := WizardForm.ClientWidth - CancelButton.Left - CancelButton.Width;
AboutButton.Top := CancelButton.Top;
AboutButton.Width := CancelButton.Width;
AboutButton.Height := CancelButton.Height;
AboutButton.Caption := '关于';
AboutButton.OnClick := @AboutButtonOnClick;
AboutButton.Parent := WizardForm;

URLLabel := TNewStaticText.Create(WizardForm);
URLLabel.Caption := '电脑公司特别版';
URLLabel.Cursor := crHand;
URLLabel.OnClick := @URLLabelOnClick;
URLLabel.Parent := WizardForm;
URLLabel.Font.Style := URLLabel.Font.Style + [fsUnderline];
URLLabel.Font.Color := clBlue;
URLLabel.Top := AboutButton.Top + AboutButton.Height - URLLabel.Height - 2;
URLLabel.Left := AboutButton.Left + AboutButton.Width + ScaleX(20);
//end;

//[Code]
//procedure InitializeWizard1();
//var
//LabelDate:Tlabel;
//begin
WizardForm.WelcomeLabel2.Height:=100
WizardForm.PAGENAMELABEL.Font.Color:= clRed;
WizardForm.PAGEDESCRIPTIONLABEL.Font.Color:= clBlack;
WizardForm.WELCOMELABEL1.Font.Color:= clBlack;
WizardForm.WELCOMELABEL2.Font.Color:= clOlive;

{以下是添加的多余文字}
LabelDate:=Tlabel.Create(WizardForm)
LabelDate.Caption:='欢迎使用电脑公司特别版绿色软件'#10#13' '#10#13'本软件的最终解释权归软件作者所有'#10#13' '#10#13'更多精彩内容请访问我们论坛'#10#13' '#10#13'Http://www.dhghost.cn'#10#13' '#10#13'东海论坛 打造XP系统精品';
LabelDate.Left:=WizardForm.WelcomeLabel2.Left;
LabelDate.Top:= WizardForm.WelcomeLabel2.Top + WizardForm.WelcomeLabel2.Height+10;
LabelDate.Parent := WizardForm.WelcomePage;
end;