Подскажите пжалуста, как выгрузить библиотечку с хуком, выхожу из вызвавшей DLL проги - библиотека не выгружается. Висит в памяти до перезагрузки! Мож кто сталкивался с такой проблемой - помогите.

У меня все выгружалось, кинь код на форум, посмотрим

ты хук отцепляеш?

Цитата(ScrewDriver @ 6.1.2005, 15:13)

Висит в памяти до перезагрузки!

Мне кажется такого быть не может.

почему не может?
у меня такое было

Если хук остановить, то дэ-эл-эл"ка висит в памяти еще некоторое время... Например, нельзя заново ее скомпилить... Этот вопрос меня тоже волнует. (Надеюсь никто не в обиде из модеров что не создал новую тему...) Но вот чтобы до перезагрузки... Нет так не бывает...

почему не бывает? библиотека висит пока хук висит, а хук висит пока его не снимут. а если не снимают -- то как раз до перезагрузки библиотека висеть и будет

Повторяюсь:

Цитата

Если хук остановить, то дэ-эл-эл"ка висит в памяти еще некоторое время...

И все-таки. Мне порой приходилось очень долго ждать прежде чем перекомпилть дллку... А это убивает время на тестинг... Кто знает выход?

Цитата(_hunter @ 6.1.2005, 16:52)

почему не может? у меня такое было

Интересный касяк. А при этом dll работала? (ну в смысле выполняла свои обязанности),
или просто как мусор в памяти осталась? и ещё это в XP?



Вот у меня тут предположение появилось из-за чего длл себя неправильно ведёт.
Быть может это связанно с использованием WaitForSingleObject

Леша, еще ра з повторюсь: а хук отцепил?

RAdmin, что значит работала? функции из нее нормально экспортировались; просто с отцеплением косяки были ( как раз из-за оставленного хука )

library ms;

uses
WinTypes, WinProcs, Messages;


var
SaveExitProc : Pointer;
HookHandle : hHook;

function MH(Code: integer; wParam: word; lParam: Longint): Longint; export; stdcall;
var
tl : ^MSG;
begin

if Code >= 0 then
begin
tl := Pointer(lParam);

...
...
...

Result:=0;
end
else
Result := CallNextHookEx(HookHandle,Code, wParam, lParam);

end;

procedure LocalExitProc;
begin
if HookHandle<>0 then
begin
UnhookWindowsHookEx(HookHandle);
ExitProc := SaveExitProc;
end;
end;

exports
MH;

begin

HookHandle := SetWindowsHookEx(WH_GETMESSAGE, @MH, hInstance, 0);
if HookHandle = 0 then
MessageBox(0, 'Unable to set hook!', 'Error', mb_Ok)
else begin
SaveExitProc := ExitProc;
ExitProc := @LocalExitProc;
end;

end.


Вот моя либа :-)
Вродь все отцепил...
Да, вот еще, как я понимаю, библиотека должна загружаться по первому вызову импортируемой функции (У мя просто - pointer := @MH) но она загружается когда ГРУЗИТСЯ проект или УСТАНАВЛИВАЕТСЯ (install) NT сервис, если она из сервиса вызывается ессна.

как бороться???

у мя WinXP Delphi6,7

висит я соврал - не до перезагрузки - до перелогинения (но не всегда иногда, редко, все-тки до перезагрузки - но енто имхо просто системный глюк).
Я даж делфю перезапускал - не помогает.

висит я соврал - не до перезагрузки - до перелогинения (но не всегда иногда, редко, все-тки до перезагрузки - но енто имхо просто системный глюк).
Я даж делфю перезапускал - не помогает.

Под Вашим, _hunter, "отцепил", я и имею в виду остановил... Или я уж совсем корявый термин использую, или Вы невнимательны.

И все же вопрос в силе?!

понятно...

тогда еще вопрос: второй раз DllMain вызывается?