Delphi + schowek

Wiem jak przechwycić moment w którym schowek jest modyfikowany.

Zastanawiam się natomiast czy jest sposób na to by wkleić tekst ze schowka do dowolnego aktywnego okna zaraz za kursorem (edytor tekstu, pasek adresu przeglądarki itp). Chodzi mi głównie o to by po skopiowaniu tekstu do schowka automatycznie wklejał się ten sam tekst z dołączonym moim dopiskiem.

Testowałem np. takie coś

  okno := GetForegroundWindow;
  Clipboard.AsText := 'jakiś tekst';
  SendMessage(okno,wm_paste,0,0);

ale nie działa.

Jest na to sposób?

dołączonym moim dopiskiem.

Wirus ? ;-P

Najpierw musiż rozróżnić co to jest (czy Opera, Firefox czy Microsoft Word). Później "dobiegasz" do kontrolki i zmieniasz odpowiednie dane.

To taki mój sposób ;-)

Wirus ?

Nie.

Mam program który po skopiowaniu do schowka pewnych fraz automatycznie je przetwarza i wynik zapisuje w schowku. Następnie ja ten wynik wklejam sobie do aktualnie pisanego tekstu.

Zastanawiałem się czy nie można by tego odrobinę przyśpieszyć i zamiast Ctrl+X i Ctrl+V zrobić by po Ctrl+X automatycznie działa się magia i przerobiony tekst wklejałby się sam.

Np: Po naciśnięciu Control + X wykonaj akcję, i zasymuluj kliknięcie Ctrl + V ;-)

Znalazłem taki kod do symulacji wciśnięcia tej kombinacji klawiszy

keybd_event(VK_CONTROL, 0, 0, 0);
keybd_event(Ord('V'), 0, 0, 0);
keybd_event(Ord('V'), 0, KEYEVENTF_KEYUP, 0);
keybd_event(VK_CONTROL, 0, KEYEVENTF_KEYUP, 0);

Ale to mi wkleja tekst dwukrotnie :/