1

我正在我自己的代码中尝试来自 Mad-collections（用于在 exe 中添加/删除或更新资源的单元）中 Madres 单元的不同功能。这适用于小型资源（小于 50 MB），但对于较大的资源（大于 50 MB）通常会失败。

下面代码的主要问题是：应用程序冻结了几分钟，有时它会崩溃并创建一个损坏的 exe。

任何人都可以提出更好的方法来解决这个问题吗？

//add resource
procedure UpdateExeResource(Const Source,Dest:string);
var
  Stream     : TFileStream;
  hDestRes   : DWORD;
  lpData     : Pointer;
  cbData     : DWORD;
begin
  Stream := TFileStream.Create(Source,fmOpenRead or fmShareDenyNone);
  try
    Stream.Seek(0, soFromBeginning);
    cbData:=Stream.Size;
    if cbData>0 then
    begin
      GetMem(lpData,cbData);
      try
        Stream.Read(lpData^, cbData);
        hDestRes:= BeginUpdateResourceW(PChar(Dest), False);
        if hDestRes <> 0 then

          if UpdateResourceW(hDestRes, RT_RCDATA,'DATA',0,lpData,cbData) then
          begin
            if not EndUpdateResourceW(hDestRes,FALSE) then RaiseLastOSError
          end
          else
          RaiseLastOSError
        else
        RaiseLastOSError;
      finally
        FreeMem(lpData);
      end;
    end;
  finally
    Stream.Free;
  end;
end;

//Add or update resource
procedure TForm1.Button1Click(Sender: TObject);
begin
  UpdateExeResource('asd.txt', 'copy.exe');
end;
4

1 回答 1

3

您使用 Madres 单元的理由是什么，它只不过是 Windows API 调用函数BeginUpdateResource、UpdateResource和EndUpdateResource的恶搞，以增加对旧 Windows 9x 系列（Win95、98、ME）的支持。

我建议您修改您的程序（正确）以引用实际的Winapi.Windows函数调用，方法是从使用部分中删除 Madres 单元，或者在调用它时为函数添加前缀，如下所示：

  Winapi.Windows.BeginUpdateResourceW(...);
  Winapi.Windows.UpdateResourceW(...);
  Winapi.Windows.EndUpdateResourceW(...);

如果您需要对 9x 系列的支持，那么只需创建一个单独的方法来使用 Madres api 调用，并在实际需要时使用它。

另请注意，UpdateResourceW 期望它的字符串参数为 Unicode 格式。

于 2013-05-24T10:09:08.990 回答