Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.02.04;
Скачать: [xml.tar.bz2];




Вниз

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


myportal   (2002-01-19 10:00) [0]

В программе есть ресурс 1.res я пробовал извлечь его в файл,
но программа висла. Делал через TResourceStream и сохранял в файл. Может кто нить подскажет с примером?



MARcoDEN   (2002-01-19 12:32) [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;

Удачи!




Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.02.04;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.71 MB
Время: 0.053 c
3-8786            Petrovich             2002-01-08 10:25  2002.02.04  
Вызов gbak


6-8962            lsd[52r]              2001-11-13 01:51  2002.02.04  
Как научить прогу по IP коннектится?


3-8752            VA                    2001-12-31 01:52  2002.02.04  
ADO


1-8898            nikols                2002-01-16 17:13  2002.02.04  
Как получить текст HTML у TWebBrowser?


6-8960            SemFLY                2001-11-11 18:56  2002.02.04  
Почему никак не разберусь ! :-(