Handle чужего окна

← →
Dima K (2006-09-21 10:49) [0]

Подскажите пожалуйста, как получить handle edit поля, кот. находится в окне чужего приложения. Заранее спасибо!!!

← →
Весь в делах (2006-09-21 10:52) [1]

var
WindowText: array[0..255] of char; {символьный массив для хранения текста,
связянного с окном}
TheWindow: HWND; {содержит дескриптор окна}
pt: TPoint; {переменная для хранения текущих координат указателя мыши}

begin
{определяем координаты указателя мыши}
pt := Mouse.CursorPos;
//pt.Y := y;
{вычисляем дескриптор окна формы,
в область которого попадают координаты указателя мыши}
TheWindow := WindowFromPoint(pt);
{получаем текст, связянный с окном}
If (GetWindowText(TheWindow, WindowText, 255))<>0 then begin
{...и показываем этот текст}
Edit1.Text := WindowText ;
Edit2.Text := IntToStr(TheWindow)
end
else begin
Edit1.Text := "Данное окно не имеет описания";
Edit2.Text := IntToStr(TheWindow);

Handle чужего окна Найти похожие ветки