| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Вопрос по keybd_event [D7, 2000, XP]
Abibas © (2011-07-12 13:00:00)Вот программа которая сама нажимает на клавишу А
[ keybd_event(ord('A'),0, 0, 0);
sleep(800);
keybd_event(ord('A'),0, KEYEVENTF_KEYUP, 0);]
Вопрос такой! Как сделать чтобы нажималось сразу 2 клавешы(например Shift+A или Alt+A или Ctrl+A)?
ПОЖАЛУЙСТА, ОТВЕЧАЙТЕ ЕСЛИ ТОЛЬКО 100% уверены в своих знаниях!
Юрий Зотов (2011-07-12 15:41:00) [1]
> Омлет © (12.07.11 13:47) [5]
Нет уж - зуб, так зуб.
Плохиш (2011-07-12 14:01:00) [2]
> ПОЖАЛУЙСТА, ОТВЕЧАЙТЕ ЕСЛИ ТОЛЬКО 100% уверены в своих знаниях!
Сумма оплаты не озвучена, а уже требования к ответам выдвигают.
Омлет (2011-07-12 13:47:00) [3]> dwFlags := Flags or dwFlags;
заменить на
dwFlags := Flags;
Омлет (2011-07-12 13:44:00) [4]
procedure SendKeyInput(AKey: Byte; Flags: DWORD);
var
Input: TInput;
begin
Input.Itype := INPUT_KEYBOARD;
with Input.ki do
begin
wVk := AKey;
dwFlags := Flags or dwFlags;
time := 0;
dwExtraInfo := 0;
end;
SendInput(1, Input, SizeOf(Input));
end;
...
begin
SendKeyInput(VK_SHIFT, 0);
SendKeyInput(ord('A'), 0);
SendKeyInput(ord('A'), KEYEVENTF_KEYUP);
SendKeyInput(VK_SHIFT, KEYEVENTF_KEYUP);
end;
100% уверен, зуб даю.
Юрий Зотов (2011-07-12 13:31:00) [5]Похоже,что это не вопрос, а опрос - кто на 100% уверен в своих знаниях.
Dimka Maslov (2011-07-12 13:23:00) [6]Наверное сначала надо симулировать нажатие шифта, затем а, затем отпускание а, затем отпускание шифта, но 100% уверенности нет...
И. Павел (2011-07-12 13:17:00) [7]> ПОЖАЛУЙСТА, ОТВЕЧАЙТЕ ЕСЛИ ТОЛЬКО 100% уверены в своих знаниях!
Я бы подсказал (на delphimaster это уже обсуждалось - Kerk © в 2005 году спрашивал), но 100% уверенности нет...
| |
