Вверх ↑
Ответов: 4525
Рейтинг: 722
#1: 2021-02-08 14:13:26 ЛС | профиль | цитата

procedure EmulateKeyPress(VKCode: Byte);
var
inp: packed array [0..1] of TInput;
begin
//FillChar(inp[0], SizeOf(TInput), 0);
//FillChar(inp[1], SizeOf(TInput), 0);

inp[0].Itype := INPUT_KEYBOARD;
inp[0].ki.wVk := VKCode;
inp[0].ki.dwFlags := 0;

inp[1].Itype := INPUT_KEYBOARD;
inp[1].ki.wVk := VKCode;
inp[1].ki.dwFlags := KEYEVENTF_KEYUP;

SendInput(2, inp[0], SizeOf(TInput));
end
карма: 26

0