如何在Delphi中使用SendInput？

uses
  Windows;

const
  SM_CXSCREEN = 0;
  SM_CYSCREEN = 1;

type
  TInput = record
    Type_: DWORD;
    case Integer of
      0: (mi: TMouseInput);
      1: (ki: TKeybdInput);
      2: (hi: THardwareInput);
  end;
  TInputs = array of TInput;

function SendInput(cInputs: UINT; pInputs: PInput; cbSize: Integer): UINT; stdcall; external 'user32.dll';

procedure ClickMouse(X, Y: Integer);
var
  Inputs: TInputs;
  Input: TInput;
begin
  SetLength(Inputs, 2);

  Input.Type_ := INPUT_MOUSE;
  Input.mi.dx := X;
  Input.mi.dy := Y;
  Input.mi.mouseData := 0;
  Input.mi.dwFlags := MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_MOVE;
  Inputs[0] := Input;

  Input.mi.dwFlags := MOUSEEVENTF_LEFTDOWN;
  Inputs[1] := Input;

  SendInput(2, Inputs[0], SizeOf(Input));

  Input.mi.dwFlags := MOUSEEVENTF_LEFTUP;
  Inputs[1] := Input;

  SendInput(2, Inputs[0], SizeOf(Input));
end;

procedure KeyPress(Key: Word);
var
  Inputs: TInputs;
  Input: TInput;
begin
  SetLength(Inputs, 2);

  Input.Type_ := INPUT_KEYBOARD;
  Input.ki.wVk := Key;
  Input.ki.wScan := MapVirtualKey(Key, 0);
  Input.ki.dwFlags := 0;
  Input.ki.time := 0;
  Input.ki.dwExtraInfo := 0;
  Inputs[0] := Input;

  Input.ki.dwFlags := KEYEVENTF_KEYUP;
  Inputs[1] := Input;

  SendInput(2, Inputs[0], SizeOf(Input));
end;