Form1.FormStyle=fsStayOnTop - форма поверх остальных окон
Объекты:
ТАЙМЕР (Timer1) с периодом 1000 или меньше,
3 метки (Label1, Label2, Label3). назначение их см. в тексте процедуры
У таймера событие 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 2000end;
Статья Работа с другим приложением без Hook и DLL на примере GetFocus раздела Программа и Интерфейс Приложения чужие может быть полезна для разработчиков на Delphi и FreePascal.
Комментарии и вопросы
Материалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.