Загрузка ресурсов RC

← →
nc (2004-12-21 19:08) [0]

Имеется ехешник, из коророго я сделал ресурс типа RC_DATA. Гружу его методами:
FindResource
LoadResource.

Вопрос: как мне сохранить ехе файл на диске, если я получаю корректно результат hGlobal от ф-ции LoadResource ?

Спасибо!!

П.С. Интересует ТОЛЬКО винапи реализация

← →
nc (2004-12-21 19:09) [1]

HResInfo := FindResource(0, "TBAR", RT_RCDATA);
HGlobal := LoadResource(0, HResInfo);

Как используя HGlobal + ВинАпи сохранить ехе опять на диск?

← →
Anton_K © (2004-12-21 19:15) [2]

LockResource(HGlobal)-указатель на данные
SizeOfResource(HResInfo)-размер данных

← →
nc (2004-12-21 19:19) [3]

Это я знаю... Ты подскажи плз на примере как с помощь этого файл создать... Без стримов и прочих делфевских вещей...

← →
Anton_K © (2004-12-21 19:22) [4]

CreateFile, WriteFile.

← →
nc (2004-12-21 19:28) [5]

Т.е. используя WriteFile, hGlobal надо подставлять в первый параметр (hFile) ? Или как?

var f:Cardinal; ... f:=CreateFile(имя файла,GENERIC_WRITE,0,nil,CREATE_ALWAYS,FILE_ATTRIBUTE_NORMAL,0); WriteFile(f,LockResource(HGlobal),SizeOfResource(HResInfo),Cardinal(nil^),nil); CloseHandle(f);

Примерно так.

То есть WriteFile(f,LockResource(HGlobal)^,SizeOfResource(HResInfo),Cardinal(nil^),nil);

Загрузка ресурсов RC_DATA Найти похожие ветки