Emulacja klawiatury po raz n-ty

Witam serdecznie.
Mam pewien problem z którego nijak nie potrafię wyjść, otóż potrzebuję zasymulować w Delphi dwukrotne naciśnięcie kombinacji klawiszy prawy CRTL i ScrollLOCK (na potrzeby zrobienia zrzutu z pamięci). Inaczej mówiąc uruchamiam program naciskam Button i powinno mi się wykonać dwukrotne naciśnięcie ScrollLock z przytrzymanym prawym Controlem. Niestety wszelkie próby z tego forum sprawdziłem dotyczących symulacji naciśnięcia klawiszy i nie działają [???] czy te klawisze są jakoś inaczej wywoływane. Robiłem tak i nic:

  keybd_event(VK_RCONTROL,0, 0, 0);
  keybd_event(VK_SCROLL,0, 0, 0);
  keybd_event(VK_SCROLL, 0, KEYEVENTF_KEYUP, 0);
  keybd_event(VK_SCROLL,0, 0, 0);
  keybd_event(VK_SCROLL,0, KEYEVENTF_KEYUP, 0);
  keybd_event(VK_RCONTROL,0, KEYEVENTF_KEYUP, 0);

albo inaczej

  PostMessage(0, WM_KEYDOWN,VK_RCONTROL,0);  
  PostMessage(0, WM_KEYDOWN,VK_SCROLL,0);       
  PostMessage(0, WM_KEYUP,VK_SCROLL,0);
  PostMessage(0, WM_KEYDOWN,VK_SCROLL,0);
  PostMessage(0, WM_KEYUP,VK_SCROLL,0);
  PostMessage(0, WM_KEYDOWN,VK_RCONTROL,0);

również nie działa
Bardzo proszę o pomoc albo jakąś podpowiedź [soczek]
</b>

Zerknij tutaj - http://forum.codecall.net/classes-code-snippets/13649-c-keyboard-mouse-emulation.html

cyriel napisał(a)

Zerknij tutaj - http://forum.codecall.net/classes-code-snippets/13649-c-keyboard-mouse-emulation.html

fajnie, dzięki a coś pod Delphi [???]

Pod delphi tez powinno pojsc po malych zmianach.

cyriel napisał(a)

Pod delphi tez powinno pojsc po malych zmianach.

niestety nie dam rady przekombinwać to na Delphi [wstyd]

naprawdę nikt nie wie jak się do tego zabrać w Delphi ?