
01.03.2014, 12:45
|
 |
Профессионал
|
|
Регистрация: 06.08.2012
Адрес: Кривой Рог
Сообщения: 1,791
Версия Delphi: Delphi 7, XE2
Репутация: 4415
|
|
Цитата:
Сообщение от Enforcer
Однако простое повторение отсылки этих сообщений не дает результата. Равно как и предложенный вами код. У меня получается вставлять текст вот такой процедурой:
|
А если попробовать отослать сообщения через SendMessage вместо PostMessage?:
Код:
SendMessage(hwnd, WM_KEYDOWN, VK_CONTROL, $001D0001);
SendMessage(hwnd, WM_KEYDOWN, Byte('V'), $002F0001);
SendMessage(hwnd, WM_CHAR, 22, $002F0001);
SendMessage(hwnd, WM_KEYUP, Byte('V'), $C02F0001);
SendMessage(hwnd, WM_KEYUP, VK_CONTROL, $C01D0001);
|