Hotkey wird nicht ausgelöst, welche Windowseinstellung

[SaFu]

Gutten morgen,

ich habe mir ein kleine minitool geschrieben zum umschalten eines USB-Switch.

Jetzt habe Problem, das der Hotkey beim gesperrten Windowsbenutzer nicht auslöst.

Code:

procedure TForm1.Button1Click(Sender: TObject);
var Count:integer;
begin
 for Count:= 1 to 2 do
  begin
    keybd_event(VK_Scroll, MapVirtualKey(VK_Scroll, 0), KEYEVENTF_EXTENDEDKEY, 0); // Scroll drücken
    keybd_event(VK_Scroll, MapVirtualKey(VK_Scroll, 0), KEYEVENTF_EXTENDEDKEY or KEYEVENTF_KEYUP, 0); // Scroll loslassen
    sleep(200);
  end;
  Label1.Caption:=('Geschaltet am: ' + (DateToStr(Now)) + #10 + 'Geschaltet um: ' +(TimeToStr(Now)));
end;

Das komische ist, das es bei einer anderen Windowskiste funktioniert bei geperrten Benutzer.

Hatte jemand vielleicht schonmal das Problem, oder weis jemand woran das liegen könnte?

LG