Resource

← →
-=наблюдатель=- © (2004-02-22 16:24) [0]

Здравствуйте. У меня вот такая проблемка выскочила. Мне нужно из одного *.EXE файла секцию RT_VERSION перенести в другой *.EXE файл с заменой. Вроде всё делаю правильно, однако сам текст секции не переносится. Как быть.
Вот код:
...... var upd,hnd:thandle; ...... function nameenum (hnd:hmodule;tp:LPCTSTR;nm:LPTSTR;lparam:longint):boolean;stdcall; var reshnd:thandle; mem:hglobal; langid:word; begin reshnd:=findresource (hnd,nm,RT_VERSION); mem:=loadresource (hnd,reshnd); langid:=(SUBLANG_SYS_DEFAULT shl 10) or LANG_NEUTRAL; updateresource (upd,RT_VERSION,nm,langid,@mem,sizeofresource (hnd,mem)); result:=true; end; ...... hnd:=loadlibrary ("c:\temp\test2.exe"); upd:=beginupdateresource ("c:\temp\test.exe",false); enumresourcenames (hnd,RT_VERSION,@nameenum,0); endupdateresource (upd,false); freelibrary (hnd); ......
Я так чувствую, что дело в последнем параметре updateresource, т.к., после выполнения этой функции управление дальше не идёт. А почему я думаю что дело именно в последнем параметре, потому что в HELP-е сказано, что sizeofresource может давать завышенный результат.
Вообщем не знаю чего делать. Помогите кто знает.

← →
-=наблюдатель=- © (2004-02-23 13:11) [1]

Удалено модератором
Примечание: Создание пустых сообщений

← →
-=наблюдатель=- © (2004-02-23 13:11) [2]

Удалено модератором
Примечание: Создание пустых сообщений

← →
Игорь Шевченко © (2004-02-24 18:31) [3]

> mem:=loadresource (hnd,reshnd);
> langid:=(SUBLANG_SYS_DEFAULT shl 10) or LANG_NEUTRAL;
> updateresource (upd,RT_VERSION,nm,langid,@mem,sizeofresource
> (hnd,mem));

За langid ничего не скажу, но
var
resmem : Pointer;

mem := loadresource(hnd,reshnd);
if mem = 0 then
Exit;
resmem := lockresource(mem);
updateresource (upd,RT_VERSION,nm,langid,resmem,sizeofresource
(hnd,mem))

К сожалению и это тоже не работает. Может кто ещё подкинет идею?

Вопрос снимается. Решение найдено. Оказывается в sizeofresource вместо mem надо было вставить reshnd.

Resource Найти похожие ветки