Как выгрузить 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;

Взято с сайта http://www.swissdelphicenter.ch/en/tipsindex.php

Отправить комментарий

Проверка
Антиспам проверка
Image CAPTCHA
...