Announcement

Collapse
No announcement yet.

Wie kriege ich zugriff auf eine andere (Externe-)Anwendung(->Editboxen)?

Collapse
X
  • Filter
  • Time
  • Show
Clear All
new posts

  • Wie kriege ich zugriff auf eine andere (Externe-)Anwendung(->Editboxen)?

    Hallo Leuts ...,ich habe folgendes problem,ich habe es geschafft einen String zB: 'Test' in ein Editfeld,einer anderen Anwendung(die natürlich aktiv ist),zu schreiben bzw. einzufügen.Dank Spy++/WinSight wusste ich wie ich das Editfeld anspreche(SendMessage ...+ Classname).Nun aber zum problem...
    Das Programm hat aber "2" editboxen,und beide sind mit dem ClassName "Edit" deklariert(info habe ich aus 'SPY++/WinSight').
    Ich möchte aber beide Editfelder ansprechen.Wie mache ich das?
    Ich schaffe nur das 1te Editfeld mit einem belibiegen string zu versehen.
    das 2te Editfeld schaffe ich nicht anzusprechen.Kann mir bitte eine/r helfen?

    ok...bis denne ,cu all
    ps: Hier ein auszug der Procedure ...
    --------------------------------------
    procedure TForm1.Button1Click(Sender:Object);
    var
    hAWnd,
    hedit : hWnd;
    begin
    hAWnd := FindWindow('#32770', nil); // ist die Anwendung
    if hAWnd <> 0 then
    begin
    hedit := FindWindowEx(hAWnd, 0, PChar('Edit'), nil);
    MessageBeep(0);
    SendMessage(hedit, WM_SetText, 0, LongIn(PChar('TEST')));
    end;
    end;
    ------------------------------------------------------------------------

  • #2
    Ist die andere App auch in Delphi geschrieben?? Wenn ja: DDE benützen

    Comment


    • #3
      Versuch doch mal, nach dem Eintrag in der 1. Edit-Box folgendes:
      PostMessage(Handle, WM_NEXTDLGCTL, 0, 0), dann neuen Text senden

      Comment

      Working...
      X