Question

我已使用exe函数将资源文件附加到现有UpdateResource文件。

我该如何提取它？

修改

这是我将资源文件附加到现有exe文件的代码：

Uses Classes, Windows, SysUtils, Dialogs;

Type
  TBuffer = Array[0..0] of Byte;
  PBuffer = ^TBuffer;

Var
  FS             : TFileStream;
  ResourceHandle : THandle;
  DataLength     : DWord;
  Data           : PBuffer;
  Ok             : Boolean;

Begin
   ResourceHandle := BeginUpdateResource(pChar('d:\someexefile.exe'), False);
   IF (ResourceHandle <> 0) Then
   Begin
      FS := TFileStream.Create('d:\somebitmap.bmp', fmOpenRead);
      FS.Seek(0, soFromBeginning);
      DataLength := FS.Size;
      GetMem(Data, DataLength);
      FS.Read(Data^, DataLength);
      FS.Free;

      Ok := True;
      IF (not UpdateResource(ResourceHandle, RT_RCDATA, pChar('MyNewResource'), LANG_SYSTEM_DEFAULT{MakeLangID(LANG_NEUTRAL, SUBLANG_NEUTRAL)}, Data, DataLength)) Then Ok := False;

      IF (not EndUpdateResource(ResourceHandle, False)) Then Ok := False;

      IF (Ok) Then ShowMessage('Update of resources successful!')
         Else ShowMessage('Update of resources failed!');

      FreeMem(Data);
   End;
End.

Answer 1

使用LoadLibraryEx传递LOAD_LIBRARY_AS_IMAGE_ RESOURCE加载模块，然后使用TResourceStream.SaveToFile保存资源。

我当然假设您不想从正在运行的可执行文件中提取资源。如果是这种情况，您可以直接进入TResourceStream.SaveToFile。

Answer 2

您可以使用多种工具：

XN Resource Explorer

Resource Hacker

Resource-Grabber

使用DelphiDabbler从代码中获取。

或使用TResourceStream类。这个问题解释了如何使用它：How can I extract a resource into a file at runtime?

提取资源文件

2 个答案: