Удалить DLL из памяти

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
;

Другое по теме:

• Надо подключить DLL и использовать некоторые ее функции
• DLL - убийственная утилита
• DLL и ресурсы