WH_CALLWNDPROCRET hook

quasiceo 2015-04-03

展开全文

Суть вопроса: хотелось бы рисовать на канве заголовков (Caption) всех окон (своих и чужих) винды (хотябы родительских окон) некую графику - картинку.

Как хочу реализовать: в длл реализовать функцию отлова сообщения WM_PAINT и поставить SetWindowsHookEx() хук на это сообщение. Есс-но реализовать функцию рисования картинки по этому сообщению, после пропускания его через стандартную процедуру - тоесть сначала позволить отрисоваться компонентам, а по верх уже рисовать картинку.

основные вопросы с этим связанные:
1. Как ловить WM_PAINT, направить в стандартную процедуру обработки сообщения, после чего рисовать картинку.
2. Как пропускать все остальные сообщения? - пожалуй самое важное

3. Как получать либо дескриптор окна вызовавшего WM_PAINT либо HDC на канву заголовка, вызвавшего WM_PAINT?
4. Как со всем с этим связан WH_CALLWNDPROCRET (или WH_JOURNALRECORDPROC)?

Спасибо

11.07.2008, 02:11

notricky

Прохожий

Регистрация: 09.07.2008

Сообщения: 13

Репутация: 10

Код:

library HookDll;
uses
  SysUtils,dialogs, Windows, Messages, Graphics, Classes;
var
  TheHook: HHook = 0;

function WMPaintHook(Code:Integer; WParam:LongInt; LParam:LongInt):LongInt; stdcall;
var
  C: TCanvas;
  wnd: HWND;
  t: array[0..255] of char;
  s: string;
begin
  if (Code < 0) then
  begin
    Result := CallNextHookEx(TheHook,Code,WParam,LParam);
    exit;
  end
  else
    if TMsg(Pointer(LParam)^).Message = WM_PAINT then
    begin
      WND := TMsg(Pointer(LParam)^).hwnd;
      if WND <> 0 then
      begin
        ShowMessage('??òü ê?íòàêò');
        //
      end;
    end;
  Result := CallNextHookEx(theHook, Code, wParam, lParam);
end;

Procedure SetHook(SetupHook: boolean); stdcall;
begin
  if SetupHook then
    TheHook := SetWindowsHookEx(WH_CALLWNDPROCRET,@WMPaintHook,HInstance,0)
  else
    UnhookWindowsHookEx(TheHook);
end;

exports
  SetHook index 1 name 'SetHook';

{$R *.res}

begin

end.

Такой вот получился код. Только как теперь по полученному WND найти дескриптор главного окна, чтобы потом найти заголовок (Caption)?