Помогите пожалуйста.
Код:
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.
Но при нажатии на клавишу ничего не происходит. Очень нужна ваша помощь....
