Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 18.11.2012, 17:05   #1
Kazik
Форумчанин
 
Регистрация: 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 - не работает(окно находит, но нажатие не передается). Подскажите в чем может быть проблема.
Kazik вне форума Ответить с цитированием
Старый 18.11.2012, 18:37   #2
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,097
По умолчанию

Ты этой программой что хочешь делать?
I'm learning to live...
Stilet вне форума Ответить с цитированием
Старый 18.11.2012, 20:44   #3
Kazik
Форумчанин
 
Регистрация: 27.05.2009
Сообщений: 192
По умолчанию

передавать в браузер нажатие некоторых клавиш при нажатии на определенную (в примере - пробел)
Kazik вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
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