Texte aus laufendem Fremd-Programm kopieren

[eddy]

Hallo Leute,

ich möchte mir eine anspruchslose sich immer mal wiederholende Tätigkeit mit einem Mausclick erleichtern. Aus einer über das Internet anwählbaren Daten-Verwaltung (Fremd-Anwendung), die nicht mit TWebBrowser geöffnet werden kann, stehen in einem Memofeld Daten, die ich mit der Maus markiere, mit Ctrl-C kopiere und, nach einem Wechsel in mein Programm, mit Ctrl-V in ein Memofeld einfüge und weiter bearbeite.

Mit

Code:

procedure TFKasse.SpeedButton11Click(Sender: TObject);
var
   hdl, svhdl : DWORD;
begin
  s := 'Order Datenquelle';
  hdl := findwindow(nil,pchar(s));
  svhdl := GetForeGroundWindow;
  BringWindowToTop(hdl);
  SetActiveWindow(hdl);
  sleep(2000);
  BringWindowToTop(svhdl);
end;

kann ich in das entsprechende Fenster wechseln, bekomme es angezeigt und gelange in meine Anwendung zurück.

Anstatt "sleep" benötige ich jetzt noch eine Funktion, die mir das Markieren und Kopieren eines bestimmten Inhaltes aus 'Order Datenquelle' erlaubt in der Art wie mit TWebBrowser:

Code:

    WebBrowser1.ExecWB(OLECMDID_SELECTALL, OLECMDEXECOPT_PROMPTUSER);
    WebBrowser1.ExecWB(OLECMDID_COPY, OLECMDEXECOPT_PROMPTUSER);

mfg
eddy