Function DoSendInput(VK:Word; ADown:boolean):boolean;
var AInput:tagInput;
begin
 AInput.Itype:=INPUT_KEYBOARD;
 AInput.ki.wVK:=VK;
 AInput.ki.wScan:=0;
 if ADown then AInput.ki.dwFlags:=0
 else AInput.ki.dwFlags:=KEYEVENTF_KEYUP;
 AInput.ki.time:=0;
 AInput.ki.dwExtraInfo:=0;
 Result:=SendInput(1,AInput,SizeOf(tagINPUT))>0;
end;

//-------

Function SendKeyInput(Sc:TShortCut; VK:word):boolean;
var Key:Word;
    Shift:TShiftState;
begin
  ShortCutToKey(Sc,Key,Shift);
  if VK=0 then VK:=Key;
  if ssShift in Shift then DoSendInput(VK_SHIFT,True);
  if ssCtrl in Shift then DoSendInput(VK_CONTROL,True);
  if ssAlt in Shift then DoSendInput(VK_MENU,True);
  Result:=DoSendInput(VK,True);
  if Result then Result:=DoSendInput(VK,False);
  if ssShift in Shift then DoSendInput(VK_SHIFT,False);
  if ssCtrl in Shift then DoSendInput(VK_CONTROL,False);
  if ssAlt in Shift then DoSendInput(VK_MENU,False);
end;