delphi - 如何在运行时将资源提取到文件中？

Question

我只想分发一个 .exe，但是，在运行时我希望它能够将一些嵌入的图像资源提取到用户的硬盘驱动器。

我可以吗？如果可以，怎么做？

Answer 1

使用Delphi的TResourceStream。它的构造函数将查找资源并将其加载到内存中，它的 SaveToFile 方法将执行磁盘写入。

类似的东西应该可以工作:

var
  ResStream: TResourceStream;
begin
  ResStream := TResourceStream.Create(HInstance, 'YOURRESOURCENAME', RT_RCDATA);
  try
    ResStream.Position := 0;
    ResStream.SaveToFile('C:\YourDir\YourFileName.jpg');
  finally
    ResStream.Free;
  end;
end;

如果可以使用资源ID而不是名称，会占用更少的内存。在这种情况下，您可以将 Create 替换为 CreateFromID，并提供数字 ID 而不是字符串名称。