[St0rm]

Pyro,за гранью моего понимания.
Приведу пример как делал я:

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
  h1,h2,h3,h4,h5,h6:HWND;
begin
  h1:=FindWindow('tSkMainForm',nil);
  h2:=FindWindowEx(h1,0,'TConversationsControl',nil);
  h3:=FindWindowEx(h2,0,'TAccessibleEdit',nil);
  SendMessage(h3, WM_Settext, 0,integer(pchar('echo123')));
  SendMessage(h3, WM_KEYDOWN,VK_RETURN ,0 );
  SendMessage(h3, WM_KEYUP, VK_RETURN, 0);
  h4:=FindWindow('TConversationForm',nil);
  h5:=FindWindowEx(h4,0,'TChatEntryControl',nil);
  h6:=FindWindowEx(h5,0,'TChatRichEdit',nil);
  SendMessage(h6, WM_Settext, 0,integer(pchar('<u>я тут.</u>')));
  SendMessage(h6, WM_KEYDOWN,VK_SHIFT ,0 );
  SendMessage(h6, WM_KEYDOWN,VK_CONTROL ,0 );
  SendMessage(h6, WM_KEYDOWN,VK_RETURN ,0 );
  SendMessage(h6, WM_KEYUP, VK_RETURN, 0);
  SendMessage(h6, WM_KEYUP,VK_SHIFT ,0 );
  SendMessage(h6, WM_KEYUP,VK_CONTROL ,0 );
end;
end.

надеюсь вы суть поняли=))
нужно отправить текст форматированный html'ом=)
в скайпе отправляеться сочетанием клавиш ctrl+shift+левая кнопка мыши.
enter'ом не отправляет.