SendInput показывает данные, отправленные из последовательности

Question

Я экспериментирую с SendInput, отправив строки в памятку. Я смешиваю команды SendInput с вызовами Memo.Lines.Add ('....'). К моему удивлению, все команды Memo.Lines.Add выполняются перед любыми процедурами SendInput. Зачем? Как я могу получить памятку для отображения информации в правильном порядке?

Мой код выглядит следующим образом:

procedure TForm1.Button1Click(Sender: TObject); 
const 
    AStr = '123 !@# 890 *() abc ABC'; 
var 
    i: integer; 
    KeyInputs: array of TInput; 

    procedure KeybdInput(VKey: Byte; Flags: DWORD); 
    begin 
    SetLength(KeyInputs, Length(KeyInputs)+1); 
    KeyInputs[high(KeyInputs)].Itype := INPUT_KEYBOARD; 
    with KeyInputs[high(KeyInputs)].ki do 
    begin 
     wVk := VKey; 
     wScan := MapVirtualKey(wVk, 0); 
     dwFlags := Flags; 
    end; 
    end; 

begin 
    Memo1.SetFocus; 
    Memo1.Lines.Add('AStr := ' + AStr); 

    Memo1.Lines.Add(''); 
    Memo1.Lines.Add('Use: KeybdInput(ord(AStr[i]),0)'); 
    SetLength(KeyInputs,0); 
    for i := 1 to Length(AStr) do KeybdInput(ord(AStr[i]),0); 
    SendInput(Length(KeyInputs), KeyInputs[0], SizeOf(KeyInputs[0])); 

    Memo1.Lines.Add(''); 
    Memo1.Lines.Add('Use: KeybdInput(vkKeyScan(AStr[i]),0)'); 
    SetLength(KeyInputs,0); 
    for i := 1 to Length(AStr) do KeybdInput(vkKeyScan(AStr[i]),0); 
    SendInput(Length(KeyInputs), KeyInputs[0], SizeOf(KeyInputs[0])); 
end; 

И я ожидал, что результат выглядит следующим образом:

Но это на самом деле выглядит следующим образом:

Answer 1

Клавиатурные входы, которые y ou отправить с SendInput проходит через систему обмена сообщениями Windows и заканчивается в очереди сообщений приложений. Очередь сообщений не обрабатывается до выхода из Button1Click().

When something gets added to a queue, it takes time for it to come out the front of the queue

Чтобы увидеть события в том порядке, вы ожидаете, что вам нужно будет вставить вызовы Application.Processmessages() после каждого SendInput(). Вызов Application.ProcessMessages() как правило, не рекомендуется, хотя:

The Dark Side of Application.ProcessMessages in Delphi Applications