Передача символов в другое приложение

[mytant712]

подскажите как передавать строку в текстовое поле другого окна.handle его получил.почитав на форумах стал смело писать
SendMessage(handle,WM_CHAR,ord('что нибудь'),0);
в итоге даже в блокнот ничего передавать не хочет...
в чем проблема?(пишу в делфи)

[rpy3uH]

Во-первых не всё тка просто. Во-вторых сообщенеи надо посыласть не главному окну, а самому контролу, в который вводится текст. В-третьих, посылать можно только один символ.
Вот так надо:

procedure TForm1.Button1Click(Sender: TObject);
var
  h:THandle;
begin
  h:=FindWindow(nil,'Безымянный - Блокнот');
  if h=0 then ShowMessage('111');
  h:=FindWindowEx(h,0,'EDIT',nil);
  if h=0 then ShowMessage('222');
  SendMessage(h,WM_CHAR,ord('A'),0);
end;

[mytant712]

я так понял EDIT это ClassName.Пробую в других приложениях - не работает(word, promt, total, первое что под руку попалось).попробовал заменить EDIT на nil тоже не работает.я так понимаю не все окна куда можно вводить символы наследники TEdit?как найти нужного? перебирать связкой FindWindow+FindWindowEx все компоненты данного окна?еще видел такую функцию EnumChildProc она циклически перебирает все дочерние окна.расскажите кто-нибудь как это все грамотно сделать.

[rpy3uH]

сначала надо получить список всех дочерних окон (не программно,а так, самому изучить через какую-нибудь прогу), потом просто искать через FindWindowEx нужное нам окно и отправлять туда текст.

[mytant712]

а не подскажите что за программы? снова капался на форуме. нашел такое
http://programmersforum.ru/showthread.php?t=5505 очень может подойти мне. только вот в пердложенном коде не нашел где можно изменить значение нажатой клавиши на нужное и послать дальше винде (переназначить)?

[rpy3uH]

программа называется WinSpy++ 1.7 официальный сайт http://www.catch22.net/software/winspy
у неё даже исходники есть

[mytant712]

rpy3uH, а по поводу http://programmersforum.ru/showthread.php?t=5505 не подскажешь? очень нужно) заранее благодарен)