Descarregar DLL da memória..

Delphi

11/05/2003

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


Petrified Eyes

Petrified Eyes

Curtidas 0

Respostas

Aroldo Zanela

Aroldo Zanela

11/05/2003

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;



GOSTEI 0
Aroldo Zanela

Aroldo Zanela

11/05/2003

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)


GOSTEI 0
POSTAR