[TRUCO DELPHI] Sacar de Memoria una DLL.
delphi
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('Bien!', mtInformation, [mbOK], 0) else MessageDlg('DLL no encontrada!', mtInformation, [mbOK], 0); end;
Saludos!