Shift Tab an andere Programm senden

[Dumpfbacke]

Hallo Leute,
so ganz langsam bin ich am verzweifeln.
Ich steuere ein fremdes Programm mit einen Programm von mir. Hierzu sende ich unter anderem Tastdrücke an das Programm. Das ganze funktioniert auch recht gut nur einen Rückschritt mittels Shift Tab bekomme ich einfachnicht hin. TAB, ALT TAB und STRG TAB funtionieren nur das blöde Zurück geht nicht.

Hier mal mein Code dazu. Eventuel kann mir jemand sagen wo es denn daran liegt. Ich verstehe es einfach nicht mehr. Dumm ist nur das das Programm welche ich steuern möchte den einen Button nur mittes Shift TAB zu erreichen ist. Ich habe auch schon versucht einfach einmal rundzulaufen nur das geht nicht da es dann das Feld überspringt. Blödes Teil

Delphi-Quellcode:

else if Pos('Tab',Macro)<>0
    then
     begin
      keybd_event(vk_TAB,0,0,0);
      keybd_event(vk_TAB,0,keyeventf_keyup,0);

     end

 //Tab senden
   else if Pos('Shift Tab',Macro)<>0
    then
     begin
      keybd_event(VK_Shift ,0,0,0);
      keybd_event(vk_TAB,0,0,0);
      keybd_event(vk_TAB,0,keyeventf_keyup,0);
     keybd_event(VK_Shift,0,keyeventf_keyup,0);
     end
//Tab senden
   else if Pos('STRG Tab',Macro)<>0
    then
     begin
      keybd_event(vk_Control,0,0,0);
      keybd_event(vk_TAB,0,0,0);
      keybd_event(vk_TAB,0,keyeventf_keyup,0);
      keybd_event(vk_Control,0,keyeventf_keyup,0);
     end


   else if Pos('ALT Tab',Macro)<>0
    then
     begin
      keybd_event(vk_Menu,0,0,0);
      keybd_event(VK_TAB ,0,0,0);
      keybd_event(vk_Menu,0,keyeventf_keyup,0);
      keybd_event(VK_TAB ,0,keyeventf_keyup,0);


     end

[Dumpfbacke]

Hat sich erledigt.Ich habe den Fehler gefunden

[idefix2]

Wie schön für dich :-D