Написал DLL на сях, которая позволяет программно заменять ресурсы в PE файлах.
Пример использования в Delphi:
Код:
type
TReplaceResource = function(sSource,sDest,sType,sName: PChar): Boolean; stdcall;
...
TMainForm = class(TForm)
...
procedure ReplRes();
var
ReplaceResource: TReplaceResource;
begin
if not ReplaceResource(PChar('c:\resfile.dat'),PChar('c:\pefile.exe'),RT_RCDATA,'DATA') then
begin
MessageBox(Handle,'Internal Error!',Caption,MB_ICONERROR);
end;
end;
Пример писал по памяти, могут быть ошибки.
Описание самой функции:
TReplaceResource = function(sSource,sDest,sType,sName: PChar): Boolean; stdcall;
sSource - любой файл,
sDest - любой PE файл (exe,dll,ocx, и т.д.)
sType - тип ресурсов (RT_RCDATA, RT_BITMAP, RT_STRING и т.д.)
sName - имя,под которым будет сохранен ресурс
По-идее, процедура должна ЗАМЕНЯТЬ УЖЕ СУЩЕСТВУЮЩИЙ ресурс на новый, но я не пробовал использовать ее для добавления нового, может
быть,тоже будет работать.
Возвращает буленовое значение, как индикатор ошибок (если были ошибки - вернет false, если все прошло успешно - вернет true)
Также, для программного редактирования ресурсов, можно использовать
API методы (их описание смотрите в SDK или в дельфовом хэлпе):
BeginUpdateResource
UpdateResource
EndUpdateResource
Почему я написал DLL на сях с использованием этих API, а не стал использовать АПИ через Делфи? Да потому, что я пробовал через Делфи, но код упрямо отказывался работать, если у кого получится на Делфи реализовать замену\добавление\редактирование ресурсов - буду очень рад этому.
Исходники и сама DLL в аттаче.