Повторяющиеся charachters, использующие send input в delphi

Question

Моя проблема следующая процедура, которая показывает эту строку 'a-bb-ccc-dddd' в outpot как это 'a-b-c-d'. Как я могу это исправить.

procedure SendText(const Value: WideString); 
var 
    i: Integer; 
    S: WideString; 
    TI, TYY222: TInput; 
    ki: TKeybdInput; 
    MyWND: HWND; 
const 
    KEYEVENTF_UNICODE = $0004; 
begin 
    S := (Value); 
    TI.Itype := INPUT_KEYBOARD; 
    for i := 1 to Length(S) do 
    begin 
    ki.wVk := 0; 
    ki.dwFlags := KEYEVENTF_UNICODE; 
    ki.wScan := Ord(S[i]); 
    TI.ki := ki; 
    SendInput(1, TI, SizeOf(TI)); 
    end; 
end; 

Answer 1

Неизменно ошибкой называть SendInput несколько раз в цикле таким образом. Вся точка SendInput заключается в том, что она выпускает ряд связанных событий ввода и отправляет их как атомную группу. Это прямо указано в документации для SendInput, и я рекомендую вам перечитать это.

Первое, что нужно изменить, так это использовать ваш цикл для построения массива входных событий и отправить этот массив целиком с помощью одного вызова SendInput, сделанного после завершения цикла.

Другая проблема заключается в том, что ваш код в настоящее время подделывает события нажатия клавиш, но не позволяет подделать события блокировки. Каждый персонаж, который вы вводите, включает в себя нажатие клавиши, а затем возврат. Таким образом, ваш массив должен иметь размер, чтобы содержать в два раза больше элементов, чем символы в строке. И для каждого персонажа вам нужно включить ключ и клавишу вверх. Включите KEYEVENTF_KEYUP в dwFlags, чтобы указать событие активации ключа.

Еще одна проблема, которую я вижу, заключается в том, что вы работаете с неинициализированными переменными. Вы установили некоторые, но не все поля ki. Вы должны убедиться, что вся запись инициализирована.

Кажется, у вас нет причин сделать копию входной строки. Вы можете напрямую работать со строкой ввода. Из копии нет ничего, что можно было бы сделать.

И, наконец, вы рассматривали возможность использования UI Automation вместо подделки ввода?