论坛风格切换切换到宽版
  • 3196阅读
  • 4回复

[求助]Inno安装界面的左下角链接 [复制链接]

上一主题 下一主题
离线wuguole
 
发帖
202
金钱
0
威望
0
只看楼主 倒序阅读 0 发表于: 2005-11-06
Inno安装界面的左下角链接怎么做出来?
如图中红圈处。找了下帮助和论坛,没有找到,特求助。
网络因虚拟而无限自由,情感因交融而无限长久。
吴国乐汉化工作室
我的部分汉化作品
离线Ulijie

发帖
771
金钱
320
威望
32
只看该作者 1 发表于: 2005-11-06
用户被禁言,该主题自动屏蔽!
离线Ulijie

发帖
771
金钱
320
威望
32
只看该作者 2 发表于: 2005-11-06
用户被禁言,该主题自动屏蔽!
离线wuguole
发帖
202
金钱
0
威望
0
只看该作者 3 发表于: 2005-11-06
非常感谢,可用!
为了方便其他有此问题的人我把代码粘贴一下。
如果关于按钮不要的话,代码如下:
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;
网络因虚拟而无限自由,情感因交融而无限长久。
吴国乐汉化工作室
我的部分汉化作品
离线iceshell
发帖
194
金钱
0
威望
0
只看该作者 4 发表于: 2005-11-25
NSIS的代码有没啊