Markierten Text aus einer anderen Anwendung einlesen

[Shaman]

Hallo

Delphi-Quellcode:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  keybd_event(VK_CONTROL, 0, 0, 0);
  keybd_event(Ord('C'), 0, 0, 0);
  keybd_event(VK_CONTROL, 0, KEYEVENTF_KEYUP, 0);
  Sleep(10);
  if Clipboard.HasFormat(CF_TEXT) then Caption:= Clipboard.AsText;
end;

Ist zwar grausig, aber so gehts überall. Solltest nur schauen, dass Du den vorherigen Inhalt der Zwischenablage irgendwie sichern kannst, damits wenigstens ein bisschen sauberer ist.

Gruss
Shaman