TGifImage & Dll eine bessere Lösung ???

[geskill]

So ich habe das ganze noch mal angeschaut, hier ist die Lösung, ohne TImage Variable (wie gesagt war unnötig^^)

Delphi-Quellcode:

PROCEDURE LoadMainMenuBanner468;
VAR LibHandle: HINST; RES :TResourceStream; GIF:TGifImage;
BEGIN
  IF FileExists(ExtractFilePath(ParamStr(0))+'RESSOURCE\SYS\StartLogo.dll') = TRUE THEN BEGIN
  LibHandle:=Loadlibrary(PChar(ExtractFilePath(ParamStr(0))+'RESSOURCE\SYS\StartLogo.dll'));
  IF LibHandle >= 3 THEN BEGIN
   RES := TResourceStream.CreateFromID(LibHandle, 3, 'GIF');
   GIF := TGifImage.Create;
       TRY
        Gif.LoadFromStream(Res);
        Form1.ImageGIFBanner.Picture.Graphic := GIF;
        FINALLY
        Res.Free;
        GIF.Free;
        END;
  FreeLibrary(LibHandle);
  END ELSE
    RaiseLastOSError();
  END;
END;

Möge das noch einem anderem weiterhelfen ^^

MFG