从内存中卸载DLL

remove a Dll from memory?

function KillDll(aDllName: string): Boolean;

var

 hDLL: THandle;

 aName: array[0..10] of char;

 FoundDLL: Boolean;

begin

 StrPCopy(aName, aDllName);

 FoundDLL := False;

 repeat

   hDLL := GetModuleHandle(aName);

   if hDLL = 0 then

     Break;

   FoundDLL := True;

   FreeLibrary(hDLL);

 until False;

 if FoundDLL then

   MessageDlg('Success!', mtInformation, [mbOK], 0)

 else

   MessageDlg('DLL not found!', mtInformation, [mbOK], 0);

end;