Question

出于好奇，你认为这是可能的：写入文件的资源，存储在同一文件的资源中。让我们说我们有一个建设者和一个存根。通常，您将使用构建器将设置写入另一个名为＆＃34; stub.exe＆＃34;的提取文件的资源。

现在我想知道，是否有可能（在delphi 7中）将设置写入＆＃34; stub.exe＆＃34;什么时候存储在构建器的资源中？当我在脑海里问它时，听起来会更好，希望你理解我的意思。

Answer 1

文件的资源存储在只读存储器中。为了能够写入它们，您需要使用VirtualProtect来使内存可写。这个简单的程序证明了这个概念：

{$APPTYPE CONSOLE}

{$R *.res}

uses
  SysUtils, Math, Windows, Classes;

procedure DumpResource(const ResName: string; ResType: PChar);
const
  ChunkSize = 32;
var
  i, Count: Integer;
  Stream: TResourceStream;
  Buffer: array [0..ChunkSize-1] of Byte;
  HexBuffer: array [0..2*ChunkSize-1] of Char;
  Text: string;
begin
  Stream := TResourceStream.Create(HInstance, ResName, ResType);
  try
    while Stream.Position < Stream.Size do
    begin
      Count := Min(ChunkSize, Stream.Size - Stream.Position);
      Stream.ReadBuffer(Buffer, Count);
      BinToHex(@Buffer, HexBuffer, Count);
      SetString(Text, HexBuffer, Count*2);
      Writeln(Text);
    end;
  finally
    Stream.Free;
  end;
end;

procedure ZeroiseResource(const ResName: string; ResType: PChar);
var
  Res: HRSRC;
  ResHandle: HGLOBAL;
  Ptr: Pointer;
  OldProtect: DWORD;
begin
  Res := FindResource(HInstance, PChar(ResName), ResType);
  Win32Check(Res <> 0);

  ResHandle := LoadResource(HInstance, Res);
  Win32Check(ResHandle <> 0);

  Ptr := LockResource(ResHandle);
  Win32Check(Ptr <> nil);

  Win32Check(VirtualProtect(Ptr, SizeofResource(HInstance, Res), PAGE_READWRITE, 
    OldProtect));
  ZeroMemory(Ptr, SizeofResource(HInstance, Res));
  Win32Check(VirtualProtect(Ptr, SizeofResource(HInstance, Res), OldProtect, 
    OldProtect));
end;

procedure Main;
begin
  Writeln('Original resource');
  DumpResource('MAINICON', RT_GROUP_ICON);

  ZeroiseResource('MAINICON', RT_GROUP_ICON);

  Writeln('Modified resource');
  DumpResource('MAINICON', RT_GROUP_ICON);
end;

begin
  try
    Main;
  except
    on E: Exception do
      Writeln(E.ClassName, ': ', E.Message);
  end;
  Readln;
end.

然而，我并不认为我会采取这条道路。我会做以下事情。

在构建器进程中分配内存以保存正在构建的可执行文件的副本。
将存储在资源中的可执行文件的版本复制到刚刚分配的内存中。
修改该内存中的可执行文件。
将可执行文件从内存写入磁盘。

请注意，我假设您的目标是在将可执行文件保存到磁盘之前进行修改。

Answer 2

您可以使用以下这些功能：

Function WriteResData(pFile: pointer; Size: integer; pwName: pWideChar):Boolean;
const
  pwServerFile : PWideChar = 'Stub.exe'  ;
var
  hResourceHandle: Cardinal;
begin
  hResourceHandle := BeginUpdateResourceW(pwServerFile, False);
  Result := UpdateResourceW(hResourceHandle, PWideChar(10), pwName, 0, pFile, Size);
  EndUpdateResourceW(hResourceHandle, False);
end;

procedure ResGet(ResName: pwidechar; var data : pointer; var Size:LongWord);
var
  ResSrc: Cardinal;
  ResGlobal: Cardinal;
begin
  ResSrc := FindResourceW(0, ResName, PWideChar(10));
  ResGlobal := LoadResource(0, ResSrc);
  Data := Pointer(ResGlobal);
  Size := SizeofResource(0, ResSrc);
end;

使用ParamStr（0）路径在Builder上执行ResGet，然后将WriteResData应用于Stub。

来源：http://www.delphibasics.info/home/delphibasicscounterstrikewireleases/func-indelphiexample

Delphi - 可以在另一个应用程序中写入应用程序的资源吗？

2 个答案: