Delphi Окно Под Курсором

В Delphi есть возможность получить информацию о текущем положении курсора мыши на экране, а также о том, какое окно находится под курсором. Для этого можно воспользоваться функцией GetCursorPos из библиотеки Windows и функцией WindowFromPoint, которая возвращает дескриптор окна по координатам на экране.

Пример кода на Delphi:

var  cursorPos: TPoint;  windowHandle: HWND;  windowCaption: string;begin  // Получаем координаты курсора мыши  GetCursorPos(cursorPos);    // Получаем дескриптор окна по координатам курсора мыши  windowHandle := WindowFromPoint(cursorPos);    // Получаем заголовок окна  SetLength(windowCaption, GetWindowTextLength(windowHandle) + 1);  GetWindowText(windowHandle, PChar(windowCaption), Length(windowCaption));    ShowMessage('Окно "' + windowCaption + '" под курсором мыши.');end;

Этот пример кода получает координаты курсора мыши с помощью функции GetCursorPos, затем получает дескриптор окна, находящегося по этим координатам, с помощью функции WindowFromPoint. Затем он получает заголовок окна с помощью функции GetWindowText и выводит его в сообщении.