Delphi vs. Буфер обмена

[dacorp]

Здравствуйте!
Столкнулся с проблемой при написании программы для автоматизации.
Задача состоит в том, чтобы автоматизировать рабочий процесс путём передачи текстовых данных и нажатий клавиш внутри чужого процесса.
Написал такой код:

if FindWindow(nil, pChar(Edit1.Text)) = 0 then
  ShowMessage('Окно не найдено')
else
begin
SetTextBuf(pChar(Edit2.Text));
PostMessage(FindWindow(nil,pChar(Edit1.Text)), WM_PASTE, 0, 0);
PostMessage(FindWindow(nil,pChar(Edit1.Text)), WM_keyup, VK_F5, 0);
end;

Передача системного нажатия клавиши F5 проходит нормально, но вот вставлять текст из буфера не хочет... Пытался за место VK_F5 поставить код HEX занчения букв и цифр, к примеру 30 (hex) > 0 (key), но тоже ничего не вышло
Помогите, пожалуйста!

[RUSt88]

setwindowtext

[eoln]

Помоему ТС хочет менять значение контролов.

Сообщение от dacorp

PostMessage(FindWindow(nil,pChar(Ed it1.Text)), WM_PASTE, 0, 0);

А куды текст вставляется? Не в форму наверное? Надо искать в этом окне контрол в который текст вставляется. Смотрим через WinSpy или аналогичную команду класс объекта, а затем примерно так (в случае нескольких контролов одного класса придётся проверять дополнительно ещё чего-нибудь, например, координаты на форме)

var
  hwnd0: HWND;
begin
if FindWindow(nil, pChar(Edit1.Text)) = 0 then
ShowMessage('Окно не найдено')
else
begin
edit2.SelectAll;
edit2.CopyToClipboard;
hwnd0 := FindWindow(nil, pChar(Edit1.Text));
hwnd0 := FindWindowEx(hwnd0, 0, 'TEdit', nil);//допустим 'TEdit' - класс контрола в который вставляем
PostMessage(hwnd0, WM_PASTE, 0, 0);
PostMessage(FindWindow(nil,pChar(Edit1.Text)), WM_keyup, VK_F5, 0);

Сообщение от dacorp

Пытался за место VK_F5 поставить код HEX занчения букв и цифр, к примеру 30 (hex) > 0 (key), но тоже ничего не вышло

Что-то не понял, зачем с VK_F5 эксперементировать, если

Сообщение от dacorp

Передача системного нажатия клавиши F5 проходит нормально