Форум: "Начинающим";
Текущий архив: 2011.10.30;
Скачать: [xml.tar.bz2];
Вниз
Вопрос по keybd_event Найти похожие ветки
← →
Abibas © (2011-07-12 13:00) [0]Вот программа которая сама нажимает на клавишу А
[ 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 13:17) [1]> ПОЖАЛУЙСТА, ОТВЕЧАЙТЕ ЕСЛИ ТОЛЬКО 100% уверены в своих знаниях!
Я бы подсказал (на delphimaster это уже обсуждалось - Kerk © в 2005 году спрашивал), но 100% уверенности нет...
← →
Dimka Maslov © (2011-07-12 13:23) [2]Наверное сначала надо симулировать нажатие шифта, затем а, затем отпускание а, затем отпускание шифта, но 100% уверенности нет...
← →
Юрий Зотов © (2011-07-12 13:31) [3]Похоже,что это не вопрос, а опрос - кто на 100% уверен в своих знаниях.
← →
Омлет © (2011-07-12 13:44) [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:47) [5]> dwFlags := Flags or dwFlags;
заменить на
dwFlags := Flags;
← →
Плохиш © (2011-07-12 14:01) [6]
> ПОЖАЛУЙСТА, ОТВЕЧАЙТЕ ЕСЛИ ТОЛЬКО 100% уверены в своих знаниях!
Сумма оплаты не озвучена, а уже требования к ответам выдвигают.
← →
Юрий Зотов © (2011-07-12 15:41) [7]
> Омлет © (12.07.11 13:47) [5]
Нет уж - зуб, так зуб.
Страницы: 1 вся ветка
Форум: "Начинающим";
Текущий архив: 2011.10.30;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.004 c
