Tastendruck mit KEYBD_EVENT erzeugen

[Cicaro]

Postet immer den richtigen Code am Ende (wenn das Problem gelöst wurde). Egal wie alt es ist.
Die neuen, jungen Programmierer stolpern immer wieder über dieselben Fehler und das Netz ist voll von fehlerhaften Beispielen.

Hier der richtige Code, der bei mir zauberhaft funktioniert (aus C#):

Code:

Windows.keybd_event((byte) key, (byte) Windows.MapVirtualKey(key, 0), Windows.KEYEVENTF_EXTENDEDKEY, 0);
Windows.keybd_event((byte) key, (byte) Windows.MapVirtualKey(key, 0), Windows.KEYEVENTF_EXTENDEDKEY | Windows.KEYEVENTF_KEYUP, 0);

Für dieses Problem (in Delphi):

Delphi-Quellcode:

Windows.keybd_event(VK_SHIFT, Windows.MapVirtualKey(VK_SHIFT, 0), KEYEVENTF_EXTENDEDKEY, 0); // Shift drücken
Windows.keybd_event(VK_INSERT, Windows.MapVirtualKey(VK_INSERT, 0), KEYEVENTF_EXTENDEDKEY, 0); // INS drücken
Windows.keybd_event(VK_INSERT, Windows.MapVirtualKey(VK_INSERT, 0), KEYEVENTF_EXTENDEDKEY or KEYEVENTF_KEYUP, 0); // INS loslassen
Windows.keybd_event(VK_SHIFT, Windows.MapVirtualKey(VK_SHIFT, 0), KEYEVENTF_EXTENDEDKEY or KEYEVENTF_KEYUP, 0); // Shift loslassen

Naja, lasst das mal so stehen, wenn ich kein Fehler gemacht habe.
// edit: 3 kleine Fehler korrigiert, danke an Bummi