Советы по Delphi



             

DLL: убийственная утилита


Вот маленький метод, взятый мною из небольшого проекта, созданного мною для удаления DLL из памяти. На форме присутствует одно поле редактирования TEdit с именем EditDLLName, кнопки Ok и Close. Следующий код выполняется при нажатии на кнопке Ok:

    procedure TForm1.OkBtnClick(Sender: TObject);
var
hDLL        : THandle; aName       : array[0..10] of char; FoundDLL    : Boolean; begin
if
EditDLLName.Text = '' then begin MessageDlg('Сначала вы должны ввести имя выгружаемой DLL!',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('Успешно!',mtInformation,[mbOk],0) else MessageDlg('DLL не найдена!',mtInformation,[mbOk],0); EditDLLName.Text := ''; end;

[001652]




Содержание  Назад  Вперед