Как вставить в RichEdit стороннего приложения текст?

[^D^ima]

Есть окно "создать встречу" в outlook. Как можно что-то передать этому RichEdit'у текст. И как можно получить координаты этого поля?

Хочу написать программку, которая при создании встречи в в outlook будет прикрепляться к окну и вставлять в поле тема текст.
Прикреплённый файлБезымянный.png (42,22 Кбайт, скачиваний: 600)

[^D^ima]

Сам RichEdit нашел, а вот текст туда не вставляется:

var
h: HWND;
main: HWND;
 
begin
  main := findwindow(nil, 'Без имени - Встреча  ');
    if main <> 0 then
      h := findwindowex(main, 0, 'AfxWndW', nil);
        If h<>0 then
          h := findwindowex(h, 0, 'AfxWndW', nil);
            If h<>0 then
              h := findwindowex(h, 0, '#32770', nil);
                If h<>0 then
                  h := findwindowex(h, 0, 'RichEdit20WPT', nil);
                    If h<>0 then
                      Begin
                        SendMessage(H, WM_SETTEXT, 0, Integer(PChar('123')));
                        ShowMessage('!');
                      End;
 
end;

Сообщение отредактировано: ^D^ima - 28.11.12, 11:31

[Filka]

SendMessage(h, EM_SETSEL, 0, -1);
SendMessage(h, EM_REPLACESEL, 0, Integer(PChar('123')));

?

[^D^ima]

Вот так получилось.

var
h: HWND;
main: HWND;
begin
  main := findwindow(nil, 'Без имени - Встреча  ');
    if main <> 0 then
      h := findwindowex(main, 0, 'AfxWndW', nil);
        If h<>0 then
          h := findwindowex(h, 0, 'AfxWndW', nil);
            If h<>0 then
              h := findwindowex(h, 0, '#32770', nil);
                If h<>0 then
                  h := GetNextWindow(findwindowex(h, 0, nil, '&Тема:'),gw_HWndNext);
                    If h<>0 then
                      Begin
                        SendMessage(H, WM_SETTEXT, 0, Integer(PChar('Shamanstvo')));
                        ShowMessage('!');
                      End;