Delphi7。どのように再起動せずにDLLをアンロードするには？

Question

私はアプリケーションを再起動せずに私のdllを置き換える必要がありますが、FreeLibraryの後もまだ使用されており、削除することはできません。

助けてください。

//... 
function MyFunc(): PChar; stdcall; external 'MyDll.dll'; 

implementation 

//... 

hDLL := LoadLibrary('MyLib.dll'); 
if hDLL = 0 then 
    Begin 
    LogError('Can''t load MyLib.dll!'); 
    exit; 
    end; 

try 
    MyFunc(); 
finally 
    FreeLibrary(hDLL); 
end; 

if not DeleteFile('MyLib.dll') then 
    LogError('Can''t delete MyLib.dll!'); 

Answer 1

まず、よくある間違いを解消しましょう。あなたは書く：

if hDLL < 32 then 

これは、DLLをロードする際の障害のためにテストする方法ないです。 LoadLibraryのドキュメントで非常に明確に述べられているように、エラーは戻り値NULLで示されます。デルファイの用語では0です。限りLoadLibraryへの各呼び出しがFreeLibraryに一致する呼び出しと対になっているとして、ファイルを削除することが可能であり、それを超えて

if hDLL = 0 then 

：だからとそのテストを交換する必要があります。

だから、何かがあなたの削除を止めています。たとえば、次のようになります。

• このDLLは、ユーザーが削除する権限がないディレクトリにあります。
• 別のプロセスがDLLをロードしました。
• あなたのプロセスは何らかの手段でDLLをロードしているため、依然として参照が保持されています。
• DLLが現在の作業ディレクトリにありません。相対パスを使用したため、DLLのロード時にDLL検索パスが使用されますが、削除しようとすると作業ディレクトリが使用されます。これらは一致しないかもしれません。

このリストは網羅的ではありません。

ここでいくつかのデバッグを行う必要があります。 DeleteFileへの呼び出しが失敗する状況に直面しています。だから、なぜシステムに尋ねる。

if not DeleteFile('MyLib.dll') then 
    LogError(Format('Can''t delete MyLib.dll, error code = %d', [GetLastError]));