德尔福 - 可以使用另一个应用程序写入应用程序的资源？

Question

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

现在我想知道，是否有可能（在德尔福7）将设置写入“stub.exe”的资源时，存储在建设者的资源？ 当我在脑海中问好时，听起来会更好，希望你明白我的意思。

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）路径上生成器执行ResGet，然后应用WriteResData存根。

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