AVI aus einer DLL

[scp]

Da gibt es zwei Möglichkeiten:

Delphi-Quellcode:

FModuleHandle := LoadLibraryEx(PChar(FFileName), 0, LOAD_LIBRARY_AS_DATAFILE); 

    AnimateV.CommonAVI := aviNone; 

    AnimateV.ResHandle := FModuleHandle;  // Hier die Exception 

    If (StrToIntDef(Name, 0) <> 0) then 
      AnimateV.ResID := StrToIntDef(Name, 0) 
    else 
      AnimateV.ResName := Name; 

    AnimateV.Seek(1); 
    AnimateV.Play(1, AnimateV.FrameCount, 0);

Delphi-Quellcode:

FModuleHandle := LoadLibraryEx(PChar(FFileName), 0, LOAD_LIBRARY_AS_DATAFILE); 

    AnimateV.CommonAVI := aviNone; 

    If (StrToIntDef(Name, 0) <> 0) then 
      SendMessage(AnimateV.Handle, ACM_OPEN, FModuleHandle, StrToIntDef(Name, 0)) 
    else 
      SendMessage(AnimateV.Handle, ACM_OPEN, FModuleHandle, Integer(@Name[1])); 

    SendMessage(AnimateV.Handle, ACM_PLAY, -1, MAKELONG(0, Word(-1)));

Die obere ist die eigentlich korrekte Vorgehensweise. Da dies zumindest bei mir manchmal nicht funktioniert, verwende ich die untere Methode.