模块
目录
索引 🔎︎

# FreeLibrary 函数

释放由 Declare 语句加载的 DLL。如果再次调用已释放 DLL 中的某个函数，则该 DLL 会自动重新加载。请参阅: Declare

## 语法:

    FreeLibrary (LibName As String)

## 参数:

「LibName」: 用于指定 DLL 名称的字符串表达式。

FreeLibrary 只能释放在 Basic 运行时装入的 DLL。

## 错误代码:

5 无效的过程调用

## 示例:

    Declare Sub MyMessageBeep Lib "user32.dll" Alias "MessageBeep" ( Long )

    Sub ExampleDeclare

    Dim lValue As Long

        lValue = 5000

        MyMessageBeep( lValue )

        FreeLibrary("user32.dll" )

    End Sub