next »

[Mashuga]

    <System.Runtime.InteropServices.DllImport("bassmod.dll", CharSet:=CharSet.Auto)> _
    Public Shared Function BASSMOD_Free() As <MarshalAs(UnmanagedType.Bool)> Boolean
    End Function

I'm importing and calling the function, but even after Free'ing the library, I still can't manage to delete it.

Any ideas?

[radio42]

.Net typically does NOT unload any dynamically loaded assembly until you exit your app. So it probably is still referenced and loaded by your app.

[Mashuga]

.Net typically does NOT unload any dynamically loaded assembly until you exit your app.

Any way to force it to unload the the dll and delete any references?

[radio42]

You might try to use the "LoadLibrary" and "FreeLibrary" methods located in "kernel32.dll" and load/unload any dll manually.

[Mashuga]

    <DllImport("kernel32.dll", CharSet:=CharSet.Auto, SetLastError:=True)> _
    Public Shared Function LoadLibrary(<[In](), MarshalAs(UnmanagedType.LPStr)> ByVal lpFileName As String) As IntPtr
    End Function
    <DllImport("kernel32.dll", CharSet:=CharSet.Auto, SetLastError:=True)> _
    Public Shared Function GetModuleHandle(ByVal lpModuleName As String) As IntPtr
    End Function
    <DllImport("kernel32.dll", CharSet:=CharSet.Auto, SetLastError:=True)> _
    Public Shared Function FreeLibrary(<[In]()> ByVal hModule As IntPtr) As Boolean
    End Function

'==============================

        BASSMOD_MusicStop()
        BASSMOD_Free() 'don't know if this is still needed since I'm doing it myself
        Dim hAddress As Long = GetModuleHandle("bassmod.dll")
        While hAddress >= 1
            FreeLibrary(hAddress)
            hAddress = GetModuleHandle("bassmod.dll")
        End While
        File.Delete("bassmod.dll")

Have to loop it for some reason, as just one call doesn't seem to take care of it.

Minimal overhead, but it works.