Mega Code Archive
Yüklenmis dll dosyalarinin hafizadan atilmasi
<![CDATA[
Kullanilmayan DLL'lerin hafizada bosuna yer isgal etmemesi icin hafizadan atilmasi gerekebilir. Asagidaki kod örneginde bu islemin yapilmasi gösterilmektedir. EditDLLName isimli 1 Tedit, 1 Tamam ve 1 adet de Kapat butonu form üzerine yerlestirilmistir. Tamam butonunun OnClick davranisina yazilan kod asagidadir.
procedure TForm1.TamamBtnClick(Sender: TObject); var hDLL: THandle;
aName : array[0..10] of char;
FoundDLL : Boolean;
begin
if EditDLLName.Text = '' then
begin
MessageDlg('Cikarilacak DLL dosyasinin adini yaziniz.!',mtInformation,[mbOk],0);
exit;
end;
StrPCopy(aName, EditDLLName.Text);
FoundDLL := false;
repeat
hDLL := GetModuleHandle(aName);
if hDLL = 0 then
break;
FoundDLL := true;
FreeLibrary(hDLL);
until false;
if FoundDLL then
MessageDlg('Tamam!',mtInformation,[mbOk],0)
else
MessageDlg('DLL Bulunamadi!',mtInformation,[mbOk],0);
EditDLLName.Text := '';
end;
]]>