Inhalt eines Editfelds einer Fremdanwendung auslesen? Wie?

[niemandsland]

Morgen,

ich hab da ein Problem:
ich möchte gern den Inhalt aus einem Edit (Textfeld) einer Fremdanwendung holen und es unter bestimmten Umständen auch schreiben. Um mal warm zu werden hab ich mich an einem Beispiel, den Windows Taschenrechner ("calc.exe") versucht. Das klappt ganz gut. Leider komme ich damit bei meinem Programm nicht weiter. Jetzt wollte ich mich an mein eigentliches Programm machen. Doch da fehlt mir die zündende Idee.

Vielleicht kann mir ja hier jemand helfen.

Zuerst mal ein Source

Delphi-Quellcode:

type
  TForm1 = class(TForm)
    myMemo1: TMemo;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

const
  WinName = 'Pauls Commander';
  WinClass = NIL;

implementation

{$R *.dfm}

function EnumProc(StHandle: HWND; lines: TStrings): boolean; stdcall;
var
  buffer, desc: array [0..100] of char; // max. 101 Zeichen
begin
  GetClassname(StHandle, buffer, 100); // 100
  GetWindowText(StHandle, desc, 100); // 100
  lines.add(format('ID: %d, Class: %s, Text: %s',[GetDlgCtrlID(StHandle), buffer, desc]));
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  hwnd:dword;
begin
  myMemo1.clear;
  hwnd := FindWindow(WinClass, WinName);
  if (hwnd = 0) then
  begin
    messagebox(0,'Programm nicht im Speicher!','Warning!',0);
    exit;
  end;
  EnumChildWindows(hwnd,@EnumProc,Integer(myMemo1.Lines));
// Handle, Functioncall, <return result>
end;

Das Beispiel funktionierte beim Windowstaschenrechner (CALC) noch ganz gut. Bei meinem zweiten Programm komme ich aber irgendwie nicht wirklich an mein Textfeld {EDIT}. Und schon gar nicht an den Inhalt dieses Feldes. Kann mir da mal jemand helfen? Ich hab zwar die einzelnen Childwindows soweit aufgelistet... Auch die drei Textfelder sind mit ID enthalten; Allerdings fehlt der Inhalt des Textfeldes.

Wäre für jede Hilfe dankbar!

Achja, nur mal so eine IDee...

Kommt man am Ende einfacher ans Ziel, wenn man sich in das Programm per Hook einklinkt? Wie mach ich das am gescheitesten? Wenn ich jetzt keinen Denkfehler habe, dann läuft die Aktion doch fast auf die gleiche Geschichte hinaus, right?

>Besten Dank im voraus für Eure Mühe!

-NimalA-

[Luckie]

Also wenn du die ID schon hast, dann versuch mal GetDlgItemText.

[Reddog]

Oder mit:

Delphi-Quellcode:

 
...

var
  Text: string;
  count: integer;

begin
  count:= 256;
  SetLength(Text, 256);
  count:= SendMessage(Handle, WM_GETTEXT, count, integer(PChar(Text)));
  SetLength(Text, count);

...

Sollte so gehen. HabS' jetzt nicht getestet, aber vor kurzer Zeit hab ich auch so ein Prog geschrieben.

Reddog.

[niemandsland]

@ Luckie

Danke für Deine schnelle Antwort heute morgen. Ich hab mir auch gleich die Doku -hier- durchgelesen. Und daraufhin die Zeile die ich ins Memo schreibe ein wenig umgestellt! Eigentlich wollte ich den Inhalt sämtlicher Textfelder mal eben mitauslesen... aber irgendwie war das ein Satz mit X.

Ich bin entweder noch nicht wach (bin ich nie!), oder zu blöd -- da blond!

Ich hab da jetzt ein Problem:
lines.add(format('ID: %d, class: %s, caption: %s, text: %s',[GetDlgCtrlID(AHandle), buf, Caption,(GetDlgItemText(AHandle,(GetDlgCtrlID(AHandle)),pop,256))])); Achja, pop ist 'nen 256er "array of char"!

Kann mir da vielleicht mal eben jemand auf die Sprünge helfen?

@ Reddog

Danke für die Antwort. Hast Du vielleicht auch eben mal die Syntax für WM_SENDTEXT zur Hand?

Ich werde mich dann damit noch ein wenig vergnügen!

@ ALL

Mal eben eine Frage... mir fällt dazu gerade nichts gescheites ein...

Ich habe in dem Programm (auf das ich zugreifen möchte) 7 oder 8 Textfelder {EDIT} gefunden. Die Inhalte sind recht ähnlich. Wie kann ich da sinnvoll das richtige rausfinden?! Hab schon ein wenig versucht. War aber immer mal das falsche dabei.

Es geht in allen Feldern um Koordinateninfos und Bezugspunkte. Aus diesem Grund will mir auch noch nicht so wirklich was gescheites einfallen.

Hat da jemand was dazu?

-NimalA-

[niemandsland]

@ ALLE DIE GEANTWORTET HABEN!

Danke. Habs in der vergangenen Nacht soweit gelöst. Hatte wohl wirklich 'nen Aussetzer!

Mein einzigsten -Problem- ist jetzt noch, wie simuliere ich das Drücken der Return-Taste bzw. des Mausbutton in der fremden Anwendung? Insbesondere innerhalb eines Edit-Felds?

Besten Dank im voraus für Eure Mühe!

-NimalA-

[SirThornberry]

wenn das Fenster wo der klick erfolgen soll sichtbar ist geht es mit.

Delphi-Quellcode:

mouse_event(MOUSEEVENTF_LEFTDOWN, x, y, 0, 0);
mouse_event(MOUSEEVENTF_LEFTUp, x, y, 0, 0);

Anstelle von x und y die Coordinate eintragen wo der Button relativ zum screen liegt. Ansonsten musst du mit Sendmessage ne Nachricht an den Button schicken

[Luckie]

Das mit den Koordinaten ist nicht so gut. Hardcoden geht nicht und vorher immer ermitteln ist auch blöd. Wenn du das Handle des Buttons hast, sende ein BM_CLICK oder ein BN_CLICK (das verwechsele ich immer ) an den Button.

[niemandsland]

@ Luckie

Nochmals Danke! Bleibt nur noch ein Punkt übrig:

Mein einzigsten -Problem- ist jetzt noch, wie simuliere ich das drücken der Return-Taste innerhalb des Edit-Felds (ebenfalls in der fremden Anwendung?)

-NimalA-

[Reddog]

Ich würde direkt an das Edit-Feld die Messages WM_KEYDOWN + WM_KEYUP senden mit VK_RETURN als wParam. Bei WM_KEYUP muss man noch aufpassen, welche Flags bei lParam gesetzt werden müssen. Soweit ich mich erinnere habe ich immer lParam = 1 or (3 shl 29) gesetzt. Ob das jetzt auch richtig ist, kann ich nicht mit Sicherheit sagen.

Ich gehe auch davon aus, dass du das Handle des EDITs hast.

Reddog.

[niemandsland]

Zitat von Reddog:

Ich würde direkt an das Edit-Feld die Messages WM_KEYDOWN + WM_KEYUP senden mit VK_RETURN als wParam. (...)

Ich gehe auch davon aus, dass du das Handle des EDITs hast.

Erstmal Danke für die Antwort!

Ja, klar Handle hab ich. Aber ich kann mir gerade auf Deinen Vorschlag oben keinen Reim machen...
Du meinst etwa:

Delphi-Quellcode:

SendMessageA(<hanlde>, WM_KEYDOWN, VK_RETURN, 0);
SendMessageA(<hanlde>, WM_KEYUP, VK_RETURN, (1or(3shl29)));

Falls ich da jetzt um 1 Uhr in der Nacht nicht ganz folgen kann, so bitte ich mal um ein CodeSchnipsel der die entsprechende Passage enthält! Das wäre jedenfalls super!

Danke!

-NimalA-