Oxon
Сообщений: 36
Оценки: 0
Присоединился: 2009-03-24 09:52:32.740000
|
Есть dll библиотека, в которой хранятся однотипные ресурсы! Содержание .rc файла image1 RCDATA "3uparrow.png"
image2 RCDATA "3dowarrow.png"
image3 RCDATA "2uparrow.png"
image4 RCDATA "2rightarrow.png"
image5 RCDATA "2leftarrow.png"
image6 RCDATA "2downarrow.png"
image7 RCDATA "2downarrow1.png"
image8 RCDATA "2dowarrow.png"
image9 RCDATA "1uparrow.png"
image10 RCDATA "1rightarrow.png"
image11 RCDATA "1leftarrow.png"
image12 RCDATA "1downarrow.png"
image13 RCDATA "1downarrow1.png" Далее сделал .res и скомпилил dll, при компиляции dll кроме как добавив {$R res.RES} ничего больше не делалал! Вопрос: как одновременно извлечь все .png файлы из библиотеки? И чтобы у каждого файла осталось свое имя согласно записи в .rc Смог сделать только извлечение каждого файла по отдельности: procedure TForm1.Button1Click(Sender: TObject);
var
AModule: THandle;
png : TPNGObject;
Path: string;
begin
png := TPngObject.Create;
AModule := LoadLibrary('res.dll');
Path := ExtractFilePath(Application.ExeName) + '256';
CreateDir(Path);
png.LoadFromResourceName(AModule, 'image1');
png.SaveToFile(Path + '\3uparrow.png');
FreeLibrary(AModule);
png.Free;
end; В гугл не отправлять, стукнуться об стену тоже! - Всю ночь бьюсь!
|