Click above to get retro games delivered to your door ever month!

// Utility for removing opened DLLs in Windows

#include "FiveWin.ch"

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

function Main()

   local cDllName := Space( 40 )
   local hDll

   if MsgGet( "DLL to remove from memory", "Name DLL:", @cDllName )
      hDll = LoadLibrary( cDllName )

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

return

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