"Оптимизация добавления элементов в оконное окно другого приложения в Delphi/Pascal: альтернативы ресурсоемкому методу"

Delphi , Программа и Интерфейс , Модальные формы

Оптимизация добавления элементов в оконное окно другого приложения в Delphi/Pascal: альтернативы ресурсоемкому методу

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

В данной статье мы рассмотрим альтернативные способы добавления элементов в оконные окна других приложений в Delphi/Pascal, которые менее ресурсоемкие, чем метод с таймером и findwindow.

Почему метод с таймером и findwindow может быть ресурсоемким?

Метод, который использует таймер и findwindow для поиска окна, может быть ресурсоемким из-за частого вызова функции findwindow. Каждый раз, когда таймер срабатывает, приложение должно просматривать все оконные окна системы, чтобы найти нужное окно. Это может привести к значительному увеличению нагрузки на процессор и замедлению работы системы.

Альтернативы ресурсоемкому методу

Существует несколько альтернативных способов добавления элементов в оконные окна других приложений в Delphi/Pascal, которые менее ресурсоемкие, чем метод с таймером и findwindow.

1. Использование глобального CBT хука

CBT ( Cascade Control Handler ) - это механизм, который позволяет перехватить сообщения, отправленные в оконные окна. Используя глобальный CBT хук, можно перехватить сообщения, отправленные в нужное окно, и добавить элементы в него.

Однако, использование CBT хука может быть сложным и проблематичным. Кроме того, оно также может быть ресурсоемким, поскольку приложение должно обрабатывать все сообщения, отправленные в оконные окна системы.

1. Использование DLL инъекции

DLL инъекция - это метод, который позволяет встраивать динамическую библиотеку (DLL) в другой процесс. Приложение может создать DLL, которая содержит код для добавления элементов в нужное окно, и затем вставить эту DLL в другой процесс.

DLL инъекция является более надежным и менее ресурсоемким методом, чем использование таймера и findwindow. Однако, он также может быть сложным в реализации и может вызвать проблемы совместимости с другими приложениями.

Пример кода для DLL инъекции в Delphi/Pascal

Ниже приведен пример кода для DLL инъекции в Delphi/Pascal. Этот пример демонстрирует, как создать DLL, которая добавляет кнопку в оконное окно другого приложения, и как вставить эту DLL в другой процесс.

dll_inj.pas:

library dll_inj;

uses
  ShareMem,
  System.SysUtils,
  System.Classes, Vcl.Dialogs,
  windows, messages;

{$R *.res}

var
  hWndMain, hDemoButton, hNewButton, hWndEnter: THandle;
  OldWndProc: TFarProc;
  hBtnFont: hFont;
  Times: integer;
  dwThreadId: DWORD;

function NewWndProc(hWnd: hWnd; Msg: UINT; wParam: wParam; lParam: lParam)
  : Longint; stdcall;
begin
  if Times = 0 then
  begin
    Times := Times + 1;
    hWndMain := FindWindowEx(0, 0, 'TForm1', 'Injection test');
    if hWndMain = 0 then
      OutputDebugString('hWndMain is 0!')

    hNewButton := CreateWindow('button', 'NewBtn', WS_CHILD or WS_VISIBLE, 20,
      20, 100, 24, hWndMain, 2000, GetWindowLong(hWndMain, GWL_HINSTANCE), nil);
    if hNewButton = 0 then
      OutputDebugString('CreateWindow failed!')
    else
    begin
      hWndEnter := FindWindowEx(hWndMain, 0, 'TBitBtn', 'Enter');
      if hWndEnter <> 0 then
        hBtnFont := SendMessage(hWndEnter, WM_GETFONT, 0, 0);
      if hBtnFont <> 0 then
        SendMessage(hNewButton, WM_SETFONT, hBtnFont, 1);
    end;

    hDemoButton := FindWindowEx(hWndMain, 0, 'TButton', 'Demo');
    if hDemoButton <> 0 then
    begin
      if not EnableWindow(hDemoButton, true) then
        OutputDebugString('EnableWindow failed!')
    end
    else
      OutputDebugString('hDemoButton is 0!')

    hEdit := FindWindowEx(hWndMain, 0, 'TEdit', 'Serial');
    if hEdit = 0 then
      OutputDebugString('hEdit is 0!')
    else if not SetWindowText(hEdit, 'You have been hacked') then
      OutputDebugString('SetWindowText failed!')
  end;

  case Msg of
    WM_COMMAND:
      if (hNewButton <> 0) and (DWORD(lParam) = hNewButton) then
        MessageBox(HWND_DESKTOP, 'You pressed a new button!', 'Yay!', MB_OK)
      else if (hWndEnter <> 0) and (DWORD(lParam) = hWndEnter) then
      begin
        MessageBox(HWND_DESKTOP, 'This message is not default anymore!', 'Override!', MB_OK);
        Exit(0); // Suppress default event completely
      end;
  end;
  Result := CallWindowProc(OldWndProc, hWnd, Msg, wParam, lParam);
end;

procedure EntryPoint(Reason: integer);
begin
  hWndMain := FindWindowEx(0, 0, 'TForm1', 'Injection test');
  if hWndMain = 0 then
  begin
    OutputDebugString('hWndMain is 0!');
    Exit;
  end;

  OldWndProc := TFarProc(SetWindowLong(hWndMain, GWL_WNDPROC,

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

В данном контексте рассматриваются альтернативные способы оптимизированного добавления элементов в оконное окно другого приложения в Delphi/Pascal, которые менее ресурсоемкие, чем метод с таймером и findwindow.

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

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

:: Главная :: Модальные формы ::