[Andorra] seltsamster Fehler bei AdDraw.dllname:='xy.dll'

[Spiderpig_GER_15]

Delphi-Quellcode:

procedure TAdDllLoader.LoadLibrary(afile: string);
var
  InfoProc:TAndorra2DLibraryInformation;
  AbilitiesProc:TAndorra2DLibraryAbilities;
begin
  if fileExists(afile) then
  begin
    if LibraryLoaded then
    begin
      UnLoadLibrary;
    end;
    {$IFDEF Win32}
      DllHandle := Windows.LoadLibrary(PChar(afile));
    {$ELSE}
      DllHandle := dynlibs.LoadLibrary(PChar(afile));  
    {$ENDIF}
    if LibraryLoaded then
    begin
      @CreateApplication := GetProcAddress(DllHandle, 'CreateApplication');

      //Get information
      @InfoProc := GetProcAddress(DllHandle, 'Andorra2DLibraryInformation');
      InfoProc(LibInfo);

      //Get abilities
      @AbilitiesProc := GetProcAddress(DllHandle, 'Andorra2DLibraryAbilities');
      AbilitiesProc(LibAbilities);  //<=== Hiernach
   end;
end;