Kép az exébe fordítva

Ha szeretnél az EXE-ben JPG képet tárolni (JPG méretben), akkor így csináld. Természetesen az MMM.RC fájlban több sorban akár száz jpg képet is megadhatsz. A dolog minden olyan komponensel működik, ahol loadfromstream van: jpg, gif, avi, txt, másik exe,stb.

1. Létrehozol az adott könyvtárba egy "MMM.RC" textfájlot, lehet ezt egy egyszerü Jegyzettömbbel is.
2. Az "MMM.RC" textfájlba beírod:
1 RCDATA "42.jpg" (persze az adott könyvtárban is már ott van a 42.jpg fájl.
3. A parancssorba beírod: BRCC32 MMM.RC (majd Enter, ekkor a proggi létrehoz egy MMM.RES fájlot, ez tartalmazza a jpg képet.)
4. A programban:

uses jpeg;

implementation

{$R *.DFM}
{$R mmm.RES}

procedure LoadJPEGfromEXE(a:integer);

var
MyJPG : TJPEGImage;
r : TResourceStream;

begin
try
MyJPG := TJPEGImage.Create;
r := TResourceStream.CreateFromID(HInstance, a, RT_RCDATA);
MyJPG.LoadFromStream(r);
form1.Canvas.Draw(0,0,MyJPG);
finally
MyJPG.Free;
r.Free;
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
LoadJPEGfromEXE(1);
end;