Добавить в системное меню пункт не совего окна

Сейчас на форуме: tyns777, zds, JustLife, 2nd, morgot (+5 невидимых)

Посл.ответ	Сообщение
50Hz_220B_1200W Ранг: 16.9 (новичок) Активность: 0.02↘0 Статус: Участник	Создано: 23 мая 2009 07:07 · Личное сообщение · #1 Вопрос в следующем: как перехватить WM_SYSCommand окна, где был клик мыши есть такой код в либе: Code: Type MouseStruc = ^TMouseStruc; TMouseStruc = packed record PT : TPoint; WND : HWnd; wHitTestCode : UINT; dwExtraInfo : DWORD; End; function LowLevelMouseProc(Code: Integer; wParam: DWORD; lParam: DWORD): Longint; stdcall; begin if (wParam = WM_LBUTTONDOWN) then begin MStruct := Pointer (LParam); if MStruct^.wHitTestCode = 2 Then Begin ... End; end; Хук - WH_MOUSE Но проблема в том, что в MOUSEHOOKSTRUCTюwHitTestCode не приходит HTCAPTION = 2 может есть другой способ добавления в сисменю? Заранее спс 3920_23.05.2009_CRACKLAB.rU.tgz - 0.rar

50Hz_220B_1200W Ранг: 16.9 (новичок) Активность: 0.02↘0 Статус: Участник	Создано: 23 мая 2009 07:23 · Поправил: 50Hz_220B_1200W · Личное сообщение · #2 Нашел на просторах инета : Код: (cpp) HOOKPROC hkprcSysMsg; static HINSTANCE hinstDLL; static HHOOK hhookSysMsg; hinstDLL = LoadLibrary((LPCTSTR) "c:\windows\sysmsg.dll"); hkprcSysMsg = (HOOKPROC)GetProcAddress(hinstDLL, "SysMessageProc"); hhookSysMsg = SetWindowsHookEx(WH_GETMESSAGE,hkprcSysMsg,hinstDLL,0); Этот хук надо ставить надо на WH_GETMESSAGE, DLL можно и не загружать если в небольшой программке сделать все сегменты FIXED через def-файл, и там не нужно будет вызывать даже MakeProcInstance - всё будет и так работать. как заюзать не знаю.
50Hz_220B_1200W Ранг: 16.9 (новичок) Активность: 0.02↘0 Статус: Участник	Создано: 06 июня 2009 16:51 · Поправил: 50Hz_220B_1200W · Личное сообщение · #3 Хун на WH_CBT Добавляю в системное меню пункт : AppendMenu (HM, MF_STRING, 99, 'MyMenu'); в ДЛЛ: Code: function MyProc (Code: Integer; wParam: DWORD; LParam : DWORD): Longint; stdcall; ... If Code = HCBT_Syscommand Then If LoWord (WParam) = 99 Then Begin ... Result := 0; .. End Else Result := CallNextHookEx(Hook, Code, wParam, LParam); проблема в том, что на LoWord (WParam) не приходит "99" при выборе моего пункта меню, подскажите плз, где ошибся?
klam Ранг: 14.2 (новичок), 6thx Активность: 0.01↘0 Статус: Участник	Создано: 06 июня 2009 19:08 · Личное сообщение · #4 Попробуй так: if Message.CmdType = 99 then showmessage('');

Для печати