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.