// Utilidad para remover DLLs que se queden abiertas en Windows
// Utility for removing opened DLLs in Windows
//
// BUILD DllClear
//----------------------------------------------------------------------------//

function Main()

   local cDllName := Space( 20 )
   local hDll

   if MsgGet( "DLL a quitar de la memoria", "Nombre DLL:", @cDllName )
      hDll = LoadLibrary( cDllName )

      for n = 1 to 10
          FreeLibrary( hDll )
      next
   endif

return

//----------------------------------------------------------------------------//
