如何从内存中卸载DLL

时间:2010-01-27 09:04:14  来源:第二电脑网  作者:第二电脑网

  第二电脑网导读:= False;  repeat  hDLL := GetModuleHandle(aName);  if hDLL = 0 then  Break;  FoundDLL := True;  FreeLibrary(hDLL);  until False;    if FoundDLL then  MessageDlg('Success!', mtInformation, [mbOK], 0)
  正文:

代码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》由第二电脑网原创提供,转载请注明:http://www.002pc.com/master/College/Language/Delphi/2010-01-27/12456.html


关键字:

关于《如何从内存中卸载DLL》文章的评论

站内搜索: 高级搜索

热门搜索: Windows style 系统 tr IP QQ CPU 安装 function 注册 if td