Einzelnen Beitrag anzeigen

wishdelphi

Registriert seit: 22. Feb 2005
2 Beiträge
 
#1

In fremdes Fenster schreiben [SunAwtCanvas]

  Alt 22. Feb 2005, 12:41
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
  Mit Zitat antworten Zitat