var

  nInputs: array[0..1] of tagINPUT;

  nData: WideChar;

  nStr: WideString;

  i: Integer;

begin

  nStr := '测试内容123';

  for I := 1 to Length(nStr) do

  begin

    nData := nStr[i];

    with nInputs[0] do

    begin

      Itype := INPUT_KEYBOARD;

      ki.wVk := 0;

      ki.wScan := Word(nData);

      ki.dwFlags := KEYEVENTF_UNICODE;

    end;

    SendInput(1, nInputs[0], SizeOf(nInputs[0]));

    with nInputs[1] do

    begin

      Itype := INPUT_KEYBOARD;

      ki.wVk := 0;

      ki.wScan := Word(nData);

      ki.dwFlags := KEYEVENTF_KEYUP or KEYEVENTF_UNICODE;

    end;

    SendInput(1, nInputs[1], SizeOf(nInputs[1]));

  end;

end;