![]() |
|
#1
|
|||
|
|||
![]() Помогите пожалуйста.
Код:
procedure TForm1.Timer1Timer(Sender: TObject); var i : Integer; H : Hwnd; begin H := FindWindow(0, 'Form1'); if (getasynckeystate(VK_INSERT)=-32768) then begin sendmessage(H, wm_char, ord('A'), 0); For i:=1 to length(Edit1.text) do sendmessage(H, wm_char, ord(Edit1.text[i]), 0); SendMessage(H, WM_KEYDOWN, vk_return, 0); SendMessage(H, WM_KEYUP, vk_return, 0); end; end; хочу при нажатии на клавишу Insert, эмулировать в заданном окне клавиши. Form1 это заголовок окна (в той программе Memo), и при нажатии на Insert он должен был выдать так: AText AText AText ... до тех пор пока не отпущу Insert. Но при нажатии на клавишу ничего не происходит. Очень нужна ваша помощь.... ![]() |