非常感谢,可用!
为了方便其他有此问题的人我把代码粘贴一下。
如果关于按钮不要的话,代码如下:
QUOTE
[Code]
procedure URLLabelOnClick(Sender: TObject);
var
ErrorCode: Integer;
begin
ShellExec('open', 'http://dlog.512j.com', '', '', SW_SHOW, ewNoWait, ErrorCode)
end;
//*****************************************************
procedure InitializeWizard();
var
URLLabel: TNewStaticText;
begin
URLLabel := TNewStaticText.Create(WizardForm);
URLLabel.Top := URLLabel.Height + 290;
URLLabel.Left := URLLabel.Left + 20;
URLLabel.Caption := '吴国乐汉化工作室';
URLLabel.Font.Style := URLLabel.Font.Style + [fsUnderLine];
URLLabel.Font.Color := clBlue;
URLLabel.Cursor := crHand;
URLLabel.OnClick := @URLLabelOnClick;
URLLabel.Parent := WizardForm;
end;