Ошибка при работе с хуками (WH_CALLWNDPROCRET)

[Sibedir]

Не я его создал, а поток. Например ShowMessage.

[Filka]

Может, угадал:

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    //...
  private
    procedure WMSnap(var Msg: TMessage); message WM_USER + 1;
    //...
  end;
//...
implementation
//...
var
  Hook: HHOOK;

function SnapToDefaultButton: Boolean;
var
  Snap: BOOL;
begin
  Snap := False;
  Result := SystemParametersInfo(SPI_GETSNAPTODEFBUTTON, 0, @Snap, 0) and Snap;
end;

procedure SnapTo(Wnd: HWND);
var
  R: TRect;
  Pt: TPoint;
begin
  if GetWindowRect(Wnd, R) then
  begin
    Pt.X := R.Left;
    Pt.Y := R.Top;
    Inc(Pt.X, (R.Right - R.Left) div 2);
    Inc(Pt.Y, (R.Bottom - R.Top) div 2);
    SetCursorPos(Pt.X, Pt.Y);
  end;
end;

function CBTProc(nCode: Integer; wParam: WPARAM; lParam: LPARAM): LRESULT; stdcall;
begin
  if nCode < 0 then
  begin
    Result := CallNextHookEx(Hook, nCode, wParam, lParam);
    Exit;
  end;

  case nCode of
    HCBT_ACTIVATE:
      PostMessage(Form1.Handle, WM_USER + 1, 0, 0);
  end;

  Result := CallNextHookEx(Hook, nCode, wParam, lParam);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Hook := SetWindowsHookEx(WH_CBT, @CBTProc, 0, GetCurrentThreadId);
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  UnhookWindowsHookEx(Hook);
end;

procedure TForm1.WMSnap(var Msg: TMessage);
var
  Buf: array[0..MAX_PATH - 1] of Char;
  H: HWND;
begin
  H := GetFocus;
  if H <> 0 then
    if GetClassName(H, Buf, Length(Buf)) <> 0 then
      if (Buf = 'TButton') {and SnapToDefaultButton} then
        SnapTo(H);
end;

[Filka]

Не угадал?

[Sibedir]

Конечно угадал, Filka
Это всё замечательно. Но я хочу доламать свой комп... допилить свой код, чтобы это и в диалоговых окнах работало.
Я эту тему потому и забросил, что теперь мне нужен будет глобальный хук. Или я опять не прав?

--------------------------------------------------------
А. Вот, кстати, вдруг кто-нибудь тоже фигнёй помаяться захочет
LocalHook.zip

Ну самое полезное там это

function GetMessageName (aMessageID: UINT   ): TWM_Name;

[Filka]

чтобы это и в диалоговых окнах работало

Каких именно?

function GetMessageName (aMessageID: UINT): TWM_Name;

Вот ещё: http://blog.dummzeuch.de/2014/08/24/...es-to-strings/
Есть ещё функция RegisterWindowMessage. А с помощью функции GetClipboardFormatName можно узнать имена зарегистрированных сообщений:

procedure EnumMsgs(Lines: TStrings);
var
  Buf: array[Byte] of Char;
  I: Integer;
begin
  if Assigned(Lines) then
  begin
    Lines.BeginUpdate;
    try
      Lines.Clear;
      for I := $C000 to $FFFF do
        if GetClipboardFormatName(I, Buf, Length(Buf)) > 0 then
          Lines.Add(Format('%x = %s', [I, Buf]));
    finally
      Lines.EndUpdate;
    end;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Memo1.ScrollBars := ssBoth;
  EnumMsgs(Memo1.Lines);
  Caption := IntToStr(Memo1.Lines.Count);
end;

[Sibedir]

За GetClipboardFormatName отдельное спасибо. Я бы ни за что не догадался. Надо внимательнее читать коменты. Задолбался с переводчиками по msdn лазить.

Так это чё, недокументированная особенность?
Так изначально было задумано? Или это они просто для передачи сообщений тот же механизм выделения буферов используют что и для Ctrl+C/Ctrl+V (ну или наоборот)? Я думал для Clipboard отдельный API-функционал есть. Я понимаю, что в WindowsOS всё на сообщениях основывается. Но не понятно тогда, если для Clipboard нужен механизм сообщений, то почему для механизма сообщений нужен Clipboard? Или это просто они оба используют специальный обособленный механизм для регистрации/нумерации имён/строк (типа одна и та же функция под разными именами раздаётся)? Или это только для пользовательских сообщений? (ведь системные они или чётко определены или используются в строго заданном контексте).

// ----------------------------------------------------------

Почти конец истории