Код:
procedure TForm1.Timer1Timer(Sender: TObject);
var Text:String;
i:Integer;
begin
Text:=Combobox1.Text+Memo1.Text;
if active_handle <> 0 then begin
SendMessage(active_handle,WM_KEYDOWN,VK_RETURN,0);
SendMessage(active_handle,WM_KEYUP,VK_RETURN,0);
for i:=1 to Length(Text) do begin
sendmessage(active_handle, WM_CHAR, Word(Text[i]), 0);
end;
SendMessage(active_handle,WM_KEYDOWN,VK_RETURN,0);
SendMessage(active_handle,WM_KEYUP,VK_RETURN,0);
end;
end;
Код:
Combobox1.Text:='!';
Memo1.Text:='Работает как улитка даже не знаю почему.';
http://www.youtube.com/watch?v=zHax1qqcoeg
Как можно ускорить отправку текста sendmessage в неактивное окно?