Программа МсLаud.ехе вызвала неустранимую ошибку в модуле kukushkа.dll при обращении к системному таймеру: Stасk Оvеrflоw. Кukushkа.dll будет закрыта. При повторном появлении ошибки обратитесь к разработчику МсLаud.ехе.
Вот маленький метод, взятый мною из небольшого проекта,
созданного мною для удаления DLL из памяти. На форме присутствует одно поле
редактирования TEdit с именем EditDLLName, кнопки Ok и Close. Следующий код
выполняется при нажатии на кнопке Ok:
procedure TForm1.OkBtnClick(Sender: TObject);
var
hDLL: THandle;
aName: array[0..10] of char;
FoundDLL: Boolean;
beginif EditDLLName.Text = '' thenbegin
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);
untilfalse;
if FoundDLL then
MessageDlg('Успешно!', mtInformation, [mbOk], 0)
else
MessageDlg('DLL не найдена!', mtInformation, [mbOk], 0);
EditDLLName.Text := '';
end;
Статья DLL - убийственная утилита раздела Файловая система DLL и PlugIns может быть полезна для разработчиков на Delphi и FreePascal.
