Работа с другим приложением без Hook и DLL на примере GetFocus

Delphi , Программа и Интерфейс , Приложения чужие

Автор: SottNick

На стандартной форме (Form1):

Form1.FormStyle=fsStayOnTop - форма поверх остальных окон

Объекты:

1. ТАЙМЕР (Timer1) с периодом 1000 или меньше,
2. 3 метки (Label1, Label2, Label3). назначение их см. в тексте процедуры
3. У таймера событие OnTimer. а вот для нее обработчик:

procedure TForm1.Timer1Timer(Sender: TObject);
var
  dwTargetOwner: DWORD; //указатель на подключаемый процесс
  dwThreadID: DWORD; //указатель на текущий процесс
  Result: longbool;
begin
  {В первой метке отображается Handle активного окна}
  Label1.Caption := IntToStr(GetForegroundWindow);
    //указатель на подключаемое приложение

  // Подключение потока другого окна
  // Указатель на подключаемый процесс
  dwTargetOwner := GetWindowThreadProcessId(GetForegroundWindow, nil);
  dwThreadID := GetCurrentThreadId(); //указатель на текущий процесс
  if (dwTargetOwner <> dwThreadID) then // если не один и тот же процесс
    Result := AttachThreadInput(dwThreadID, dwTargetOwner, TRUE); //подключение

  {Во второй метке отображается Handle объекта 'в фокусе' в активном окне}
  Label2.Caption := IntToStr(GetFocus); //фокус в другом приложении

  if (Result) then
    AttachThreadInput(dwThreadID, dwTargetOwner, FALSE); //отключение

  {В третей метке отображается Handle объекта 'в фокусе' в активном окне,
  но если это окно другого приложения, то Handle будет равен нулю,
  т.к. попытка получения Handle происходит после отключения потока}
  Label3.Caption := inttostr(GetFocus); //проверка после отключения

  {Эффект можно посмотреть, если запустить полученное приложение
  и сделать активным другое приложение}
  {Ясно, что полученный Handle объекта можно использовать
  по своему разумению. Например, считать из объекта текст и т.п.}

  // (C) SottNick 2000
end;

Это программное обеспечение на Delphi, которое демонстрирует, как работать с другой приложением без использования hook'ов или DLL. Цель этой программы - получить фокус (или handle) активного окна в другом процессе.

Обзор кода:

1. Форма имеет три лейбла: Label1, Label2 и Label3. Эти лейблы отображают handles активных окон.
2. Таймер Timer1 настроен на срабатывание каждые 1000 миллисекунд (или меньше). Когда он срабатывает, он вызывает обработчик события OnTimer.
3. В обработчике события OnTimer программа использует функцию GetForegroundWindow, чтобы получить handle активного окна.
4. Затем она использует функцию GetWindowThreadProcessId, чтобы получить ID потока и ID процесса активного окна.
5. Если ID потока отличается от текущего ID потока (то есть, это другой процесс), программа пытается привязать входной поток с помощью функции AttachThreadInput.
6. После привязки программа использует функцию GetFocus, чтобы получить handle фокусированного окна в активном окне.
7. Программа отображает это handle в лейбле Label2.
8. Если привязка была успешной, программа разрывает привязку входного потока с помощью функции AttachThreadInput с параметром FALSE.
9. Наконец, программа проверяет, остается ли фокус на том же окне, вызывая функцию GetFocus снова и отображая результат в лейбле Label3.

Эффект этой программы можно увидеть, запустив ее и переключая между различными приложениями. Лейблы отображают handles активных окон.

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

В целом, это код демонстрирует, как работать с другими процессами без использования hook'ов или DLL, что может быть полезно для различных приложений, таких как автоматизация, тестирование или мониторинг системы.

В статье описана работа с другим приложением без использования Hook и DLL на примере методов GetFocus и AttachThreadInput, демонстрируя получение handle объекта в фокусе активного окна другого приложения.

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

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

:: Главная :: Приложения чужие ::