procedure URLLabelClick(Sender: TObject);
var
ErrorCode:integer;
begin
ShellExec('open','https:...','','',SW_SHOWNORMAL,ewNoWait,ErrorCode);
end;
procedure ClickURL();
begin
URLLabel:=TLabel.Create(WizardForm);
with URLLabel do begin
Top:=ScaleY(335)-dURL;
Left:=ScaleX(25)-dURL;
Caption:='RePack By';
AutoSize:=True;
Parent:=WizardForm;
Cursor:=crHand;
Transparent:=True;
Font.Color:=$001330B7;
Font.Size:=9;
Font.Style:=Font.Style+[fsBold];
BringToFront;
OnClick:=@URLLabelClick;
end;
end;
procedure InitializeWizard();
begin
ClickURL();
end;