Загнать картинку(bmp) в экзешник

[prod87]

Нужно загнать картинку в экзешник и сделать так, что бы при запуске экзешника эта картинка появлялась в той же папке.
Приложение консольное! (Без формы)

Подскажите, может кто этим когда то занимался

[prod87]

И еще кое что)
Кроме экзешника никаких файлов не должно задействоваться

[Serge_Bliznykov]

и что, ресурсы для консольных файлов отменили?!

в .RC файл текст вида:

MyPicture RT_BITMAP myx.bmp

использовать можно так:

var Res: TResourceStream;

begin
  WriteLn('Now save file....');
  Res:=TResourceStream.Create(Hinstance,'MyPicture','RT_BITMAP');
  Res.SaveToFile(ExtractFilePath(ParamStr(0))+'FLY.bmp');
  Res.Free;
  WriteLn('File FLY.bmp created.')
end.

_______________________
ДОБАВЛЕНО
кстати, в выложенном примере RC файл был откомпилирван с помощью brcc32.exe (в тексте программы написано {$R mypict.RES}
Но можно упростить этот процесс.
Достаточно нажать - Добавить файл в проект, внизу, маску файлов задать *.RC и выбрать свой исходник файла с описанием ресурса, как в проект будет вставлена строчка:
{$R 'mypict.res' 'mypict.rc'}
И при компиляции проекта дельфи сама будет (при необходимости) перекомпилировать ресурсы...

[prod87]

Спасибо большое