delphi 发送ctrl+其他键盘虚拟键

 //设置键盘辅助按键

procedure sendaidkey(vkey: Byte; vclear: Boolean = False);

var
  keystatus: TKeyboardState;
  lb: Boolean;
begin
  GetKeyBoardState(keystatus);
  if vclear then
  begin
    keystatus[vkey] := 0;
  end
  else
  begin
    lb := ByteBool(GetKeyState(vkey) and 1);
    if lb then
      keystatus[vkey] := 255
    else
      keystatus[vkey] := 254;
  end;
  SetKeyBoardState(keystatus);

end;

demo:

sendaidkey(vk_control);

sendmessage(h,WM_KEYDOWN,vk_delete,0);

sendaidkey(vk_control,true);