Как извлеч ресурс из программы в отдельный файл? [D6, Win95/98]
myportal © (2002-01-19 10:00:00)
В программе есть ресурс 1.res я пробовал извлечь его в файл,
но программа висла. Делал через TResourceStream и сохранял в
файл. Может кто нить подскажет с примером?
MARcoDEN (2002-01-19 12:32:00) [1]
1. Пишем в блокноте RC-файл, куда прописываем все нужные нам
программы, например:
ZIP EXEFILE C:\ZIP.EXE
2. Компилируем его в ресурс при помощи
Brcc32.exe. Получаем RES-файл.
3. Далее в тексте нашей программы:
implementation
{$R *.DFM}
{$R test.res} //Это наш RES-файл
procedure ExtractRes(ResType, ResName, ResNewName : String);
var
Res : TResourceStream;
begin
Res := TResourceStream.Create(Hinstance, Resname,
Pchar(ResType));
Res.SavetoFile(ResNewName);
Res.Free;
end;
procedure TForm1.BitBtn1Click(Sender: TObject);
begin // Записывает в текущую папку zip.exe
ExtractRes("EXEFILE", "ZIP", "ZIP.EXE");
end;
Удачи!
Наверх 
ЧАТ |
Орешник |
|
