如何证明一个超级链接在创新安装?
-
18-09-2019 - |
题
我在做一个验证我的创新安装的安装程序以检查是否Microsoft更新安装的机器上,如果没有,我表示一个简单的消息框告诉用户的需要更新,这是消代码:
MsgBox(
'Your system requires an update supplied by Microsoft. ' +
'Please follow this link to install it: ' +
'http://www.microsoft.com/downloads/details.aspx?FamilyID=1B0BFB35-C252-43CC-8A2A-6A64D6AC4670&displaylang=en',
mbInformation, MB_OK);
我想要做的URL一个超级链接到该网页,但我不能弄明白如何,它能够在创新安装添加案文作为一个超级链接?
谢谢。
解决方案
的 MsgBox()
功能以创新的设置是一个包装标准的Windows MessageBox()
功能,据我所知不支持嵌入式的链接,所以它不可能简单地显示的链接。
什么你能做的不过是以通知用户的需要更新,并问他们是否打开链接在默认浏览器。是这样的:
function InitializeSetup(): Boolean;
var
ErrCode: integer;
begin
if MsgBox('Your system requires an update supplied by Microsoft. Would you like to visit the download page now?', mbConfirmation, MB_YESNO) = IDYES
then begin
ShellExec('open', 'http://www.microsoft.com/downloads/details.aspx?FamilyID=1B0BFB35-C252-43CC-8A2A-6A64D6AC4670&displaylang=en',
'', '', SW_SHOW, ewNoWait, ErrCode);
end;
Result := False;
end;
这个代码将中止安装,但你可以创建一个自定义页,而不是检查是否更新已经安装,否则可以防止导航到下一页。这只会的工作,如果该更新可以被安装在不重新启动系统,虽然。
不隶属于 StackOverflow