Descarregar DLL da memória..

11/05/2003

4

Ae galera... Eu criei uma dll no delphi, daí eu carrego o programa, mando carregar ela, o problema, é que eu quero que ela descarregue, quando eu fechar um form(que é a única coisa que ela tem), como faço isso?
Valeu.. Falows


Responder

Posts

11/05/2003

Aroldo Zanela

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; 



Responder

11/05/2003

Aroldo Zanela

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; 


FreeLibrary é uma API do Windows (Kernell32.DLL)


Responder