Add(InlineCode,3935702,322,189)
{
 @Hint=#22:Запрос NamePC Name Bit|
 @Color=16777130
 WorkPoints=#3:do1|3:do2|
 Code=#15:unit HiAsmUnit;|0:|9:interface|0:|29:uses Windows,kol,Share,Debug;|0:|4:type|28: THiAsmClass = class(TDebug)|10:   private|0:|9:   public|25:     on1, on2: THI_Event;|48:     procedure do1(var _Data:TData; Index:word);|48:     procedure do2(var _Data:TData; Index:word);|5: end;|0:|0:|14:implementation|0:|5:const|102:  _mdown:array[1..3]of cardinal = (MOUSEEVENTF_LEFTDOWN,MOUSEEVENTF_RIGHTDOWN,MOUSEEVENTF_MIDDLEDOWN);|94:  _mup:array[1..3]of cardinal = (MOUSEEVENTF_LEFTUP,MOUSEEVENTF_RIGHTUP,MOUSEEVENTF_MIDDLEUP);|2:  |0:|0:|0:|26:procedure THiAsmClass.do1;|0:|11:var b:byte;|86:    inp: TInput;                                                                //test|86:    mi: TMouseInput;                                                            //test|5:begin|10:   b := 1;|86:   ZeroMemory(@mi, sizeof(mi));                                                 //test|86:   ZeroMemory(@inp, sizeof(inp));                                               //test|86:   mi.dwFlags:= _mdown[b];                                                      //test|86:   inp.mi := mi;                                                                //test|86:   SendInput(b,inp,sizeof(inp));                                                //test|86:   mi.dwFlags:= _mup[b];                                                        //test|86:   inp.mi := mi;                                                                //test|86:   SendInput(b,inp,sizeof(inp));                                                //test|0:|4:end;|0:|0:|26:procedure THiAsmClass.do2;|0:|3:var|0:|11:TI: TInput;|0:|16:KI: TKeybdInput;|0:|0:|5:begin|0:|0:|0:|27:TI.Itype := INPUT_KEYBOARD;|0:|0:|0:|88://   ZeroMemory(@KI, sizeof(KI));                                                 //test|86: //  ZeroMemory(@TI, sizeof(TI));                                               //test|0:|16:   KI.wVk := 49;|0:|19:   KI.dwFlags := 0;|0:|15:   TI.ki := KI;|0:|32:   SendInput(1, TI, SizeOf(TI));|0:|33:   KI.dwFlags := KEYEVENTF_KEYUP;|0:|15:   TI.ki := KI;|0:|32:   SendInput(1, TI, SizeOf(TI));|0:|0:|4:end;|0:|0:|4:end.|
}

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