home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 16 / CD_ASCQ_16_0994.iso / news / 4611 / fw16d.ins / SAMPLES / DLLCLEAR.PRG < prev    next >
Text File  |  1994-06-03  |  572b  |  23 lines
  1. // Utilidad para remover DLLs que se queden abiertas en Windows
  2. // Utility for removing opened DLLs in Windows
  3. //
  4. // BUILD DllClear
  5. //----------------------------------------------------------------------------//
  6.  
  7. function Main()
  8.  
  9.    local cDllName := Space( 40 )
  10.    local hDll
  11.  
  12.    if MsgGet( "DLL a quitar de la memoria", "Nombre DLL:", @cDllName )
  13.       hDll = LoadLibrary( cDllName )
  14.  
  15.       for n = 1 to 10
  16.           FreeLibrary( hDll )
  17.       next
  18.    endif
  19.  
  20. return
  21.  
  22. //----------------------------------------------------------------------------//
  23.