ロードDLLのGetModuleHandle/LoadLibraryを経て、ここにFreeLibrary

Question

を使用しては私のコードです：

function GetProcedureAddress(var P: FARPROC; const ModuleName, ProcName: AnsiString): Boolean; 
var 
    ModuleHandle: HMODULE; 
begin 
    Result := False; 
    ModuleHandle := GetModuleHandle(PAnsiChar(AnsiString(ModuleName))); 
    if ModuleHandle = 0 then 
    ModuleHandle := LoadLibrary(PAnsiChar(ModuleName)); // DO WE NEED TO CALL FreeLibrary ? 
    if ModuleHandle <> 0 then 
    begin 
    P := Pointer(GetProcAddress(ModuleHandle, PAnsiChar(ProcName))); 
    if Assigned(P) then 
     Result := True; 
    end; 
end; 

function PathMakeSystemFolder(Path: AnsiString): Boolean; 
var 
    _PathMakeSystemFolderA: function(pszPath: PAnsiChar): BOOL; stdcall; 
begin 
    Result := False; 
    if GetProcedureAddress(@_PathMakeSystemFolderA, 'shlwapi.dll', 'PathMakeSystemFolderA') then 
    Result := _PathMakeSystemFolderA(PChar(Path)); 
end; 

我々はLoadLibraryのを使用している場合にFreeLibraryを呼び出す必要がありますか？またはアプリケーションの終了時に参照カウントが自動的に減少しますか？

Answer 1

hereから引用します。

システムは、ロードされたすべてのモジュールでプロセスごとの参照カウントを維持します。 LoadLibraryを呼び出すと、参照カウントがインクリメントされます。 FreeLibraryまたはFreeLibraryAndExitThread関数を呼び出すと、参照カウントが減少します。モジュールは、参照カウントがゼロになったとき、またはプロセスが終了したときにモジュールをアンロードします（参照カウントに関係なく）。

したがって、基本的にFreeLibraryに電話する必要はありませんが、そうすることを検討する必要があります。私は個人的には、リソースが正しく処理されないときはバグだと思っています。