Tastatureingabe in Delphi mit WinAPI simulieren

Question

Ich muss programmgesteuert ein Zeichen in eine Zelle eines Delphi-Rasters eingeben (in anderen Anwendungen).

Um dies manuell zu tun, sind folgende Schritte erforderlich:

1. Drücken Sie die F3-Taste.
2. Drücken Sie dreimal die rechte Pfeiltaste.
3. Drücken Sie die Leertaste.
4. Geben Sie den Buchstaben "E" auf der Tastatur ein.

5. Drücken Sie die Nach-rechts-Taste.

   // Press F3 button   
   keybd_event(VK_F3, 0, 0, 0);   
   // Press right arrow key 3 times 
   keybd_event(VK_RIGHT, 0, 0, 0); 
   keybd_event(VK_RIGHT, 0, 0, 0); 
   keybd_event(VK_RIGHT, 0, 0, 0); 
   
   // Press the space button 
   keybd_event(VK_SPACE, 0, 0, 0); 
   
   // Type letter E 
   keybd_event(Ord('E'), 0, 0, 0); 
   
   // Move to the right 
   keybd_event(VK_RIGHT, 0, 0, 0); 
   

Aber es funktioniert nicht. Wenn ich diesen Code ausführe, scheint nichts zu passieren.

Wie soll ich diesen Code ändern, so dass er tatsächlich Benutzereingaben simuliert?

Answer 1

Jeder Tastendruck ist eine Taste nach unten und dann eine Taste nach oben. Sie benötigen also zwei Anrufe an keybd_event per Tastendruck. Zum Beispiel, drücken Sie F3:

keybd_event(VK_F3, 0, KEYEVENTF_KEYDOWN, 0); 
keybd_event(VK_F3, 0, KEYEVENTF_KEYUP, 0); 

Beachten Sie, dass KEYEVENTF_KEYDOWN nicht wirklich definiert durch die Windows-Header-Dateien, oder die Delphi-Übersetzung. Definieren Sie es als 0. Es macht den Code jedoch deutlicher explizit ausgeschrieben.

Natürlich würden Sie Ihren Code nicht mit gepaarten Anrufen an keybd_event verschwenden. Stattdessen würden Sie die gepaarten Anrufe in eine Hilfsfunktion einfügen.

Es ist möglich, dass Sie in einigen Situationen den zweiten Parameter, den Scan-Code, angeben müssen. Aber es ist oft nicht notwendig.