Inno Setup 自定义界面心得

因为项目需要，需要打 windows 安装包，要求安装界面完全按照需求来。作为没接触过这块儿的服务端宝宝，在此期间踩了很多坑。

坑不提也罢，最终结果圆满，记录下与大部分网上PO出来的做法不太一样的小心得，备忘。

网上搜到的自定义界面，都用的 botva2.dll ，我没用。应该说，用过，但遇到了图片变形的问题，短时间内没解决，所以最后全都用的 Inno Setup 原生类。Inno Setup 官方文档很详细，而且开源，所以原生用起来还是很顺利的。此前没接触过 Pascal 语言，但影响不大。

加载透明图片或按钮

网上多用 botva2.dll 来加载 png 图片，以达到圆角效果。由于遇到图片变形，我开始在官方文档里找替代方案。

Inno Setup 本身提供一个类 TBitmapImage 来支持带 alpha 通道的bmp 图片，也就是 32 位的 bmp 图片，支持透明效果。PhotoShop 中可通过添加 alpha 通道来生成 32 位 bmp 图。

显示图片方法：

val BmpImg : TBitmapImage;

BmpImg := TBitmapImage.Create(WizardForm); // 卸载时将 WizardForm 换为 UninstallProgressForm 即可
with BmpImg do
begin
    Parent := WizardForm;                  // 卸载时将 WizardForm 换为 UninstallProgressForm 即可
    Bitmap := TAlphaBitmap.Create;
    Bitmap.AlphaFormat := afDefined;       // 须设置此值，才能读取图片的 alpha 通道，应在加载图片文件前设置
    Bitmap.LoadFromFile(ExpandConstant('{tmp}\xxx.bmp'));
    BackColor := clNone;                   // 背景色应设置为 clNone，否则默认透明处为白色
    OnClick := @some_procedure;            // 按钮的点击回调，非按钮图片不需要
end;      

按钮的点击回调形如：procedure some_procedure(sender: TObject);

设置 BmpImg.Enabled := False 可使图片的点击事件失效。

富文本

Inno Setup 的类 TRichEditViewer 支持 .rtf 格式的富文本内容，可用于显示许可协议或其他说明文档，使用如下：

val RichViewer : TRichEditViewer;
    RichText : AnsiString;

LoadStringFromFile(ExpandConstant('{tmp}\xxx.rtf'), RichText);  // 读取文件内容至 RichText

RichViewer := TRichEditViewer.Create(WizardForm); // 卸载时将 WizardForm 换为 UninstallProgressForm 即可
with RichViewer do
begin
    Parent := WizardForm;                         // 卸载时将 WizardForm 换为 UninstallProgressForm 即可
    ReadOnly := true;                             // 只读
    SCROLLBARS := ssVertical;                     // 滚动条类型
    BorderStyle := bsNone;                        // 边框类型
    RTFText := licenseText;                       // 内容
    UseRichEdit := True;                          // 须设置此值为 True，才会按照富文本方式读取内容
end;   

获取磁盘空间

界面上需要显示所需磁盘空间和剩余磁盘空间。

所需磁盘空间，WizardForm.DiskSpaceLabel 中有对所需磁盘的描述，可以将此描述通过 [Messages] 段设置 "DiskSpaceMBLabel=[mb]" 使之只剩下所需磁盘大小。然后通过 WizardForm.DiskSpaceLabel.Caption 可获得所需磁盘大小，字符串类型（如 "10.3" ），单位MB。

剩余磁盘空间，调用 Inno Setup 提供的 GetSpaceOnDisk 函数即可，将第一个参数设置为安装所在磁盘号，如 "C:" 。

例子：

[Messages]
DiskSpaceMBLabel=[mb]

[Code]
function GetSpaceNeeded();     // 返回所需磁盘空间，字符串类型 "10.3"，单位MB
  begin
    Result := WizardForm.DiskSpaceLabel.Caption;
  end;

function GetSpaceLeft();       // 返回剩余空间大小，整数类型，单位MB
  var freeDiskSpace, totalDiskSpace : Cardinal;
  begin
    GetSpaceOnDisk(Copy(WizardForm.DirEdit.text, 1, 2), true, freeDiskSpace, totalDiskSpace)
    Result := freeDiskSpace
  end;

进度条

引入了外部依赖 user32.dll 的 SetTimer 来设置定时器，InnoCallback.dll 的 wrapcallback 来封装函数。其中 user32.dll 为操作系统自带，InnoCallback.dll 需要自行下载。

在安装或卸载进度变化的时候，WizardForm.ProgressGauge 和 UninstallProgressForm.ProgressBar 中的值会相应变化，定时读取其中的值即可实现实时进度变化。

例子：

type
  TTimerProc = procedure(h:longword; msg:longword; idevent:longword; dwTime:longword);

function SetTimer(hWnd, nIDEvent, uElapse, lpTimerFunc: LongWord): LongWord; external 'SetTimer@user32.dll stdcall delayload';
function TimerCallBack(P: TTimerProc; ParamCount: integer):LongWord; external 'wrapcallback@{%TEMP}\InnoCallback.dll stdcall delayload'; 

procedure RefreshProgressBar(h, AMsg, IdEvent, dwTime: LongWord);  // 刷新进度条
  var
    i1, i2 : integer;
  begin 
    i1 := WizardForm.ProgressGauge.Position - WizardForm.ProgressGauge.Min;     // 卸载时 WizardForm.ProgressGauge 应替换为 UninstallProgressForm.ProgressBar
    i2 := WizardForm.ProgressGauge.Max - WizardForm.ProgressGauge.Min;          // 卸载时 WizardForm.ProgressGauge 应替换为 UninstallProgressForm.ProgressBar
    ProgressImg.Width := Round(i1 * TotalWidthOfProgressImg / i2);
  end;

procedure CurPageChanged(CurPageID: Integer);
  begin
    if CurPageID = wpInstalling then                        // 安装时在 wpInstalling 页面调用定时器
      begin
        SetTimer(0, 0, 10, TimerCallBack(@TimerProc, 4));
      end;
  end;

procedure InitializeUninstallProgressForm();                // 卸载时在 InitializeUninstallProgressForm 中调用定时器
  begin
    SetTimer(0, 0, 10, TimerCallBack(@TimerProc, 4));
  end;

其他

1、安装界面中要用到的图片和资源，在 [Files] 段中应放到前面，因为安装程序读取资源时会先解压排在该资源前的所有文件。如果安装包界面资源在应用文件后面，安装界面打开会很慢很慢很慢很慢。

2、去掉关闭安装程序的二次确认框：

procedure CancelButtonClick(CurPageID: Integer; var Cancel, Confirm: Boolean);
  begin
    Confirm := False;
  end; 

3、手动触发下一步

WizardForm.NextButton.OnClick(WizardForm)