FreeLibrary Function

DLLрд╣рд░реВ рдирд┐рд╖реНрдХрд╛рд╕рди рдЧрд░реНрджрдЫ рдЬреБрди рдирд┐рд╢реНрдЪрд┐рдд рдХрдердирд╣рд░реВрджреНрд╡рд╛рд░рд╛ рд▓реЛрдб рдЧрд░реЗрдХрд╛ рд╣реБрдиреНрдЫрдиреН ред рдпрджрд┐ рдпрд╕рдХреЛ рдкреНрд░рдХрд╛рд░реНрдпрд╣рд░реВрдмрд╛рдЯ рдПрдЙрдЯрд╛ рдмреЛрд▓рд╛рдПрдХреЛ рдЦрдгреНрдбрдорд╛ рдирд┐рд╖реНрдХрд╛рд╕рд┐рдд DLL рд╕реНрд╡рдд:рд░реВрдкрдореИ рд▓реЛрдб рднрдПрдХреЛ рд╣реБрдиреНрдЫ редрдпреЛ рдкрдирд┐ рд╣реЗрд░реНрдиреБрд╣реЛрд╕реН: рдирд┐рд╢реНрдЪрд┐рдд

рд╡рд╛рдХреНрдп рд╕рдВрд░рдЪрдирд╛:


рд╕реНрд╡рддрдиреНрддреНрд░ рд▓рд╛рдЗрдмреНрд░реЗрд░реА (рд╕реНрдЯреНрд░рд┐рдЩрдХреЛ рд░реВрдкрдорд╛ LibName)

рдкрд░рд╛рдорд┐рддрд┐рд╣рд░реВ:

LibName: рд╕реНрдЯреНрд░рд┐рдЩ рдЕрднрд┐рд╡реНрдпрдХреНрддрд┐ рддреНрдпрд▓реЗ DLLрдХреЛ рдирд╛рдо рдирд┐рд░реНрджрд┐рд╖реНрдЯ рдЧрд░реНрджрдЫ ред

рджреНрд░рд╖реНрдЯрд╡реНрдп рдкреНрд░рддрд┐рдорд╛

рд╕реНрд╡рддрдиреНрддреНрд░ рд▓рд╛рдЗрдмреНрд░реЗрд░реАрд▓реЗ 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

Please support us!