VPF::Как программно нажать на кнопку Tab

andrey_post

Дата 20.12.2004, 10:15 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 109
Регистрация: 23.12.2003
Где: Екатеринбург

Репутация: нет
Всего: нет

Есть стотонне приложение. Я его вывожу на "передний" план и мне нужно послать ему сообщение как будто я нажал кнопку Tab на клаве.
Как сие сделать?

--------------------

И что бы там не происходило, не стоит воспринимать жизнь слишком всерьёз, всё равно нам из неё живыми не выбраться!!!

dm9

Дата 20.12.2004, 12:59 (ссылка)

(нет голосов)

Загрузка ...

Дмитрий Копытин

Профиль
Группа: Vingrad developer
Сообщений: 3876
Регистрация: 22.7.2002
Где: Москва

Репутация: 6
Всего: 137

keybd_event (9, 0, 0, 0);
keybd_event (9, 0, 0, KEYEVENTF_KEYUP);

andrey_post

Дата 20.12.2004, 14:07 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 109
Регистрация: 23.12.2003
Где: Екатеринбург

Репутация: нет
Всего: нет

А я написал такую процедуру:

Код


Procedure PostKeyEx32A(key: Word; specialkey: Boolean);
Var flag: DWORD;
   i: Integer;
Begin
 For i := 1 To 3 Do
 if specialkey Then flag := KEYEVENTF_EXTENDEDKEY Else flag := 0;
 keybd_event( key, MapvirtualKey( key, 0 ), flag, 0 );
 flag := flag or KEYEVENTF_KEYUP;
 keybd_event( key, MapvirtualKey( key, 0 ), flag, 0 );
End;

Вызвал

Код


PostKeyEx32A(ORD(#9),false);

Канает. Я через 2ве минуты догадался что надо keybd_event использовать.
Проверил - робит.
Потом вот твое прочитал

--------------------

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »