Есть dll для внедрения в уже работающий процесс, которая что-то делает, а затем самостоятельно себя выгружает. Всё это происходит на самом этапе внедрения (при DLL_PROCESS_ATTACH
).
library Test;
uses Winapi.Windows;
procedure DllMain(Reason: integer);
begin
if Reason = DLL_PROCESS_ATTACH then
begin
// что-то делаем
FreeLibraryAndExitThread(HInstance, 0); // выгружаемся
end;
end;
begin
DllProc := @DllMain;
DllMain(DLL_PROCESS_ATTACH);
end.
Вероятно, при выгрузке происходит какая-то блокировка, в результате которой иногда процесс наглухо зависает. Иногда этого не происходит, но корректно закрыть процесс после этого всё равно не получается.
Пример:
1) Запускам, скажем, калькулятор
2) Внедряем в него эту dll (Process Hacker'ом, например)
Дальше я смог поймать три типа поведения процесса:
а) Он намертво зависает
б) Перестаёт реагировать на закрытие крестиком
в) При закрытии основного окна остаётся висеть в списке процессов.
Несмотря на то, что dll себя удачно выгружает и даже завершает свой поток — она что-то портит в процессе.
Если убрать из кода выгрузку, и делать её отдельно — всё работает как надо.
Вопрос: как избавиться от такого поведения с сохранением функциональности по самостоятельной выгрузке dll?
UPD1: Если заменить FreeLibraryAndExitThread
на FreeLibrary
всё становиться ещё хуже: процесс тут же падает с ошибкой BEX64
.
FreeLibraryAndExitThread
?