delphi – 提取资源文件

我该如何提取它？

编辑

这是我将资源文件附加到现有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.