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;
------------------------------------------------------------------------
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;
------------------------------------------------------------------------
Comment