VPF::Посылка нажатия комбинации клавиш

Самурай

Дата 28.10.2005, 20:56 (ссылка)

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

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 64
Регистрация: 20.10.2005
Где: Воронежская облас ть > Семилуки

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

Предположим: есть меню, в котором некоторые пункты настроены на "горячие" клавиши. Мне из своего приложения нужно заставить чужое окно думать, что нажата определенная комбинация клавиш (например, Ctrl+F5) и что нужно запустить действие пункта меню, связанного с данной комбинацией клавиш. Вопрос: Как? smile

Voyager

Дата 28.10.2005, 21:43 (ссылка)

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

Загрузка ...

Опытный

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

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

Пример из drkb:

Цитата

Эта процедура посылает сообщение о нажатии клавиши.

procedure PostKeyEx32(key: Word; const shift: TShiftState; specialkey: Boolean);
type TShiftKeyInfo = record
shift: Byte;
vkey: Byte;
end;
byteset = set of 0..7;
const shiftkeys: array[1..3] of TShiftKeyInfo = ((shift: Ord(ssCtrl);
vkey: VK_CONTROL), (shift: Ord(ssShift); vkey: VK_SHIFT), (shift: Ord(ssAlt); vkey: VK_MENU));

var flag: DWORD;
bShift: ByteSet absolute shift;
i: Integer;
begin
for i := 1 to 3 do
if shiftkeys[i].shift in bShift then keybd_event(shiftkeys[i].vkey, MapVirtualKey(shiftkeys[i].vkey, 0), 0, 0);
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);
for i := 3 downto 1 do
if shiftkeys[i].shift in bShift then keybd_event(shiftkeys[i].vkey, MapVirtualKey(shiftkeys[i].vkey, 0), KEYEVENTF_KEYUP, 0);
end;

Чтобы воспользоваться этой процедурой надо предварительно найти и активизировать нужное окно:

SetForegroundWindow(FindWindow(PChar(WindowClassName), PChar(WindowCaption)));

PS. не забудьте поставить задержки типа Sleep(100) после активизации окна и между посылаемыми клавишами, не то окно может не успевать реагировать на клавиши...

Самурай

Дата 28.10.2005, 21:45 (ссылка)

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

Загрузка ...

Шустрый

Цитата(Voyager @ 28.10.2005, 22:43)

drkb

А что это?
Добавлено @ 21:53
Хммм... Что-то не хочет.
Работаю пока на своем окне: есть комбинация на менб Ctrl+F. Делаю вызов: PostKeyEx32(ord('F'), [ssCtrl], true); Ничего не происходит.

Romikgy

Дата 31.10.2005, 10:27 (ссылка)

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

Загрузка ...

Любитель-программер

Профиль
Группа: Участник Клуба
Сообщений: 7326
Регистрация: 11.5.2005
Где: Porto Franco Odes sa

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

Цитата

А что это?

http://www.drkb.ru/

Код


var k:word;
 begin
 k:=VkKeyScan('F');
 keybd_event(VK_CONTROL,0,0,0);
 keybd_event(k,0,0,0);
 keybd_event(k,0, KEYEVENTF_KEYUP,0);
 keybd_event(VK_CONTROL,0, KEYEVENTF_KEYUP,0);
end;

Вроде так

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

Владение русской орфографией это как владение кунг-фу — истинные мастера не применяют его без надобности.

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