...remove a Dll from memory?

Author: Michael Wiren

Category: System

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;

 

printed from
www.swissdelphicenter.ch
developers knowledge base