Text Kopieren mittels Shift Ende

[bitsetter]

Hi,

eigentlich funktioniert es doch, zumindest wird Shift + End simuliert. Wenn ich zum Testen vorher ein Seep(2000) ausführe und innerhalb der 2 Sekunden den Cursor zum Beispiel in die Mitte einer Zeile im Editor setze, wird die Zeile von der Mitte bis zum Ende bei mir markiert.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  sleep(2000);
  Keybd_event(vk_Shift,0,0,0);
  keybd_event(VK_end,0,0,0);
  keybd_event(vk_Shift,0, keyeventf_keyup, 0);
  keybd_event(vk_end,0, keyeventf_keyup, 0);
end;