如何证明一个超级链接在创新安装?

Question

我在做一个验证我的创新安装的安装程序以检查是否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一个超级链接到该网页，但我不能弄明白如何，它能够在创新安装添加案文作为一个超级链接?

谢谢。

Answer 1

的 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;

这个代码将中止安装，但你可以创建一个自定义页，而不是检查是否更新已经安装，否则可以防止导航到下一页。这只会的工作，如果该更新可以被安装在不重新启动系统，虽然。