Einzelnen Beitrag anzeigen

Benutzerbild von eddy
eddy

Registriert seit: 3. Jan 2003
Ort: Sachsen
573 Beiträge
 
Delphi 5 Professional
 
#1

Texte aus laufendem Fremd-Programm kopieren

  Alt 23. Sep 2003, 22:10
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
  Mit Zitat antworten Zitat