如何在Free Pascal中使用MSI Installer的SetExternalUI

阿华AIGC实验室

2026-5-28

没问题，Free Pascal完全能实现你要的MSI自定义UI+隐藏启动+进度回调的需求，而且不需要额外的第三方库，核心是直接调用系统的msi.dll并利用Free Pascal的Windows绑定（或者手动补充缺失的声明），下面给你详细的实现方案：

1. 基础准备：MSI API的Pascal绑定

Free Pascal的Windows单元已经封装了不少MSI相关的核心API，但部分常量或函数可能需要手动补充（比如一些消息类型、回调函数类型）。你可以直接从Windows的msi.h头文件中把需要的定义翻译成Pascal语法，以下是核心的声明示例：

// 回调函数类型，和C版的INSTALLUI_HANDLER匹配
type
  INSTALLUI_HANDLER = function(context: DWORD; message: UINT; wParam: WPARAM; lParam: LPARAM): UINT; stdcall;
  MSIHANDLE = THandle; // MSI句柄类型

// 关键常量定义
const
  INSTALLUILEVEL_NONE = 2; // 隐藏MSI默认UI
  INSTALLMESSAGE_PROGRESS = $00000003; // 进度更新消息
  ERROR_SUCCESS = 0; // 安装成功返回值

// 如果Windows单元未声明，手动导入核心函数
function MsiSetExternalUI(puiHandler: INSTALLUI_HANDLER; dwUILevel: DWORD; pvContext: Pointer): DWORD; stdcall; external 'msi.dll' name 'MsiSetExternalUIW';
function MsiInstallProduct(lpszProductPath: LPCWSTR; lpszCommandLine: LPCWSTR): UINT; stdcall; external 'msi.dll' name 'MsiInstallProductW';

2. 实现自定义进度回调函数

接下来你需要编写自己的回调函数，用来接收MSI的进度更新（以及其他安装消息），并同步到你的Free Pascal GUI对话框中。注意：MSI的回调可能在非主线程执行，更新UI时必须用Synchronize保证线程安全：

// 假设你已经创建了一个带进度条的自定义对话框MyInstallForm，里面有一个TProgressBar组件ProgressBar1
function MyMSIUIHandler(context: DWORD; message: UINT; wParam: WPARAM; lParam: LPARAM): UINT; stdcall;
begin
  Result := IDOK; // 默认返回IDOK，让安装流程继续

  case message of
    INSTALLMESSAGE_PROGRESS:
      begin
        // wParam当前进度百分比，lParam是总进度（通常为100）
        Synchronize(procedure
          begin
            MyInstallForm.ProgressBar1.Position := wParam;
            MyInstallForm.Label1.Caption := Format('安装进度：%d%%', [wParam]);
          end);
      end;
    // 可以扩展处理其他消息，比如错误提示、安装状态通知等
    // INSTALLMESSAGE_ERROR: 处理安装错误
    // INSTALLMESSAGE_INFO: 处理信息提示
  end;
end;

3. 隐藏启动MSI并绑定回调

最后一步是设置外部UI回调，启动MSI安装包，同时隐藏默认的MSI界面：

procedure StartMSIInstall(const MSIPath: string);
var
  oldUILevel: DWORD;
  installResult: UINT;
begin
  // 保存原UI级别，安装完成后恢复
  oldUILevel := MsiSetExternalUI(@MyMSIUIHandler, INSTALLUILEVEL_NONE, nil);
  
  try
    // 显示你的自定义对话框
    MyInstallForm.Show;
    // 启动MSI安装，传入安装包路径（Unicode版本）
    installResult := MsiInstallProduct(PWideChar(MSIPath), nil);
    
    if installResult <> ERROR_SUCCESS then
      ShowMessage(Format('安装失败，错误码：%d', [installResult]))
    else
      ShowMessage('安装完成！');
  finally
    // 恢复系统原有的MSI UI级别
    MsiSetExternalUI(nil, oldUILevel, nil);
    MyInstallForm.Hide;
  end;
end;

4. 注意事项