Nein, tut mir leid.. Ich hätte ihn auch genannt nur wurde ich eben abgelenkt und habe das vergessen, sorry.. Ich habe den Code aber erstmal mit Bitmaps probiert und hier ist der Code:
Delphi-Quellcode:
procedure TFrmHaupt.PictLoad(Pic: string);
var
h :HINST;
r :TResourceStream;
b : Tbitmap;
begin
h := LoadLibrary('bitmaps.dll');
if h <> 0 then
try
r := TResourceStream.Create(h, Pic, BITMAP);
b := Tbitmap.Create;
try
b.LoadFromStream(r);
ImgButtonStore.Picture.Bitmap := b;
finally
b.Free;
r.Free;
end;
finally
FreeLibrary(h);
end;
end;
und hier der Fehler:
Code:
[dcc32 Fehler] haupt.pas(155): E2029 '(' erwartet, aber ')' gefunden
[dcc32 Fehler] haupt.pas(156): E2010 Inkompatible Typen: 'PWideChar' und 'tagBITMAP'