inno-setup - 如何在运行时更改 MsgBox 消息标题？

Question

我需要在运行时更改 MsgBox 消息框的默认标题。目前，它不断将 SetupAppTitle 指令的值显示为标题:

[Setup]
SetupAppTitle=myAppName

但这是在编译时指定的。如何在运行时执行此操作，例如来自 [Code] 部分？

Answer 1

我不认为更改应用程序标题(如果可能)只是为了显示对话框标题是个好主意。所以我会使用 Windows MessageBox这甚至被 MsgBox 使用.这是 Inno Setup 的 Ansi/Unicode 版本的一个简单示例:

[Code]
const
  MB_ICONERROR = $10;
  MB_ICONQUESTION = $20;
  MB_ICONWARNING = $30;
  MB_ICONINFORMATION = $40;

#ifdef UNICODE
  #define AW "W"
#else
  #define AW "A"
#endif

function MessageBox(hWnd: HWND; lpText, lpCaption: string;
  uType: UINT): Integer; external 'MessageBox{#AW}@user32.dll stdcall';

procedure ButtonOnClick(Sender: TObject);
begin
  MessageBox(0, 'Message Text', 'Message Caption', MB_OK or MB_ICONINFORMATION);
end;