Отправить нажатия клавиш в чужое приложение.

[garyanikin]

Здравствуйте.
Собственно сабж...
Очень много гуглил, толкового ничего не нашёл.

Программа должна нажимать энтер(активируется строка куда писать),
потом жать ctrl+V или по другому вставлять текст и потом опять энтер.

Вот что я пока что набросал, но меня это не устраивает(т.к. он просто по очереди жмёт на кнопки текста)

procedure TForm1.Button1Click(Sender: TObject);
var
Handle:THandle;
i : integer;
begin
i := 0;
while
i<StrToInt(Edit1.Text)
do
begin
Handle:=FindWindow(nil, 'R2');
SendMessage(Handle, WM_KEYDOWN, VK_RETURN, 0);
SendMessage(Handle, WM_KEYUP, VK_RETURN, 0);
sleep(100);
PostMessage(Handle, WM_KEYUP, ord('R'), 0);
sleep(100);
PostMessage(Handle, WM_KEYUP, ord('E'), 0);
sleep(100);
PostMessage(Handle, WM_KEYUP, ord('G'), 0);
sleep(100);
PostMessage(Handle, WM_KEYUP, ord('K'), 0);
sleep(100);
PostMessage(Handle, WM_KEYUP, ord(190), 0);
sleep(100);
PostMessage(Handle, WM_KEYUP, VK_SPACE, 0);
sleep(100);
PostMessage(Handle, WM_KEYUP, ord('Y'), 0);
sleep(100);
PostMessage(Handle, WM_KEYUP, ord('E'), 0);
sleep(100);
PostMessage(Handle, WM_KEYUP, ord(188), 0);
sleep(100);
PostMessage(Handle, WM_KEYUP, ord('J'), 0);
sleep(100);
PostMessage(Handle, WM_KEYUP, ord('N'), 0);
sleep(100);
PostMessage(Handle, WM_KEYUP, ord('J'), 0);
sleep(100);
PostMessage(Handle, WM_KEYUP, ord('X'), 0);
sleep(100);
PostMessage(Handle, WM_KEYUP, ord('B'), 0);
sleep(100);
PostMessage(Handle, WM_KEYUP, VK_SPACE, 0);
sleep(100);
PostMessage(Handle, WM_KEYUP, ord('3'), 0);
sleep(100);
PostMessage(Handle, WM_KEYUP, ord('1'), 0);
sleep(100);
PostMessage(Handle, WM_KEYUP, ord('R'), 0);
sleep(100);
SendMessage(Handle, WM_KEYDOWN, VK_RETURN, 0);
SendMessage(Handle, WM_KEYUP, VK_RETURN, 0);
sleep(10000);
i:=i+1;
end;
end;

Помогите кто сможет, заранее спасибо!

[psycho-coder]

Смотри в сторону
WM_KEYDOWN
WM_CUT
WM_COPY
WM_PASTE

[garyanikin]

Начал копать в сторону WM_PASTE
И наткнулся на проблему с использованием WinSight'a, как отловить определенное поле edit?? подскажите плиз или ссылку на мануал киньте.

[psycho-coder]

Ну хотя бы по содержимому

[garyanikin]

Сообщение от psycho-coder

Ну хотя бы по содержимому

Мм... не понял..

[psycho-coder]

Edit - это класс зарегистрированный в винде. Это тоже окно но с другими свойствами и если в Edit есть текст то с помощью функции GetWindowText и GetWindowTextLength (кажется так) можно получить текст из Edit.
WinSight видит содержимое этого окна

[garyanikin]

Так теперь проблема в другом....

Пытаюсь отправить клавишу F2, ну это типо гарячая клавиша в том приложении, но ноль реакции! Делаю так:

SendMessage(Handle, WM_KEYDOWN, VK_F2, 0);
SendMessage(Handle, WM_KEYUP, VK_F2, 0);