Показать сообщение отдельно

  #9  
Старый 05.03.2008, 15:44
W!z@rD
Reservists Of Antichat - Level 6
Регистрация: 12.02.2006
Сообщений: 891
Провел на форуме:
1892597

Репутация: 836


Отправить сообщение для W!z@rD с помощью ICQ
По умолчанию

Цитата:
Сообщение от x-treem  
Добрый день. Пишу на делфях на чистом WinApi. Возникла проблема. Нужно в теле самой программы нести графический файл, после чего выгружать его в отдельный файл на диске. Подскажите, как это реализовать.
1
в блокноте пишешь:
pinch_exe RCDATA Pinch.exe
сохраняешь файл под именем (к примеру) pinch.rc

2
в консоли
brcc32 -32 c:\SuperPinch\pinch.rc
на выходе получишь pinch.res

3
подключаешь ресурс
{$R pinch.res}

4
procedure ExtractRes;
var Res:TResourceStream;
begin
Res:=TResourceStream.Create(HInstance,'pinch_exe',RT_RCDATA);
Res.SaveToFile('Pinch.exe');
Res.Free;
end;
__________________
*********************************
*Я не волшебник ٩(๏̯͡๏)۶, только учусь...*
*********************************
Программы на заказ
Times to fly...
 
Ответить с цитированием