"keybd_event" activieren und desactivieren

[DavidKlimas]

Ich möchte in einer Fremdanwendung einen vorher eingegebenen Text markieren und löschen. Dazu habe ich folgendes :

Delphi-Quellcode:

  keybd_event(VK_SHIFT, 0, KEYEVENTF_EXTENDEDKEY, 0);
  keybd_event(VK_END, 0, 0, 0);
  keybd_event(VK_END, 0, KEYEVENTF_KEYUP, 0);
  keybd_event(VK_SHIFT, 0, KEYEVENTF_KEYUP, 0);
  keybd_event(VK_DELETE, 0, 0, 0);
  keybd_event(VK_DELETE, 0, KEYEVENTF_KEYUP, 0);

Das Funktioniert auch prima, ausser das der neu eingegebene Text automatisch in grossbuchstaben geschrieben wird. Die Shift-taste ist immer noch aktiv trotz der keybd_event(VK_SHIFT, 0, KEYEVENTF_KEYUP, 0) anweisung. Was tun?

Danke für eure Hilfe.

[DavidKlimas]

Also ich hab jetzt folgendes :

Delphi-Quellcode:

  keybd_event(VK_SHIFT, 0, (KEYEVENTF_EXTENDEDKEY or 0), 0);
  keybd_event(VK_END, 0, 0, 0);
  keybd_event(VK_END, 0, KEYEVENTF_KEYUP, 0);
  keybd_event(VK_DELETE, 0, 0, 0);
  keybd_event(VK_DELETE, 0, KEYEVENTF_KEYUP, 0);
  keybd_event(VK_SHIFT, 0, (KEYEVENTF_EXTENDEDKEY or KEYEVENTF_KEYUP), 0);
  sleep(75);
  keybd_event(VK_SHIFT, 0, 0, 0);
  keybd_event(VK_SHIFT, 0, KEYEVENTF_KEYUP, 0);

was funktioniert aber nicht besonders sauber ist. Wenn jemand eine bessere lösung hat, bitte melden...