Hi The-X
Ähm danke für den Tip. Hab das natürlich schon gemacht *g*
Der Rest funktioniert auch. Häng nur noch dran fest das ich irgendwie überprüfen sollte ob das bild auch in der Exe vorhanden ist. Weiß nur nicht genau wie
Darty und ich haben uns darüber mal im ICQ unterhalten.
Dachten das ungefähr so:
Delphi-Quellcode:
procedure LoadImage(Bild: String; Ziel: TImage);
var
b: TJPEGImage;
s: TResourceStream;
begin
if exists Bild in der exe then
s := TResourceStream.Create(HINSTANCE, Bild, 'JPG');
b := TJPEGImage.Create;
b.LoadFromStream(S);
Ziel.Picture.Bitmap.Assign(b);
b.Free;
s.Free
else
s := TResourceStream.Create(HINSTANCE, 'Fehlerbild', 'JPG');
b := TJPEGImage.Create;
b.LoadFromStream(S);
Ziel.Picture.Bitmap.Assign(b);
b.Free;
s.Free;
end;
end;
wobei ich noch nicht weiß wie oder ob man das überhaupt prüfen kann ob das bild existiert! Ist natürlich total Quatsch die "if exists bild in der exe" Zeile.
Hoffe es ist verständlich formuliert.
Gruß Arma.