Probleme mit virtual keys

[Wotan]

Ich wollte an ein dos-programm folgende Tasten senden:

Enter
E
NachUnten
Enter
....

hat auf einem rechner prima funktioniert. als ich es dann auch auf einem anderen rechner laufen lassen wollte, haben die pfeiltasten nicht mehr funktioniert.

[Robert Marquardt]

Eigentlich sollte das entweder mit KEYEVENTF_EXTENDEDKEY oder ohne funktionieren. Zeig doch mal deinen Code.
Bei Notebooks besteht aber immer eine gewisse Chance das ein spezieller Treiber (z. B. fuer Spezialtasten) dazwischenpfuscht.

[Wotan]

Hier ist ein Auszug aus meinem Prog.

....
if form6.listbox1.Items.Strings[x]='Enter' then
Begin
keybd_event(VK_return, MapVirtualKey(VK_return, 0), 0, 0);
keybd_event(VK_return, MapVirtualKey(VK_return, 0),KEYEVENTF_KEYUP,0);
End else
if form6.listbox1.Items.Strings[x]='Hoch' then
Begin
keybd_event(VK_down, MapVirtualKey(VK_up, 0), 0, 0);
keybd_event(VK_down, MapVirtualKey(VK_up, 0), KEYEVENTF_KEYUP, 0);
End else
if form6.listbox1.Items.Strings[x]='Runter' then
Begin
keybd_event(VK_down, MapVirtualKey(VK_down, 0), 0, 0);
keybd_event(VK_down, MapVirtualKey(VK_down, 0), KEYEVENTF_KEYUP, 0);
End else
if form6.listbox1.Items.Strings[x]='Links' then
Begin
keybd_event(VK_down, MapVirtualKey(VK_left, 0), 0, 0);
keybd_event(VK_down, MapVirtualKey(VK_left, 0), KEYEVENTF_KEYUP, 0);
End else
if form6.listbox1.Items.Strings[x]='Rechts' then
Begin
keybd_event(VK_down, MapVirtualKey(VK_right, 0), 0, 0);
keybd_event(VK_down, MapVirtualKey(VK_right, 0), KEYEVENTF_KEYUP, 0);
End else
....

Wie gesagt, läuft auf dem einen Rechner prima und auf dem anderen nicht.

[Robert Marquardt]

Erst mal den Fehler beheben. Innerhalb der Aufrufe ueberall den gleichen VK_ Code angeben.

keybd_event(VK_down, MapVirtualKey(VK_down, 0), 0, 0);
keybd_event(VK_down, MapVirtualKey(VK_down, 0), KEYEVENTF_KEYUP, 0);

Wenn das nicht hilft dann mal mit KEYEVENTF_EXTENDEDKEY.

keybd_event(VK_down, MapVirtualKey(VK_down, 0), KEYEVENTF_KEYDOWN or KEYEVENTF_EXTENDEDKEY, 0);
keybd_event(VK_down, MapVirtualKey(VK_down, 0), KEYEVENTF_KEYUP or KEYEVENTF_EXTENDEDKEY, 0);

Es kann gut sein das es dann auf dem anderen aber nicht mehr auf dem einen Rechner geht.

[Wotan]

Hi Robert,

stimmt. ich hatte da teilweise die falschen vk_ codes drin.
aber beim vk_down ('runter') hat's ja gestimmt und nicht funktioniert.

ich werde jetzt mal die andere lösung von dir ausprobieren.

gruß wotan