Bilder in exe integrieren

[sniper_w]

Delphi-Quellcode:

procedure LoadBMPFromResource(BM: TBitmap; ID: Integer);
var
  ResourceStream: TResourceStream;
begin
  ResourceStream:= TResourceStream.CreateFromID(HInstance, ID, RT_RCDATA);
  try
    BM.LoadFromStream(ResourceStream);
  finally
    ResourceStream.Free;
  end;
end;

mein_res.rc Datei:

Zitat:

//
// mein foto
//
1 RCDATA c:\photo.bmp

RC Datei mit folgendem Befehl(im CMD eingeben) kompilieren:

Zitat:

@brcc32 mein_res.rc

Beim Aufruf der funktion LoadBMPFromResource, Parameter ID durch enstpechende Zahl ersetzten, in diesem Beispiel 1.

Projekt jetzt erzeugen und ausführen.