[Inkognito]

Суть проблемы в следующем: ловушка на
щелчки мыши, встроенная в тело исполняемой
пр-мы(не dll), полностью перестает
обрабатывать сообщения стоит только
отправить машину в ждущий, спящий режимы.
То есть она просто остается болтаться в
процессах, не выполняя никакой полезной
работы. Ошибка в результате внесенных мною
в код изменений исключается, т.к. пробовал
запускать чистый hook с единственной
сигнализацией в виде диалог. сообщения - итог
тот же. Можно ли исправить это поведение
программы? Если же это принципиально невозможно, то может быть есть способ отслеживать возвращение из спящего, ждущего и прочих режимов и перезапускать процесс самостоятельно(остается надеятся, что это крайний случай). Буду благодарен ответившим.

[NumLock]

ловушка application-defined или library-defined? hMod и dwThreadId какие?

[Inkognito]

Да, ловушка прописана в exe-шнике

[Inkognito]

hMOD и, насколько я могу судить - идентификатор процесса отсутствуют)) Я полный дилетант в библиотеках, собственно, в первый раз за нее и взялся, и почему-то не нашел им места в своем незамысловатом творении.. Так то все работает прекрасно, но лишь до тех пор, пока не машина не уходит в энергосберегающий режим.

[NumLock]

переделай в dll

[Inkognito]

Сообщение от NumLock

переделай в dll

Переделал. Теперь такая оказия:
баги начинают плодиться именно на выгрузке, но с условием, что не было закрыто хотя бы одно из чужих окон, куда был произведен правый щелчок мыши.

Вот, собственно, сам модуль dll. Подсказали, что проблема в финализации, но ума не приложу какая финализация здесь требуется, кроме разве что высвобождения единственного popupmenu..

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76

library lib2; uses   forms,   menus,   windows,   dialogs,   messages,   controls,   Unit1 in 'Unit1.pas' {Form1};     type TFm = class(TForm) procedure x1Click(Sender: TObject); end;     var  pt : TPoint;  theHook : THandle;  fm:TFm;  popupmenu1:tpopupmenu;     procedure TFm.x1Click(Sender: TObject); begin      showmessage('#') end;     procedure DLLProc_(Reason: Integer); var i:integer; begin   if Reason = DLL_PROCESS_DETACH then   {popupmenu1.free} end;     function MouseHook(nCode, wParam, lParam : integer) : Lresult; stdcall; Begin  case wParam of  WM_RBUTTONUP :    begin     popupmenu1 := tpopupmenu.create(application);     with popupmenu1.items do add(newitem('click',0,False,True,fm.x1Click,0,'MenuItem1'));     popupmenu1.popup(mouse.cursorpos.x,mouse.cursorpos.y);    end    else    Result := CallNextHookEx(theHook, nCode, wParam, lParam);  end;   End;     procedure Start; begin  theHook := SetWindowsHookEx(wh_mouse, @mouseHook, hInstance, 0);  if theHook = 0 then    messageBox(0,'Error!','Error!',mb_ok); end;     procedure Remove; begin  UnhookWindowsHookEx(theHook); end;     exports  Start index 1 name 'Start',  Remove index 2 name 'Remove';     begin   DLLProc:= @DLLProc_; end.

[angvelem]

Посмотри, может что и пригодится.

[Inkognito]

angvelem: Это круто, спасибо. Законченная, а главная полезная програмка. Когда то делал для себя что-то подобное, но это
вкуснее будет! Тем не менее, загвоздка, насколько я теперь могу судить, в другом.. А именно в popupmenu. Попробовал подставить вместо него showmessage() и все заработало как надо, никакого каскада багов. Но вот заменять popup на что-то другое не хотелось бы, вроде как на нем все и зыждется.. Пробовал выставлять у него владельцем и application и nil и form1, но исход одинаков - вырубаешь dll раньше обработанных окон и летит все к черту..

[angvelem]

Я бы на твоём месте писал на WinAPI, пробем меньше будет.
По поводу меню:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14

function MouseHook(nCode, wParam, lParam : integer) : Lresult; stdcall; begin   case wParam of   WM_RBUTTONUP :     begin       popupmenu1 := tpopupmenu.create(application);       with popupmenu1.items do         add(newitem('click', 0, False, True, fm.x1Click, 0, 'MenuItem1'));       popupmenu1.popup(mouse.cursorpos.x, mouse.cursorpos.y);     end     else       Result := CallNextHookEx(theHook, nCode, wParam, lParam);   end; end;

идёт постоянное создание нового меню без его последующего уничтожения. Создай его в секции initialization, а в finalization уничтожай.

[Inkognito]

Сообщение от angvelem

Идёт постоянное создание нового меню без его последующего уничтожения. Создай его в секции initialization, а в finalization уничтожай.

Пробовал, бесполезно, не играет роли. Все равно спасибо за участие, а главное программу! ))

[angvelem]

Ну так и перепиши вызов меню на WinAPI, совсе не сложно. Ещё проще, если оно будет создано в ресурсном файле.

[Inkognito]

Придется..