【Inno Setup】添加关于按钮和URL网址

本文链接：https://blog.csdn.net/chenlu5201314/article/details/54963225

[code]
//URL点击事件
procedure URLLabelOnClick(Sender: TObject);
var
  ErrorCode: Integer;
begin
  ShellExec('open', 'http://blog.csdn.net/chenlu5201314', '', '', SW_SHOWNORMAL, ewNoWait, ErrorCode);
end;
  //关于按钮点击事件
procedure AboutButtonOnClick(Sender: TObject);
begin
  //这是关于按钮里面的内容 #13#10是换行的意思
  MsgBox('少莫千华' #13#10 'http://blog.csdn.net/chenlu5201314', mbInformation, MB_OK); 
end;


procedure InitializeWizard();
var
  AboutButton: TButton;
  URLLabel: TNewStaticText;
begin
  AboutButton := TButton.Create(WizardForm);
  AboutButton.Left := WizardForm.ClientWidth - WizardForm.CancelButton.Left - WizardForm.CancelButton.Width;
  AboutButton.Top := WizardForm.CancelButton.Top;
  AboutButton.Width := WizardForm.CancelButton.Width;
  AboutButton.Height := WizardForm.CancelButton.Height;
  AboutButton.Caption := '关于(&A)';
  AboutButton.OnClick := @AboutButtonOnClick;
  AboutButton.Parent := WizardForm;
  URLLabel := TNewStaticText.Create(WizardForm);
  URLLabel.Top := AboutButton.Top + AboutButton.Height - URLLabel.Height - 2;
  URLLabel.Left := AboutButton.Left + AboutButton.Width + 10;
  URLLabel.Caption := '少莫千华';
  URLLabel.Font.Style := [fsBold, fsUnderline];
  URLLabel.Font.Color := clBlue;
  URLLabel.Cursor := crHand ;
  URLLabel.OnClick := @URLLabelOnClick;
  URLLabel.Font.Name := '宋体';
  URLLabel.Font.Height := ScaleY(-13);
  URLLabel.Parent := WizardForm;
  URLLabel.Hint := '点击访问相关网站';
  URLLabel.ShowHint := True;
end;