Перехват данных с формы

[brato4karik]

Добрый день всем кто сдель есть, имееться приложение написанное на дельфи, необходимо перехватывать данные с его формы, приложение всегда запущенно одно и всегдна оно активно, помогите кодом или советом

[Stilet]

А что за данные?

[brato4karik]

значит так на форме имееться многострочное поле вывода незнаю точно толи Memo толи какой то list его класс подмсмотрю в случеае Spy++ но будем считать что это мемо, итак я могу выкхатить адрес активного окна, как мне получить адрес этого элемента (оно же вроде считаеться как дочернее окно) и снять текст который в нем постоянно добовляеться это поле лога работы фасовочного аппарата в нем постоянно добавялеться строка с данными какой фасовщик и скока насыпал, например
1 40,1
2 41,2
3 41,1
2 41,9
1 40,3
2 29,6
1 40,1
3 40,2
2 41,2

[Stilet]

как мне получить адрес этого элемента

FindWindowEx(Окно,0,Типполя,nil);
Даст тее хендл если правильно параметры дашь.

[brato4karik]

Ок получил хендл, параметр Окно - окно родитель?

предполжим я имею хендл элемента что дальше ?

[Stilet]

Дальше посылаешь соответствующее сообщение, которое окно обработает.
Для этого нужно знать на какие сообщения окно отреагирует так как тее нужно.
Если это стандартные сообщения то смотри в MSDN что-то наподобие EM_GETLINE
Иначе... Иначе дело дрянь...

[brato4karik]

так вроде стало понятней,
у меня будет h хендл окна (элемента), какой функцией востользоваться что бы послать сообщение что бы получить текст строки, вот Spy++ вернул вот что когда я подсветил нужное мне окно
message: em_replacesel
wParam 000000
lParam 00D90741(pointer to string)
"123 123 33"
вот в кавычках те данные которые на экране выводяться

[BOBAH13]

var buf: array[0..256] of WCHAR;
begin
  SendMessage(h, em_replacesel, 0, (LPARAM)@buf);

Ну тут несколько моментов, определится нужен ли WCHAR или CHAR хватит, и что-такое em_replacesel найти его числовое значение.
p.s. вроде не напутал с lparam и wparam

[brato4karik]

Ок ща попробую нет не напутал переписал с монитора точно lparam

ну вот мой кусок кода чето не работает помогите плиз все виснет но компилиться

procedure Tfff.FindAndDestroyButtonClick(Sender: TObject);
var
 h:HWnd;
 l:Hwnd;
 m:TMsg;
 r:TRect;
 buf: array[0..256] of WCHAR;
begin
 h := FindWindow(nil,'Form1');
 Label1.Caption := inttostr(h);
 l := GetWindow(h,gw_Child);
 Label2.Caption := inttostr(l);
 if h=0 then exit;
 //SendMessage(h, WM_DESTROY, 0,0);
 //GetMessage(m,l,0,0);
 //GetMessage(m,l,EM_REPLACESEL,0);
 
  SendMessage(l, lb_GetItemRect, 0, lparam(@buf));
  Label3.Caption :=inttostr(m.lParam);

end;

end.

какое сообщение отправить полю Мемо?