|
Registriert seit: 22. Jul 2003
Ort: BRB
15 Beiträge
Delphi 6 Professional
|
Re: Probleme mit virtual keys
18. Sep 2003, 11:23
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.
Geht nicht, gibt's nicht.
|