Как можно сохранить архив или любой другой файл из ресурса или библиотеки?

Posted by Chas under Топик-обзор

MaxNik2009:

как-то так:

procedure TForm1.ExtractResourse(const AResName, ANewName: string);

var

  rsDrivers: TResourceStream;

begin

  rsDrivers:= TResourceStream.Create(HInstance, AResName, RT_RCData);

  rsDrivers.SaveToFile(ANewName);

  rsDrivers.Free;

end; 

procedure TForm1.bbOklClick(Sender: TObject);

begin

  ExtractResourse('TestResource', 'C:\TestFile.exe');

end;

end;

если извлекаешь файлы из своей программы, то везде будет HInstance. А если например из ресурсов Dll извлекаешь то примерно так:

var

  hLib: Handle;

  rsDrivers: TResourceStream;

begin

  hLib:= LoadLibrary('MyDll.dll');

  rsDrivers:= TResourceStream.Create(hLib, 'testResource', RT_RCData);

  rsDrivers.SaveToFile('C:\Test.txt');

  rsDrivers.Free;

  FreeLibrary(hLib);

end;

тема на форуме

Похожие статьи

• Библиотека Delphi 2007
• Реализация самобалансирующегося (красно-черного или АВЛ, не суть важно) дерева на Delphi
• Перенести программу из Delphi в Lazarus
• Тест в Delphi с помощью RadioGroup
• Random слов в Memo
• Плавное перемещение Image больших размеров
• Выдвижное меню
• Получение яндекс каптчи в Image
• Добавить строку с верха вниз StringGrid
• Выбор таблицы в ComboBox