hallo,
ich versuche per SENDMESSAGE einen Text an ein Edit
von einem Chat zu senden. Um das
Handle zu bekommen
habe ich WinSpy benutzt, das mir dann folgenden Code
erstellt hat:
Code:
function FindWindowEx2(hParent: HWND; ChildClassName: string; ChildNr: Word): HWND;
var
i: Word;
hChild: HWND;
begin
ChildNr := ChildNr - 1;
for i := 0 to ChildNr do
begin
hChild := FindWindowEx(hParent, hChild, PChar(ChildClassName), nil);
if hChild = 0 then
Exit;
Result := hChild;
end;
end;
Code:
var
wnd: HWND;
begin
wnd := FindWindow('
COM.volano.vau','Aachen Flirt (fdfdfd)');
wnd := FindWindowEx2(wnd,'SunAwtCanvas', 2);
wnd := FindWindowEx(wnd, 0, 'Edit', nil);
if wnd <> 0 then
begin
writeln('Window found.
Handle: ' + IntToStr(wnd));
FlashWindow(wnd);
end;
end.
ich habe testweise dieses versucht:
Code:
if wnd <> 0 then
ShowMessage('Fenster gefunden');
end;
nur leider wird meine showmessage nicht ausgeführt,
was mich zu dem schluss bringt das, das fenster
bzw. die editbox nicht gefunden werden kann.
nur ist die frage -> wieso? wenn ich den quelltext
mit WinSpy kompiliere und ausführe wird die
editbox zum blinken gebracht.
was mache ich falsch, bzw. warum funktioniert es nicht.
ich kann in andere fenster problemlos reinschreiben.
nur sobald diese fenster irgendwas mit "SunAwtCanvas" zutun
haben gehts nichts mehr.
In Google konnte ich nichts über "SunAwtCanvas" finden.
Zumindest nichts was mich weitergebracht hätte.
Bin für jeden Vorschlag und Lösungsweg dankbar.
greetz
Wishy