#pas
procedure THIMouseEvent._work_doClick;
var b:byte;
    pos:TPoint;
    inp: TInput;                                                                //test
    mi: TMouseInput;                                                            //test
begin
   b := ReadInteger(_Data,_data_Button,_prop_Button);
//   GetCursorPos(pos);
//   mouse_event(_mdown[b],pos.x,pos.y,0,0);
//   mouse_event(_mup[b],pos.x,pos.y,0,0);
   ZeroMemory(@mi, sizeof(mi));                                                 //test
   ZeroMemory(@inp, sizeof(inp));                                               //test
   mi.dwFlags:= _mdown[b];                                                      //test
   inp.mi := mi;                                                                //test
   SendInput(b,inp,sizeof(inp));                                                //test
   mi.dwFlags:= _mup[b];                                                        //test
   inp.mi := mi;                                                                //test
   SendInput(b,inp,sizeof(inp));                                                //test
end;

#cpp
#include <windows.h>
UINT sendKey(WORD keyCode)
{
    INPUT keyEvent{};
    keyEvent.type = INPUT_KEYBOARD;
    keyEvent.ki.wVk = keyCode;
    keyEvent.ki.wScan = MapVirtualKeyEx(keyCode, MAPVK_VK_TO_VSC, GetKeyboardLayout(0));
   
    const UINT nInputs = 1; //Устанавливает число структур в массиве pInputs (keyEvent).
    return SendInput(nInputs, &keyEvent, sizeof(keyEvent));
}