Schau dir mal TBitmap in der Hilfe an, besonders .LoadFromResourceName()/.LoadFromResouceID().
Delphi-Quellcode:
procedure LoadBitmapFromResource(Bitmap: TBitmap;
const FileName,BitmapName:
String);
begin
Lib := LoadLibraryEx(FileName, LOAD_LIBRARY_ASDATAFILE);
if Lib = 0
then
raise Exception.Create('
Ungültige DLL');
try
Bitmap.LoadFromResourceName(Lib, BitmapName);
finally
FreeLibrary(Lib);
end;
end;
Gruß Hagen