Resourcen DLL's

[Luki206]

Ok, ich habe jetzt meinen Code verbessert aber jetzt bekomme ich angezeigt das die Bitmap ungültig sei. Neuer Code:

Delphi-Quellcode:

procedure TFrmHaupt.PictLoad(Pic: string);
var
   h :HINST;
   r :TResourceStream;
   b : Tbitmap;
begin
   h := LoadLibrary('LW_MP_GRA1.dll');
   if h <> 0 then
   try
     r := TResourceStream.Create(h, Pic, RT_BITMAP);
     b := Tbitmap.Create;
     try
       b.LoadFromStream(r);
       ImgButtonStore.Picture.Bitmap := b;
     finally
       b.Free;
       r.Free;
     end;
   finally
     FreeLibrary(h);
   end;
end;