"Завершение цикла сообщений при завершении потока в Delphi с помощью SetWindowsHookEx"

Delphi , Синтаксис , Циклы

Завершение цикла сообщений при завершении потока в Delphi с помощью SetWindowsHookEx

При работе с потоками в Delphi может возникнуть необходимость завершить цикл сообщений потока при его завершении. Одной из ситуаций, когда это может понадобиться, является использование API SetWindowsHookEx для перехвата событий ввода. В данной статье мы рассмотрим, как правильно завершить цикл сообщений потока при использовании SetWindowsHookEx.

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

type
  TKeyboardHookThread = class(TThread)
  private
    class var
      FCreated                 : Boolean;
      FKeyReceiverWindowHandle : HWND;
      FMessage                 : Cardinal;
      FHiddenWindow            : TForm;
  public
    constructor Create(AKeyReceiverWindowHandle: HWND; AMessage: Cardinal);
    destructor Destroy; override;
    procedure Execute; override;
  end;

function HookProc(nCode: Integer; wParam: WPARAM; lParam: LPARAM): LRESULT; stdcall;
var
  S: KBDLLHOOKSTRUCT;
begin
  if nCode < 0 then begin
    Result := CallNextHookEx(0, nCode, wParam, lParam)
  end else begin
    S := PKBDLLHOOKSTRUCT(lParam)^;
    PostMessage(TKeyboardHookThread.FKeyReceiverWindowHandle, TKeyboardHookThread.FMessage, S.vkCode, 0);
    Result := CallNextHookEx(0, nCode, wParam, lParam);
  end;
end;

constructor TKeyboardHookThread.Create(AKeyReceiverWindowHandle: HWND; AMessage: Cardinal);
begin
  if TKeyboardHookThread.FCreated then begin
    raise Exception.Create('Only one keyboard hook supported');
  end;
  inherited Create('KeyboardHook', True);
  FKeyReceiverWindowHandle     := AKeyReceiverWindowHandle;
  FMessage                     := AMessage;
  TKeyboardHookThread.FCreated := True;
end;

destructor TKeyboardHookThread.Destroy;
begin
  PostMessage(FHiddenWindow.Handle, WM_QUIT, 0, 0);
  inherited;
end;

procedure TKeyboardHookThread.Execute;
var
  m: tagMSG;
  hook: HHOOK;
begin
  hook := SetWindowsHookEx(WH_KEYBOARD_LL, @HookProc, HInstance, 0);
  try
    FHiddenWindow := TForm.Create(nil);
    try
      while GetMessage(m, 0, 0, 0) do begin
        TranslateMessage(m);
        DispatchMessage(m);
      end;
    finally
      FHiddenWindow.Free;
    end;
  finally
    UnhookWindowsHookEx(hook);
  end;
end;

При завершении потока мы хотим, чтобы цикл сообщений завершился и поток мог быть корректно освобожден. Для этого мы можем использовать функцию PostMessage для отправки сообщения WM_QUIT в очередь сообщений потока.WM_QUIT — это специальное сообщение, которое указывает оконной процедуре, что приложение завершается.

В нашем случае мы можем отправить это сообщение из destruстора потока, как показано в коде выше. Однако, если мы пытаемся отправить сообщение WM_QUIT в очередь сообщений потока, используя handle формы, созданной в потоке, это не сработает. Дело в том, что форма не принадлежит потоку и не может отправлять сообщения в его очередь.

Чтобы исправить это, мы можем использовать функцию PostThreadMessage, которая отправляет сообщение в очередь сообщений указанного потока. Для этого нам нужно знать идентификатор потока (ThreadId). Мы можем получить его, вызвав функцию GetCurrentThreadId из нашего потока. Затем мы можем отправить сообщение WM_QUIT в очередь сообщений нашего потока, используя PostThreadMessage, как показано в следующем коде:

procedure TKeyboardHookThread.Execute;
var
  m: tagMSG;
  hook: HHOOK;
begin
  hook := SetWindowsHookEx(WH_KEYBOARD_LL, @HookProc, HInstance, 0);
  try
    while GetMessage(m, 0, 0, 0) do begin
      TranslateMessage(m);
      DispatchMessage(m);
    end;
  finally
    UnhookWindowsHookEx(hook);
  end;
end;

destructor TKeyboardHookThread.Destroy;
begin
  PostThreadMessage(GetCurrentThreadId, WM_QUIT, 0, 0);
  inherited;
end;

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

В заключение, при работе с потоками в Delphi важно правильно завершать циклы сообщений потока при его завершении. В данной статье мы рассмотрели, как это сделать при использовании SetWindowsHookEx. Используя PostThreadMessage и WM_QUIT, мы можем гарантировать, что цикл сообщений завершится и поток будет корректно освобожден.

Создано по материалам из источника по ссылке.

Данный контекст описывает процесс завершения цикла сообщений потока в Delphi при использовании функции SetWindowsHookEx для перехвата событий ввода, а также предоставляет решение для корректного завершения потока.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: Циклы ::