InnoSetup:插入带有链接的图像

时间:2014-11-21 11:27:55

标签: inno-setup

下午好,我正在开发安装程序的一部分,我想在wpInstalling部分插入带有链接的图像,但我无法做到,我知道如何插入文本,但我不知道如何插入文本知道如何做我之前说过的话。我希望你能帮助我。

enter image description here

提前致谢。

2 个答案:

答案 0 :(得分:2)

感谢v20100v的回复,但我找到了一个简单的方法。在这里,我留下代码以防万一有人需要它。

[Setup]
AppName=My Program
AppVersion=1.5
DefaultDirName={pf}\My Program

[Files]
Source: "Logo.bmp"; Flags: dontcopy

[Code]
procedure MyImageClick(Sender: TObject);
var
  ErrorCode: Integer;
begin
  ShellExec('open', 'http://www.google.es', '', '', SW_SHOWNORMAL, ewNoWait, ErrorCode);
end;

procedure CreateMyImage();
begin
  ExtractTemporaryFile('Logo.bmp');
  with TBitmapImage.Create(WizardForm) do
  begin
    Parent := WizardForm.InstallingPage;
    Bitmap.LoadFromFile(ExpandConstant('{tmp}\Logo.bmp'));
    AutoSize := True;
    Left := 0;
    Top := WizardForm.InstallingPage.Top + WizardForm.InstallingPage.Height - Height - 8;
    Cursor := crHand;
    OnClick := @MyImageClick;
  end;
end;

procedure InitializeWizard;
begin
  CreateMyImage();
end;

答案 1 :(得分:0)

您可以在此项目中找到更多信息(由日本dvp制作)。他在InnoSetup中创建了一个Web控件。