Для общего пользования выкладывается модуль работы с ресурсами в PE файлах, который корректно работает во всех версиях Windows. За основу был взят модуль работы с ресурсами компании Mathias Rauen, http://www.madshi.net.

Возможности:
1. Извлечение иконок из ресурсов без потери их цветовой гаммы и с сохранением всех вложенных иконок.
2. Добавление нового ресурса
3. Изменение существующего ресурса
4. Удаление ресурса
5. Работа с ресурсами различных языков
и т. д.

Работа над модулем будет продолжена. Свежую версию, вы всегда можете скачать по адресу http://alex-co.org/files/delphi/acWorkRes.rar 

Это сообщение отредактировал(а) Alex - 17.2.2007, 09:17

Через пару дней этот топик скатится вниз и уйдёт в небытие. Кто-то предлагал идею сделать типа архива исходников или что-то в этом роде. Но заглохло пока. Если ещё пару человек выложат какие-нибудь модули или исходники, можно будет создать отедельную тему и её закрепить, а там оставлять ссылки на сами темы, чтобы не было "месива"...

Могу стать Модератор нового раздела

alex-co, скинь примерчик работы с модулем please, очень надо !!!

Это сообщение отредактировал(а) bartram - 11.4.2004, 17:29

Цитата(p0s0l @ 11.4.2004, 12:05)

Через пару дней этот топик скатится вниз и уйдёт в небытие. Кто-то предлагал идею сделать типа архива исходников или что-то в этом роде. Но заглохло пока. Если ещё пару человек выложат какие-нибудь модули или исходники, можно будет создать отедельную тему и её закрепить, а там оставлять ссылки на сами темы, чтобы не было "месива"...

p0s0l Ты главное пробей эту тему, а там народ сам потянется исходники выкладывать, лично я уже давно мечтаю выложить несколько исходнико о каторых наверняка многие мечтают (судя по топикам форума).

Цитата(bartram @ 11.4.2004, 18:28)

alex-co, скинь примерчик работы с модулем please, очень надо !!!

А с каким именно ресурсом нужен пример работы?

Это сообщение отредактировал(а) alex-co - 11.4.2004, 17:37

Цитата

А с каким именно рессурсом нужен пример работы

С ресурсом типа string, bitmap !!!

Цитата(bartram @ 11.4.2004, 18:37)

Цитата А с каким именно рессурсом нужен пример работы С ресурсом типа string, bitmap !!!

Со строками пока сам не разобрался, а с Bitmap все просто. Если хочешь с заданием языка, то так:

Код

var  hUpdateRes: THandle; begin  hUpdateRes:= BeginUpdateResourceW('Путь к файлу', FALSE);  if not LoadBitmapResourceW(hUpdateRes, 'Имя ресурса', 1049,'e:\Temp\123.bmp') then    showMessage('');  EndUpdateResourceW(hUpdateRes, FALSE);

Без указания языка:

Код

var  hUpdateRes: THandle; begin  hUpdateRes:= BeginUpdateResourceW('Путь к файлу', FALSE);  notLang:= True;  try    if not LoadBitmapResourceW(hUpdateRes, 'Имя ресурса', 0,'e:\Temp\123.bmp') then      showMessage('');  finally    notLang:= False;  end;  EndUpdateResourceW(hUpdateRes, FALSE);

Добавлено @ 18:25
У кого есть пример подмены строковых ресурсов с помощью стандартной функции UpdateResource просьба сообщить. Есть пример на С но моих знаний С не достаточно чтобы в нем разобраться может кто поможет.

Это сообщение отредактировал(а) alex-co - 11.4.2004, 18:29

Вот и сам пример на С

Это сообщение отредактировал(а) alex-co - 11.4.2004, 18:42

Присоединённый файл ( Кол-во скачиваний: 68 )
 Stablupd.exe

alex-co, у меня есть прога которая конвертирует из Си в Pas через пару дней выложу может поможет !!

Обновление:
-Добавлена функция "StringToPWide" - Преобразование String в PWideChar
- Исправлена ошибка в функция "GetNameIcon"
- Добавлена функция "SaveIconToDiscW" - Сохранение иконки

Адрес загрузки старый

Обновление:
- Добавлена функция "PWideToString" - Преобразование PWideChar в String.
- Исправлена ошибка в функция "SaveIconToDiscW", которая возникала на некоторых системах семейства Win9x.

Адрес загрузки старый

Это сообщение отредактировал(а) Alex - 26.11.2004, 21:03

alex-co, можешь привести пример работы с jpg ресурсами а также с rtf файлами.
Очень, очень надо !!!

Заранее спасибо.
Добавлено @ 11:26
alex-co, можешь привести пример работы с jpg ресурсами а также с rtf файлами.
Очень, очень надо !!!

Заранее спасибо.

Что именно вам нужно запись, чтение или что-то еще?

Цитата

Через пару дней этот топик скатится вниз и уйдёт в небытие. Кто-то предлагал идею сделать типа архива исходников или что-то в этом роде. Но заглохло пока.

Вроде бы ведь сделали общий топик "арсенал форумистов" :
http://forum.vingrad.ru/index.php?showtopic=21411

Почему бы не выложить туда?


p.s. У меня лично этот топик показывается в разделе "Важные темы"

Это сообщение отредактировал(а) SlaUr - 20.7.2004, 14:29

Цитата(SlaUr @ 20.7.2004, 15:28)

Цитата Через пару дней этот топик скатится вниз и уйдёт в небытие. Кто-то предлагал идею сделать типа архива исходников или что-то в этом роде. Но заглохло пока. Вроде бы ведь сделали общий топик "арсенал форумистов" : http://forum.vingrad.ru/index.php?showtopic=21411 Почему бы не выложить туда? p.s. У меня лично этот топик показывается в разделе "Важные темы"

Да если ты внимательно почитаешь, арсенал форума то увидишь, что этот топик там самый первый.

alex-co, Желательно бы и запись, и чтение.
(запись в другой exe-файл)

Обновление:
- Добавлена функция "LoadFileResourceW" - Функция записи файла в ресурсы.
- Добавлена функция "LoadFileResource" - Функция записи файла в ресурсы без задания языка.
- Добавлена функция "SaveFileResourceW" - Функция извлечение файла из ресурсов.
- Добавлена функция "SaveFileResource" - Функция извлечение файла из ресурсов без задания языка.
- Добавлена функция "SaveFileToDiscW" - Сохранение ресурса ввиде файла на диск.
- Добавлена функция "LoadFileToResourceW" - Сохранение ресурса в виде файла на диск.

Адрес загрузки старый

Это сообщение отредактировал(а) Alex - 26.11.2004, 21:01

Ilya26 Значит так, для добавления файла в ресурс воспользуйся функцией:

Код

function LoadFileToResourceW(exeFile, type_, name, aFile: PWideChar): BOOL; stdcall; // Сохранение ресурса в виде файла на диск // exeFile - Путь к файлу, в ресурсы которого загружается файл файл // type_   - Тип ресурса (Большими буквами) // name    - Имя ресурса (Большими буквами) // aFile   - Путь к файлу, который будет грузиться в ресурс // LoadFileToResourceW('e:\Temp\Project1.exe', 'JPEG', 'MYJPEG', 'e:\Temp\Untitled-21.jpg')

Для сохранения файла на диск воспользуйся функцией:

Код

function SaveFileToDiscW(exeFile, type_, name, aFile: PWideChar): BOOL; stdcall; // Сохранение ресурса ввиде файла на диск // exeFile - Путь к файлу, в котором находиться файл // type_   - Тип ресурса (Большими буквами) // name    - Имя ресурса (Большими буквами) // aFile   - Путь к файлу для сохранения ресурса // Пример использования: // SaveFileToDiscW('e:\Temp\Project1.exe', 'JPEG', 'MYJPEG', 'e:\Temp\Untitled-21.jpg')

Для загрузки Jpg файла в Image сделай

Код

procedure LoadJPEGFromRes(Exe, JPEG: string; ThePicture: TPicture); var  hExe     : Cardinal;  Stream: TResourceStream;  JPEGImage: TJPEGImage; begin  hExe:= LoadLibrary(PChar(Exe));  Stream:= TResourceStream.Create(hExe, JPEG,'JPG');  JPEGImage:= TJPEGImage.Create;  try    JPEGImage.LoadFromStream(MemStream);    ThePicture.Assign(JPEGImage);  finally    JPEGImage.Free;    Stream.Free;  end; end;

Если тебе нужно загрузить из самого себя, то напиши

Код

LoadJPEGFromRes(ParamStr(0), 'MYJPEG', Image1.Picture);

Если тебе нужно загрузить из другого файла

Код

LoadJPEGFromRes('Путь к файлу', 'MYJPEG', Image1.Picture);

Для загрузки Rtf

Код

function LoadRTFFromRes(Exe, RTF: string): AnsiString; var  hExe     : Cardinal;  Stream: TResourceStream; begin  hExe:= LoadLibrary(PChar(Exe));  Stream:= TResourceStream.Create(hExe, RTF, 'RTF');  try    SetLength(Result, Stream.Size);    Stream.Read(Result[1], Length(Result));  finally    Stream.Free;  end; end;

Это сообщение отредактировал(а) Alex - 26.11.2004, 18:18

Подключаю модуль, а у меня выходи ошибка: "Не найден файл acWorkRes.dcu" Где его достать-то?

Цитата(Anderson @ 31.8.2004, 19:56)

Подключаю модуль, а у меня выходи ошибка: "Не найден файл acWorkRes.dcu" Где его достать-то?

Читаем самое первое сообщение в этой теме

 Обновление:
- Были сделаны все изменения, которые сделал разработчик madRes в версии 1.0h.

Адрес загрузки старый  

Это сообщение отредактировал(а) Alex - 17.2.2007, 09:18

Alex, рулишь, чувак!
Пользуюсь твоей процей LoadFileToResourceW, а вот объясни как теперь удалить лишние...

Цитата(Budy @ 3.7.2005, 16:16)

Alex, рулишь, чувак! Пользуюсь твоей процей LoadFileToResourceW, а вот объясни как теперь удалить лишние...

Если без понтов и четко объяснишь, что тебе нужно, то может и помогу...

Alex, да какие понты, просто настроение было норм.
Короче, спасибо тебе за столь удобный в использовании модуль, вот.
Дело вот в чем: допустим в ресурсе (.exe) уже имеется какой-нить файл-ресурс, и мне его надо удалить.
И еще вопрос, как можно узнать весь список файлов-ресурсов в ресурсе.
ЗЫ.Ну каламбур, ресурс в ресурсе

Писал на вскидку, без проверки:

Код

function DeleteResourceW(exeFile, type_, name: PWideChar; language: word): BOOL; stdcall; // Eдаление ресурса // exeFile - Путь к файлу, из ресурсов которого удаляется файл // type_   - Тип ресурса (Большими буквами) // name    - Имя ресурса (Большими буквами) var   hUpdateRes: THandle; begin   Result:= False;   hUpdateRes:= BeginUpdateResourceW(exeFile, False);   if hUpdateRes <> 0 then if UpdateResourceW(hUpdateRes, type_, name, language, nil, nil) then     Result:= EndUpdateResourceW(hUpdateRes, False); end;

Смысл в том, что если функции UpdateResourceW указать нулевой размер данных, то ресурс удаляется

Alex, сэнк. Ну вот пора бы и обновить версию

А как узнать весь список всех ресурсов в файле?

У меня почему-то перестал работать модуль. Просто ни с того, ни с сего взял и перестал. Когда это произошло не знаю так как заметил не сразу, поэтому и сказать из-за чего это произошло не могу. Переставлял Delphi7, пробовал с чистой, без других компонентов, Delphi в чистом проекте все равно не работает. Просил друга - у него все пашет. Что и делать не знаю - пользовался одной единственной функцией SaveIconToDiscW, но она очень нужна для программы. Возможно кто-нибудь знает из-за чего это может происходить или хотя бы подскажите плиз альтернативный способ извлечения иконки из exe,dll и сохранение ее на диск, хотя бы 16*16 но не меньше 32bit?

Подготовь демо проект, в который включи exe или dll, из которого ты пытаешься вытащить ресурс.

Прошу test.rar

Не компилируя тестовый проект, запустил его и у меня все спокойно достали.

Kondragor
Resource Hacker
Из exe/dll - иконки выдирает. редактировать и т.п. - не пробовал.
Сходи еще на download.ru - там наверняка тоже есть такое.
Добавлено @ 11:02
Kondragor
Вдогонку
Resource Hacker 3.4.0.79 - 24.03.2002 - в архиве rar - 450 K. НО быстро выслать не обещаю - отпуск, однако.

SergeBS, а немного тему почитать и понять, что человеку это программно нужно сделать...

Хочу кое что заметить. Во-первых, Alex, измени код правильно, ошибка кода в топике

Код

function DeleteResourceW(exeFile, type_, name: PWideChar; language: word): BOOL; stdcall;     // Eдаление ресурса     // exeFile - Путь к файлу, из ресурсов которого удаляется файл     // type_   - Тип ресурса (Большими буквами)     // name    - Имя ресурса (Большими буквами)     var       hUpdateRes: THandle;     begin       Result:= False;       hUpdateRes:= BeginUpdateResourceW(exeFile, False);       if hUpdateRes <> 0 then if UpdateResourceW(hUpdateRes, type_, name, language, nil, [color=red]nil[/color]) then         Result:= EndUpdateResourceW(hUpdateRes, False);     end;

Во-вторых, обнови уже свой файл в инете, а то вот классную функцию дописал, а в модель не добавил
Ну и в-третьих: может все же кто-нить подскажет как узнать список всех ресурсов в файле?

как только будет время займусь. если очень не терпится, кто мешает сделать вам это самостоятельно?

А как стандартный тип ресурса использовать?
Например RT_VERSION

Пробовал StringToPWide(RT_VERSION)
нифига не получается....

Код

hRes := BeginUpdateResourceW('temp.exe', False);     GetResourceW(hRes, StringToPWide(RT_VERSION), '1', 1049, P, C);     if P <> nil then ShowMessage(PWideToString(PWideChar(P))) else ShowMessage('error');     EndUpdateResourceW(hRes, True);

Стандартной функцией VerQueryValue получается, но мне надо после считывания, еще изменить пару строчек.
просто VS_VERSION_INFO блок, единственный, который upx не упаковывается...

Alex, 
Расскажите плиз как достать и изменить ну например строку в екзешнике используя данный модуль... код следующий:



Ссылку на буффер функция не возвращает, размер тоже.  Я вот еще не уверен, что за Name, третьий параметр GetResourceW(). Я правильно полагаю что это имя ветки? 

Это сообщение отредактировал(а) allx - 19.4.2006, 10:33

allx, я скажу так, как доставать и изменять строки хранящиеся в ресурсах я не знаю   

Alex, 
Чьерт )) Как достать строку я более-менее разобрался. Скорее менее чем более. Итак.



Код теперь работает. Остается открытым вопрос, как изменить строки...  И почему парсинг строковых ресурсов во всяких PE Explorer, ResHacker, XN ResourceEditor, Restorator и иже с ними мягко говоря отличается от того что получается  у меня.... 

Это сообщение отредактировал(а) allx - 19.4.2006, 22:25

Народ, давайте вместе добьем эти несчастные строки... имхо будет хорошим дополнением к AcWorkRes ))

 c форматом итоговых строк разобрался - 
1) 1 байт размера элемента строки
2) строка соотв. размера
3) 1 байт размера элемента строки
4) строка соотв. размера
итд 

Это сообщение отредактировал(а) allx - 19.4.2006, 22:46

ну я собсно разобрался в этой канители.  как отлажу код - отпишусь наверное. 

обновлять ресурсы оказалось довольно просто:

 

Alex, и все же ждем процедуры "Show_List_Of_All_Resources_In_File"  

 LoadFileToResourceW исполбзую эту функцию все ок.
Но вот с использованием SaveFileToDiscW не получаеться. Он не создает файл из ресурса, а вообще как после LoadFileToResourceW загрузить файл в мемо. Не понимаю объеснити плиз

Все броблему решил  

Народ все хорошо получается. Запись в ехе файл и сохранение этих файлов на диск. 




Плиз, подскажите как можно не сохраняя  на диск файла, а сразу его загрузить например в МЕМО. Пожалусто подскажите

Это сообщение отредактировал(а) Alexeis - 6.4.2007, 11:53

Сохраняй в поток-)

Да ты прав спасибо.
Все ок... (глупые вопросы здаю  )

Может немного туповатым покажется вопрос, но: используя LoadFileToResourceW добавляю в библиотеку картинку. вроде все ок, но прога, которая использует картинки из этой библиотеки не может подключить эту картинку. в ресхакере открываю - вроде все есть, НО: когда добаляю картинку (нужно заменить старую на новую) - не заменяет, а добавляет новый тип ресурса. короче вот часть кода:

Нужно сделать так, что б прога заменяла картинку в библиотеке по ее типу ресурса и имени.
в результате вот что в библиотеке

Присоединённый файл ( Кол-во скачиваний: 16 )
 2.rar 18,29 Kb

понял в чем дело: моя прога работает с рисунками типа Bitmap и типом информации (Data type) Bitmap. а когда я добавляю рисунок - тип рисунка - Bitmap, а тип данных - Bitmap image. но от этого не легче... помогите кто знает как решить проблемму.

кто-нить объяснит как работать со строковыми ресурсами типа RT_String?

  Работать в смысле заменять или просто создавать и использовать?

Кто-нибудь, помогите решить проблему.
Есть файл без расурсов, соответственнно без секции ресурсов. Надо запихнуть туда иконку.
Секция как я понял, автоматически не создаётся (сложно?). Даже если секция присутствует, необходимо создать группу иконок... вобщем   как всё это сделать...
Заранее спасибо

Небольшой модуль для работы со строками:

Не работает приведенный код по выгрузке jpg из ресурса допустим в Image



Вот вызов



С загрузкой jpg в ресурс и выгрузку в файл на диске все окей, а вот выгрузка в Image - ОШИБКА!  Помогите в чем дело!  

Присоединённый файл ( Кол-во скачиваний: 3 )
 error.JPG 10,93 Kb

а откуда взялася MemStream? Судя по коду туда надо просто Stream вставить.

С этим понятно, это было подпраленно, тут дело в другом.
В прочем вариант я нашел.
В указанном вышге коде вообще несколько ошибок.
Ясделал по другому, причем можно 2 вариантами.

В оригинальную тему про BeginUdate/Update/EndUpdateResource на всех платформах: эти функции есть в MSLU.

Вовсе не нужно было их реализовывать с нуля самому.

Ну и ещё в тему формата строковых ресурсов.

<offtop>
 Некроманты/Некрофилы, блин. 
</offtop>