代码之家 › 专栏 › 技术社区 › Robert Wigley

Inno安装程序在自定义表单标题栏上使用不同的图标

pascalscript inno-setup

Robert Wigley · 技术社区 · 6 年前

默认情况下,自定义窗体在标题栏中使用与主窗体相同的图标 WizardForm ,这是 SetupIconFile

[Code]
var
  CustomWindowForm: TForm;

{ Create and show the Custom window }
procedure ShowCustomWindow();
begin
  CustomWindowForm := TForm.Create(WizardForm);
  with CustomWindowForm do
    begin
      BorderStyle := bsSingle;
      Position := poOwnerFormCenter;
      Caption := 'Window Title';
      ClientWidth := ScaleX(400);
      ClientHeight := ScaleY(400);
      Show;
    end;
end;

Icon TForm ,但似乎没有,我在任何地方都找不到任何有关这方面的信息。

1 回复 | 直到 6 年前

Martin Prikryl 5 年前

您必须使用WinAPI,尤其是 LoadImage function 和 WM_SETICON message :

[Files]
Source: "custom.ico"; Flags: dontcopy

[Code]

const
  IMAGE_ICON = 1;
  LR_LOADFROMFILE = $10;
  WM_SETICON = $80;
  ICON_SMALL = 0;

function LoadImage(
  hInst: Integer; ImageName: string; ImageType: UINT; X, Y: Integer;
  Flags: UINT): THandle; external 'LoadImageW@User32.dll stdcall';

procedure CustomFormShow(Sender: TObject);
var
  Icon: THandle;
begin
  ExtractTemporaryFile('custom.ico');
  Icon := LoadImage(
    0, ExpandConstant('{tmp}\custom.ico'), IMAGE_ICON, 0, 0, LR_LOADFROMFILE);
  SendMessage(TForm(Sender).Handle, WM_SETICON, ICON_SMALL, Icon);
end;

var
  CustomWindowForm: TForm;

{ Create and show the custom window }
procedure ShowCustomWindow();
begin
  CustomWindowForm := TForm.Create(WizardForm);
  with CustomWindowForm do
  begin
    { your code }

    OnShow := @CustomFormShow;
    Show;
  end;
end;

推荐文章

user707779 · Inno安装程序指令“VersionInfo”无效

7 年前

frank hk · Inno安装程序未生成桌面图标

7 年前

IMeMine · 使用/qn(静默)开关从运行部分安装MSI时,Inno Setup AfterInstall过程执行得太早

7 年前

Balaji Vignesh · Inno安装程序印地语文件不工作

7 年前

Dennosaur · Inno安装卸载程序VersionInfo

7 年前

user1239973 · Inno设置工具中的NOICONS开关不工作

7 年前

user285594 · Inno设置-如何在线验证序列号

7 年前

Wurlitzer · 在Inno安装程序中找到应用程序的路径,并将文件复制到该目录

7 年前

Joshua · Inno安装程序基于自定义复选框值设置可卸载指令

7 年前

Johan · 在所有文件的源路径之间选择

7 年前