Вставка текста в активное поле

[Dj_smart]

Доброго времени суток!!!
В общем, имеетсо чужой edit или memo, в общем поле.
Оно щас активно (в нём мигает курсор).
Как мне программно запихнуть туда текст, не эмулируя клавы(не печатая прогаммно)?
Респект всем просветившим!

[_Dmitry]

var
  h,sh: HWND;
begin
  h:=FindWindow('Класс','Заголовок'); //Ищем окно программы
  sh:=FindWindowEx(h,0,'Класс','Заголовок'); //Ищем дочернее окно Edit или Memo
  SendMessage(sh,WM_SETTEXT,0,LParam(PChar('Мой текст'))); //Пишем туда текст

Например, впихнем текст в Блокнот

  h:=FindWindow('Notepad',nil);
  sh:=FindWindowEx(h,0,'Edit',nil);
  SendMessage(sh,WM_SETTEXT,0,LParam(PChar('Мой текст')));

[Dj_smart]

Спс конечно, но это не то.
Как вставить текст я знаю, проблема в том, куда его вставить? То есть как узнать как зовут активное поле (в котором курсор)?
Через обычный набор не хоцца, это же следитьсо.
Ну ты в общем понял, зачем это.

[Stilet]

То есть как узнать как зовут активное поле (в котором курсор)?

Ну ты имеешь ввиду получить класс активного окна (контрола)?
Ну дык типа такого:

var s:pchar
getmem(s,100);
GetClassName(GetActiveWindow,s,100)

[_Dmitry]

Или с помощью специальных программ.
Я пользуюсь этой http://inqsoft.xss.ru/iws.html

[Dj_smart]

Или с помощью специальных программ.
Я пользуюсь этой http://inqsoft.xss.ru/iws.html

Эта прога у меня уже год как стоит, классная))) лучшего оконного шпайона я не видел)))

var s: pchar
getmem(s,100);
GetClassName(GetActiveWindow,s,100)

Спасибо, но почемуто последняя функция возвращает integer
А GetActiveWindow - это типа хендл активного окна?
А как найти активное поле в этом окне активном???
Вроде и соображаю стабильно, но тут вьехать немогу

[Alter]

Наверно типа этого надо: