Hotkey Simulation für Win 7

[needmorecoffee]

Hallo,

ich habe einen etwas älteren code heraus gekramt, der Alt+Tab und nachfolgend Strg+V simuliert. Funktioniert wunderbar in Win XP, allerdings nicht in Win 7:

Code:

procedure TForm1.Button1Click(Sender: TObject);
begin
        If CheckBox1.Checked
        then begin
        //Alt+Tab
        Keybd_Event(VK_MENU,0,0,0);
        Keybd_Event(VK_TAB,0,0,0);
        Keybd_Event(VK_TAB,0,KEYEVENTF_KEYUP,0);
        Keybd_Event(VK_MENU,0,KEYEVENTF_KEYUP,0);

        //Strg+V
        keybd_event(VK_CONTROL, MapVirtualKey(VK_CONTROL, 0), 0, 0);
   keybd_event(Ord('V'), MapVirtualKey(Ord('V'), 0), 0, 0);
   keybd_event(Ord('V'), MapVirtualKey(Ord('V'), 0), KEYEVENTF_KEYUP, 0);
   keybd_event(VK_CONTROL, MapVirtualKey(VK_CONTROL, 0), KEYEVENTF_KEYUP, 0);
end;
end;

Kann mir jemand sagen warum?

Viele Grüße
Tim