解决方法
如果您的问题是,如果您可以将资源添加到现有的exe文件,是的,这是可能的.为此,您必须使用
UpdateResource函数,该函数可以在可移植可执行(PE)文件中添加,删除或替换资源.
更新
这里有一个示例代码
{$APPTYPE CONSOLE}
uses
Classes,Windows,SysUtils;
procedure UpdateExeResource(Const Source,Dest:string);
var
Stream : TFileStream;
hDestRes : THANDLE;
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:= BeginUpdateResource(PChar(Dest),False);
if hDestRes <> 0 then
if UpdateResource(hDestRes,RT_RCDATA,'DATA',lpData,cbData) then
begin
if not EndUpdateResource(hDestRes,FALSE) then RaiseLastOSError
end
else
RaiseLastOSError
else
RaiseLastOSError;
finally
FreeMem(lpData);
end;
end;
finally
Stream.Free;
end;
end;
begin
try
UpdateExeResource('C:\Users\Dexter\Documents\RAD Studio\Projects\Debug\Win32\Data.txt','C:\Users\Dexter\Documents\RAD Studio\Projects\Debug\Win32\project86.exe');
except
on E: Exception do
Writeln(E.ClassName,': ',E.Message);
end;
end.