наверно это очень хороший вариант, но я как новичок в нем не разобрался
слишком много непонятных мне аргументов.
не меняется язык у меня потомушто для каждого прилажения свой язык (Не едина раскладка) и если в блокноте стоит русский то при нажатие кнопки меняется язык на форме а не в блокноте
решил проблему с помощью Ctrl+V
Код:
procedure TForm1.SendText(text: string);
var i: Integer;
begin
Clipboard.asText:=text;
keybd_event(VK_LCONTROL, 0, 0, 0);
keybd_event(Ord('V'), 0, 0, 0);
keybd_event(Ord('V'), 0, KEYEVENTF_KEYUP, 0);
keybd_event(VK_LCONTROL, 0, KEYEVENTF_KEYUP, 0);
end;
text -то что надо послать
скажите пожалуйста нормально ли это и какие проблемы могут возникнуть при этом ???