Fórum carregando dll de modo dinamico, erro ao fechar programa #365460

    try

      try

        try

          try
            hDll := LoadLibrary( PChar( FNomeDll ));
          except
            ShowMessage(´Erro ao carregar arquivo ´ + FNomeDll);
            Exit; //raise; //raise para sair sem executar os try abaixo
          end;

          try
            FuncPtr := GetProcAddress(hDLL, PChar(FNomeFuncao));
            @CallMeDll := FuncPtr;
          except
            ShowMessage(´Erro ao carregar função ´ + FNomeFuncao + ´ em ´ + FNomeDll);
            Exit; //raise; //raise para sair sem executar os try abaixo
          end;

          if @CallMeDll <> nil then
          try

            if cds.IsEmpty then
            begin
              ShowMessage(´Nenhum registro disponível para gerar Lote´);
              Exit;
            end;

            retorno := CallMeDll( FNomeUsuario,
                                  FSecao,
                                  FSubSecao,
                                  cds,
                                  FIBdataBase,
                                  FDescricaoLote,
                                  msg_erro,
                                  vet,
                                  FQuantidadeLotes);

          except
            ShowMessage(´Erro ao executar ´ + FNomeFuncao);
            Exit; //raise; //raise para sair sem executar os try abaixo
          end
          else
          begin
            ShowMessage(´Não foi possível encontrar função ´ + FNomeFuncao + ´ em ´ + FNomeDll);
            Exit;
            //raise Exception.Create(´Não foi possível encontrar função ´ + FNomeFuncao + ´ em ´ + FNomeDll); //raise para sair sem executar os try abaixo
          end;


          if retorno = 0 then
            begin
              Application.MessageBox(msg_erro,´Erro´, mb_OK+mb_ICONERROR);
              exit;
            end;
            msg:=´Lote(s) gerado(s) (total):´+chr(13);
            for i:=0 to retorno-1 do
              msg:=msg+Floattostr(vet[i].ano_lote)+´/´+FloatToStr(vet[i].num_lote)+chr(13);

            Application.MessageBox(PChar(msg),´Atenção´, mb_OK+mb_ICONINFORMATION);

        except
          //tratamento de erro ou sair mostrando mensagem mas sem tratar
        end;
        
      except
      end;

    finally
      //limpeza e descarregamento seguro da dll
      try
          //FreeLibrary(hDll);
      except
      end;
    end;