Bilder dll

[Matze]

Was ist da denn in der Code-Lib gelandet.

Versuce es mal so in der Art:

Delphi-Quellcode:

var
  h :HINST;
  r :TResourceStream;
  j :TJpegImage;
  i :integer;
begin
  h := LoadLibrary('Bilder.dll');
  if h <> 0 then
  begin
    r := TResourceStream.Create(h, Bild1, 'Jpeg');
    j := TJpegImage.Create;
    try
      j.LoadFromStream(r);
      Image1.Picture.Bitmap.Assign(j);
    finally
      j.Free;
      r.Free;
    end;
  end else
    RaiseLastOSError();

  FreeLibrary(h);
end;