提取 DLL 中的资源文件

//Resource_1
procedure TForm1.Button1Click(Sender: TObject);
var
  handle: THandle;
  rs: TResourceStream;
begin
  handle := LoadLibrary('viewdata.dll'); {载入 DLL}
  rs := TResourceStream.Create(handle, 'Resource_1', RT_RCDATA); {提取资源}
  RichEdit1.Lines.LoadFromStream(rs); {读取流里面的RTF文件} 
  FreeLibrary(handle); {载卸 DLL}
  rs.Free;
end;