Tastendruck mit KEYBD_EVENT erzeugen

[Shark99]

Ich benutze KEYBD_EVENT um einen Tastendruck zu simulieren.

Es klappt wenn ich CTRL + v erzeugen will:

Delphi-Quellcode:

       KEYBD_EVENT(VK_CONTROL,0,0,0); // Strg-Taste drücken
       KEYBD_EVENT(VKKeyScan('v'),0,0,0); // v-Taste drücken
       KEYBD_EVENT(VK_CONTROL,0,KEYEVENTF_KEYUP,0); // Strg-Taste loslassen

Wenn ich es jedoch mit SHIFT + Insert versuche klappt es nicht!

Delphi-Quellcode:

       KEYBD_EVENT(VK_SHIFT,0,0,0); // Shift-Taste drücken
       KEYBD_EVENT(VK_INSERT,0,0,0); // INS-Taste drücken
       KEYBD_EVENT(VK_SHIFT,0,KEYEVENTF_KEYUP,0); // Shift-Taste loslassen

Es kommt nur die Insert Taste statt Shift + Inser an.

Was mache ich falsch?

[plusplus]

versuche mal:

KEYBD_EVENT(VK_SHIFT,0,0,0); // Shift-Taste drücken
KEYBD_EVENT(VK_INSERT, MapVirtualKey(VK_INSERT, 0),0,0); // INS-Taste drücken
KEYBD_EVENT(VK_INSERT, MapVirtualKey(VK_INSERT, 0),2,0); // INS-Taste loslassen
KEYBD_EVENT(VK_SHIFT,0,KEYEVENTF_KEYUP,0); // Shift-Taste loslassen


PS: MapVirtualKey ist auch ein API call

[Shark99]

Danke, aber es funktioniert genau so wenig, nur Insert wird geschickt, ohne Shift.

Ich habe mittlerweile eine halbe Lösung.

So wird Shift + Insert geschickt:

Delphi-Quellcode:

       KEYBD_EVENT(VK_SHIFT,0,KEYEVENTF_EXTENDEDKEY,0); // Shift-Taste drücken
       KEYBD_EVENT(VK_INSERT,0,0,0); // INS-Taste drücken
       KEYBD_EVENT(VK_SHIFT,0,KEYEVENTF_KEYUP,0); // Shift-Taste loslassen

Allerdings bleibt Shift danach dauerhaft gedrückt, d.h. geht nicht mehr hoch, man ist also in einem CAPS-Lock state (ohne dass Caps-Lock leuchtet).

Loslassen klappt auch nicht mit KEYBD_EVENT(VK_SHIFT,0,KEYEVENTF_EXTENDEDKEY or KEYEVENTF_KEYUP,0);

[plusplus]

jede taste die gedruckt wird muss man auch wieder loslassen, du must insert key auch loslassen. meine loesung fuktioniert, ich habe es vielemal gebraucht, ich verstehe nicht warum es bei dir nicht geklapt hat. Ich habe alerdings den Ctrl key jemals gebraucht.

[Shark99]

Das Problem ist nur mit Shift, Alt und Ctrl haben das Problem nicht. An loslassen der Insert Taste liegt es auch nicht. Auch wenn ich die per Code loslasse ändert sich an der Sache nichts. Wobei ich mir gar nicht sicher bin ob man die wirklich loslassen muss, weil Tasten wie Insert kann nicht unten gehalten werden können, aber das ist Offtopic.

[Satty67]

Wie sieht es damit aus

Delphi-Quellcode:

       KEYBD_EVENT(VK_SHIFT,0,KEYEVENTF_EXTENDEDKEY,0); 
       KEYBD_EVENT(VK_INSERT,0,0,0); 
       KEYBD_EVENT(VK_SHIFT,0,KEYEVENTF_EXTENDEDKEY or KEYEVENTF_KEYUP,0);

Alternative wäre noch SendInput-Funktion