home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 16 / CD_ASCQ_16_0994.iso / news / 4611 / fw16d.ins / SAMPLES / CLOSEDLL.PRG < prev    next >
Text File  |  1994-02-07  |  419b  |  18 lines
  1. //----------------------------------------------------------------------------//
  2.  
  3. function Main()
  4.  
  5.    local cDll := Space( 40 )
  6.    local hDll
  7.  
  8.    if MsgGet( OemToAnsi( "Atención" ), "DLL a liberar:", @cDll )
  9.       hDll = LoadLibrary( cDll )
  10.       for n = 1 to 10
  11.          FreeLibrary( hDll )
  12.       next
  13.    endif
  14.  
  15. return
  16.  
  17. //----------------------------------------------------------------------------//
  18.