[Bargest]

Код:

var h,ch:HWND;
     len:integer;
     s:array[0..10000] of AnsiChar;
...
h:=FindWindow(nil,'Программа которую хакаю'); //тут заголовок окна
ch:=FindWindowEx(h,0,'Эдит который хакаю',nil); //тут класс эдита
Len:=SendMessage(ch, WM_GETTEXT, 10000, @s);