Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.02.04;
Скачать: CL | DM;

Вниз

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

 
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;

Удачи!



Страницы: 1 вся ветка

Текущий архив: 2002.02.04;
Скачать: CL | DM;

Наверх




Память: 0.44 MB
Время: 0.007 c
4-9025
Rumrunner
2001-12-07 08:14
2002.02.04
Как установить окно ЛЮБОЙ программы в StayOnTop?


1-8910
Eraser
2002-01-16 10:59
2002.02.04
потоки текут-2 или получилось наполовину


1-8887
KvORubin
2002-01-16 19:07
2002.02.04
Memo1 или RichBox1.


3-8797
andey
2001-12-20 19:31
2002.02.04
подскажите


1-8864
Ольга
2002-01-18 12:39
2002.02.04
ListBox-ы и Edit-ы





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский