|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
18.11.2012, 17:05 | #1 |
Форумчанин
Регистрация: 27.05.2009
Сообщений: 192
|
procedure TForm1.Timer1Timer(Sender: TObject); var h:hwnd; begin //if f1 if getasynckeystate($20)<>0 then begin if FindWin
Есть код(неполный):
procedure TForm1.Timer1Timer(Sender: TObject); var h:hwnd; begin //if f1 if getasynckeystate($20)<>0 then begin if FindWindow(nil, 'Заголовок окна') <> 0 then begin h:=FindWindow(nil, 'Заголовок окна'); sendmessage(h, wm_keydown, $31, 0); sleep(10); sendmessage(h, wm_keyup, $31, 0); В заголовке окна я нахожу нужное мне окно(браузер). Так вот. Если я тестирую программу в Mozilla или Opera - программа работает(нажатие клавиш передается), если в Google Chrome - не работает(окно находит, но нажатие не передается). Подскажите в чем может быть проблема. |
18.11.2012, 18:37 | #2 |
Белик Виталий :)
Старожил
Регистрация: 23.07.2007
Сообщений: 57,097
|
Ты этой программой что хочешь делать?
I'm learning to live...
|
18.11.2012, 20:44 | #3 |
Форумчанин
Регистрация: 27.05.2009
Сообщений: 192
|
передавать в браузер нажатие некоторых клавиш при нажатии на определенную (в примере - пробел)
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
procedure TForm1.FormActivate(Sender: TObject); | Vitalik85 | Общие вопросы Delphi | 7 | 19.06.2012 10:59 |
BEGIN expected but END found | lypyotr | Помощь студентам | 4 | 09.11.2011 15:43 |
отрисовка границ Begin end | Lokos | Общие вопросы Delphi | 4 | 17.11.2010 06:39 |
Действие проседуры TForm1.Button2Click(Sender: TObject); на что распространяется? | vedro-compota | Общие вопросы Delphi | 14 | 01.05.2010 21:22 |
Ошибка BEGIN | nemq | Помощь студентам | 6 | 01.01.2010 11:33 |