Как я могу извлечь ресурс в файл во время выполнения?

Question

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

Могу ли я, и если да, то как?

Answer 1

Используйте TResourceStream для Delphi. Конструктор найдет и загрузит ресурс в память, и метод SaveToFile выполнит запись на диске.

Нечто похожее на это должно работать:

var 
    ResStream: TResourceStream; 
begin 
    ResStream := TResourceStream.Create(HInstance, 'YOURRESOURCENAME', RT_RCDATA); 
    try 
    ResStream.Position := 0; 
    ResStream.SaveToFile('C:\YourDir\YourFileName.jpg'); 
    finally 
    ResStream.Free; 
    end; 
end; 

Если вы можете использовать идентификатор ресурса вместо имени, это немного меньше памяти. В этом случае вы замените Create на CreateFromID и укажите числовой идентификатор, а не имя строки.

Answer 2

Создать TResourceStream. Вам понадобится дескриптор экземпляра модуля (обычно SysInit.HInstance для текущего EXE-файла, иначе вы получите от LoadLibrary или LoadPackage), тип ресурса (например, rt_Bitmap или rt_RCData) и либо имя ресурса, либо числовой идентификатор. Затем вызовите метод потока SaveToFile.

Answer 3

try 
    if not Assigned(Bitmap) 
    then 
     Bitmap := TBitmap.Create(); 
    Bitmap.LoadFromResourceName(HInstance,SRC); 
except 
    on E:Exception do 
     ShowMessage(e.Message); 
end; 

И затем сохранить растровое изображение на диск.

Answer 4

Возможно, это может пригодиться, если вам нужно работать с самими ресурсами. Delphidabbler/ResourceFiles