In fremdes Fenster schreiben [SunAwtCanvas]

[wishdelphi]

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

[wishdelphi]

hallo nochmal,

hatte leider vergessen die meldungen vom compiler anzugeben:

Code:

Variable 'hChild' ist möglicherweise nicht initialisiert worden
Rückgabewert der Funktion 'FindWindowEx2' könnte undefiniert sein

greetz

Wishy

[toms]

Hi,

Ich vermute, dass die Funktion FindWindowEx2 nicht mit der internen FindWindowEx2
übereinstimmt, welche ja anscheinend das Fenster findet.

Werde das heute Abend überprüfen.

[dizzy]

\\edit: War Quatsch. Ich bin von einer Application ausgegangen...

[toms]

Zitat von wishdelphi:

hallo nochmal,

hatte leider vergessen die meldungen vom compiler anzugeben:

Code:

Variable 'hChild' ist möglicherweise nicht initialisiert worden

Hatte tatsaechlich etwas mit der Initialisation von hChild zu tun.
Brauchst nur noch hChild := 0; hinzuzufuegen, dann sollte die Funktion
korrekt ausgefuehrt werden.

Delphi-Quellcode:

function FindWindowEx2(hParent: HWND; ChildClassName: string; ChildNr: Word): HWND; 
var 
  i: Word; 
  hChild: HWND; 
begin 
  hChild := 0; // <-------------
  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;

[Luckie]

Für alle, die es intersssiert, in einem anderem Forum wurde dem Threadersteller bereits geholfen:
http://www.dsdt.info/YaBBSe/index.ph...threadid=24353