For Example:<br><br>xDLL : THandle; <br>xName : char;<br>FreeDLL : Boolean; <br><br>...<br>FreeDLL := false; <br>repeat <br>xDLL := GetModuleHandle(xName); <br>if xDLL = 0 then break; <br>FreeDLL := true; <br>FreeLibrary(xDLL); <br>until false; <br>if FreeDLL then <br>MessageDlg('Free DLL!',mtInformation,[mbOk],0)<br>...