### Отслеживание статуса системного меню в Delphi для анти-кейлоггера

Delphi , Синтаксис , Справочник по API-функциям

Отслеживание статуса системного меню в Delphi для анти-кейлоггера

Вопрос пользователя заключается в необходимости отслеживания статуса системного меню в среде Delphi, чтобы реализовать функциональность анти-кейлоггера, которая будет отправлять "мусор" в текущий активный элемент управления (editcontrol), что предотвратит его чтение кейлоггерами. Проблема заключается в том, что при открытом системном меню editcontrol все еще имеет фокус, и отправка "мусора" может привести к вызову горячих клавиш.

Исходный подход с использованием сообщения WM_INITMENUPOPUP в обработчике TForm1 не подходит, так как требует модификации TForm1, что нежелательно для создания невизуального компонента. Пользователь также пытался использовать функцию TApplication.HookMainWindow(), но сообщение WM_INITMENUPOPUP не отправлялось в функцию-hook.

После долгих исследований пользователь не нашел способа определить открытие и закрытие системного меню. В качестве альтернативного ответа было предложено использовать функцию GetMenuItemRect для получения прямоугольника для элемента 0 системного меню, возвращаемого GetSystemMenu. Предполагается, что если функция возвращает ноль, то системное меню закрыто. Однако, как выяснилось, GetMenuItemRect возвращает не нулевые координаты даже когда системное меню неактивно.

Подтвержденный ответ предлагает использовать функцию SetWindowLongPtr() для перехвата сообщения WM_INITMENUPOPUP. Это позволяет избежать модификации TForm1 и использовать чистое решение на основе Windows API. В этом случае необходимо создать функцию обратного вызова WindowProc, которая будет обрабатывать сообщения. Важно правильно сохранить оригинальный адрес обработчика оконных сообщений и восстановить его при необходимости.

Пользователь успешно реализовал перехват сообщений, используя SetWindowLongPtr(), и теперь может "вставлять" свой обработчик между оригинальными обработчиками сообщений. Важно правильно обработать процесс "отписки" (unregistering), чтобы он происходил в том же порядке, что и процесс "регистрации" (registering), и не был перепутан с другими возможными изменениями.

Также было предложено решение с использованием компонента TFormHook, который позволяет назначить обработчик сообщений для конкретной формы, не изменяя её напрямую. Однако, при использовании нескольких компонентов, необходимо убедиться, что процесс "отписки" происходит в правильном порядке.

Пример кода на Object Pascal (Delphi):

unit FormHook;

interface

uses
  Windows, Classes, SysUtils, Messages, Controls, Forms;

type
  TFormMessageEvent = procedure(var Message: TMessage; var Handled: Boolean) of object;
  TFormHook = class(TComponent)
  private
    FForm: TCustomForm;
    FFormWindowProc: TWndMethod;
    FOnFormMessage: TFormMessageEvent;
  protected
    procedure FormWindowProc(var Message: TMessage); virtual;
  public
    constructor Create(AOwner: TComponent); override;
    destructor Destroy; override;
  published
    property OnFormMessage: TFormMessageEvent read FOnFormMessage write FOnFormMessage;
  end;

procedure Register;

implementation

// Остальная часть реализации компонента TFormHook

end.

Этот компонент можно использовать на форме для перехвата сообщений, например, WM_INITMENUPOPUP:

procedure TForm1.FormHook1FormMessage(var Message: TMessage; var Handled: Boolean);
begin
  case Message.Msg of
    WM_INITMENUPOPUP:
      // Обработка сообщения
  end;
end;

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

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

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

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

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

:: Главная :: Справочник по API-функциям ::