Вверх ↑
Ответов: 1292
Рейтинг: 28
#1: 2021-02-08 14:21:38 ЛС | профиль | цитата
Netspirit писал(а):

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



под новыми FPC не работает
карма: 2

0