Tastendruck mit KEYBD_EVENT erzeugen

[Satty67]

Achja, im Fliestext.. hatte ich übersehen.

Ist aber trotzdem die richtige Lösung für Shift. Ich hatte nur eine Buchstabentaste getestet, statt Insert (weil es einfacher zu testen war) und deshalb den zweiten Fehler bei Insert nicht bemerkt. Warum das fehlende Flag bei Insert auch den nachfolgenden Auffruf von Shift beeinflusst, kann ich aber auch nicht sagen.

Insert ist auch ein Extended Key, der Code unten funktioniert bei mir (lasse ich das Extended Flag bei Insert weg, kann ich Dein Verhalten reproduzieren).

Der Aufruf von KEYBD_EVENT sollte identisch sein:

Delphi-Quellcode:

procedure SimKeyEvent(VirtualKey : Integer; Flags : LongWord);
var
  KeybdInput : TagKeybdInput;
  Input : TagInput;
begin
  KeybdInput.wVk := VirtualKey;
  KeybdInput.dwFlags := Flags;
  KeybdInput.dwExtraInfo := 0;
  KeybdInput.wScan := 0;
  KeybdInput.time := 0;

  Input.Itype := INPUT_KEYBOARD;
  Input.ki := KeybdInput;

  SendInput(1, Input, SizeOf(Input));
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  SimKeyEvent(VK_SHIFT, KEYEVENTF_EXTENDEDKEY);
  SimKeyEvent(VK_INSERT, KEYEVENTF_EXTENDEDKEY);
  SimKeyEvent(VK_INSERT, KEYEVENTF_EXTENDEDKEY or KEYEVENTF_KEYUP);
  SimKeyEvent(VK_SHIFT, KEYEVENTF_EXTENDEDKEY or KEYEVENTF_KEYUP);
end;

Getested mit TAction-Shortcut "Shift-Insert", das erst eine MessageBox ausgibt, dann Fokus auf ein TEdit setzt.

Erfolg der Aufruf wie folgt, dann Dein beschriebenes Verhalten:

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
begin
  SimKeyEvent(VK_SHIFT, KEYEVENTF_EXTENDEDKEY);
  SimKeyEvent(VK_INSERT, 0);
  SimKeyEvent(VK_INSERT, 0);
  SimKeyEvent(VK_SHIFT, KEYEVENTF_EXTENDEDKEY or KEYEVENTF_KEYUP);
end;

(Erklärt evtl. auch, warum nur Shift betroffen war, weil Ctrl/Alt mit Zeichen, nicht mit Sondertaste getestet wurde).