[lomuuu]

Perdon

Código Delphi [-]
procedure LlamarLanzarMaquetacionRadio(pHandle : HWND);
var
  Inicializa : TInicializa;
  ProcDllProduccion : TMaquetacionRadio;
  STR_DLL, PATH_DLL : String;
begin
  PATH_DLL := ExtractFilePath(Application.ExeName);
  STR_DLL := PATH_DLL + NAME_DLL;
  LibHandle := LoadLibrary(PChar(STR_DLL));
  try
    if LibHandle = 0 then
      raise EDLLLoadError.CreateFmt(STR_LOAD_ERROR,[STR_DLL]);
    @Inicializa := GetProcAddress(LibHandle, 'Inicializa');
    {$IFDEF ORACLE}
      Inicializa (fmDMConexion.OracleSession1);
    {$ENDIF}
    {$IFDEF SQLSERVER}
      Inicializa (fmDMConexion.ADOSession);
    {$ENDIF}
    @ProcDllProduccion := GetProcAddress(LibHandle, 'LanzarMaquetacionRadio');
    if Assigned(ProcDllProduccion) then
       ProcDllProduccion(pHandle);
  finally
    Application.ProcessMessages;
    //FreeLibrary(LibHandle);
  end;
end;