inno-setup - 半透明向导表单

Question

当我遇到这个棘手的问题时，我正在做 Inno Setup 设计...如何使向导窗体半透明？

我也知道 Delphi，所以我在想是否有任何方法可以将 FMX 的 Fill.Color 和 transparency=true 与 Inno Setup 一起使用？

我目前正在使用此函数创建向导:

procedure CreateWizardForm;
begin
  with WizardForm do begin
    BorderStyle:=bsNone;
    ClientWidth:=900;
    ClientHeight:=540;
    InnerNotebook.Hide;
    OuterNotebook.Hide;
    Center;
    Bevel.Hide;
    NextButton.Width:=0;
    CancelButton.Width:=0;
  end;

  Form:=ImgLoad(WizardForm.Handle,ExpandConstant('{tmp}')+'\form.png',0,0,900,540,True,True);
end;

问候
拉米罗

Answer 1

关于 NSIS 的 Inno Setup 插件名为 IsWin7或 MegaFileUpload .

它适用于 Windows Vista 和 Windows 7 - 这两个系统都支持 Aero 效果。

请记住 iswin7.dll 是非官方的。示例:

[Files]
Source: ".\ISWin7.dll"; DestDir: "{tmp}"; Flags: dontcopy nocompression

[Code]
procedure iswin7_add_glass(Handle:HWND; Left, Top, Right, Bottom : Integer; GDIPLoadMode: boolean);
   external 'iswin7_add_glass@files:iswin7.dll stdcall';
procedure iswin7_add_button(Handle:HWND);
   external 'iswin7_add_button@files:iswin7.dll stdcall';
procedure iswin7_free;
   external 'iswin7_free@files:iswin7.dll stdcall';

procedure InitializeWizard();
begin
   iswin7_add_button(WizardForm.BackButton.Handle);
   iswin7_add_button(WizardForm.NextButton.Handle);
   iswin7_add_button(WizardForm.CancelButton.Handle);
   iswin7_add_glass(WizardForm.Handle, 0, 0, 0, ScaleY(47), True);
end;

procedure DeinitializeSetup();
begin
    iswin7_free;
end;