如何将RTF文件内容加载到Inno Setup的TNewMemo组件中？

TNewMemo组件底层基于Windows的RichEdit控件，天然支持RTF格式内容的显示，我们只需要通过Windows API来完成RTF内容的加载即可。下面是具体的实现方法和代码示例：

一、核心原理 #

利用Windows的SendMessage函数，向TNewMemo控件发送EM_STREAMIN消息，通过EDITSTREAM结构体来传递RTF内容（无论是从文件读取还是内存中的字符串）。

二、完整实现代码 #

直接在脚本的[Code]段中添加以下代码即可：

[Code]
// 引用Windows单元以使用系统API
#include "Windows.inc"

// 回调函数：负责将RTF内容写入RichEdit控件
function StreamInCallback(dwCookie: DWORD; pbBuff: PByte; cb: DWORD; var pcb: DWORD): DWORD; stdcall;
var
  RtfString: string;
  BytesWritten: Integer;
begin
  RtfString := string(dwCookie);
  if Length(RtfString) = 0 then
  begin
    pcb := 0;
    Result := 0;
    Exit;
  end;

  BytesWritten := Min(cb, Length(RtfString) * SizeOf(Char));
  CopyMemory(pbBuff, PChar(RtfString), BytesWritten);
  pcb := BytesWritten;
  // 移除已写入的内容，防止重复加载
  RtfString := Copy(RtfString, (BytesWritten div SizeOf(Char)) + 1, MaxInt);
  string(dwCookie) := RtfString;
  Result := 0;
end;

// 将RTF字符串加载到TNewMemo的工具函数
procedure LoadRTFStringIntoMemo(Memo: TNewMemo; RtfContent: string);
var
  EditStream: TEditStream;
begin
  if Memo = nil then Exit;
  
  Memo.Clear;
  EditStream.dwCookie := DWORD(PChar(RtfContent));
  EditStream.pfnCallback := @StreamInCallback;
  // 发送消息加载RTF内容
  SendMessage(Memo.Handle, EM_STREAMIN, SF_RTF, LPARAM(@EditStream));
end;

// 将本地RTF文件加载到TNewMemo的工具函数
procedure LoadRTFFileIntoMemo(Memo: TNewMemo; FilePath: string);
var
  RtfContent: string;
  Stream: TStreamReader;
begin
  if not FileExists(FilePath) then Exit;
  
  Stream := TStreamReader.Create(FilePath, TEncoding.UTF8);
  try
    RtfContent := Stream.ReadToEnd;
    LoadRTFStringIntoMemo(Memo, RtfContent);
  finally
    Stream.Free;
  end;
end;

// 创建自定义页面并初始化TNewMemo组件
procedure InitializeWizard;
var
  CustomPage: TWizardPage;
  RtfMemo: TNewMemo;
begin
  // 创建自定义向导页面
  CustomPage := CreateCustomPage(wpWelcome, '自定义RTF展示页', '这里显示RTF格式的内容');
  
  // 创建TNewMemo控件
  RtfMemo := TNewMemo.Create(WizardForm);
  with RtfMemo do
  begin
    Parent := CustomPage.Surface;
    Left := ScaleX(10);
    Top := ScaleY(10);
    Width := ScaleX(WizardForm.InnerPageWidth - 20);
    Height := ScaleY(WizardForm.InnerPageHeight - 20);
    ScrollBars := ssVertical;
    ReadOnly := True; // 设置为只读，避免用户误编辑
    // 确保控件样式支持RichEdit的多行和滚动
    SetWindowLongPtr(Handle, GWL_STYLE, GetWindowLongPtr(Handle, GWL_STYLE) or ES_MULTILINE or WS_VSCROLL);
  end;
  
  // 方式1：加载本地RTF文件（替换为你的实际文件路径）
  // LoadRTFFileIntoMemo(RtfMemo, ExpandConstant('{src}\your_license.rtf'));
  
  // 方式2：直接加载RTF字符串（适合简短动态内容）
  LoadRTFStringIntoMemo(RtfMemo, '{\rtf1\ansi\deff0 {\colortbl ;\red255\green0\blue0;} 这是\b 粗体\b0 和\cf1 红色\cf0 的RTF文本示例。}');
end;

三、关键细节说明 #

• 控件样式配置：必须给TNewMemo加上ES_MULTILINE和WS_VSCROLL样式，才能正确显示多行RTF内容并支持滚动。
• 两种加载场景：本地RTF文件适合大篇幅内容（比如许可协议），直接加载字符串适合动态生成的简短RTF内容。
• 编码注意：读取本地RTF文件时建议用UTF-8编码，避免出现中文乱码问题。

这样就能在自定义页面的TNewMemo组件中完美展示RTF格式的内容了！

内容的提问来源于stack exchange，提问作者jiandingzhe