Handle чужего окна [D7, WinXP]
Dima K © (2006-09-21 10:49:00)
Подскажите пожалуйста, как получить handle edit поля, кот.
находится в окне чужего приложения. Заранее спасибо!!!
Весь в делах (2006-09-21 10:52:00) [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);
Наверх 
ЧАТ |
Орешник |
|
