Wenn euch noch interessieren sollte wie ich das entsprechne
handle rausbekomme dann schaut euch diese Funktion an
Delphi-Quellcode:
function HandlePrint(
Handle: THandle; dat: LongWord): Boolean;
stdcall;
begin
// zeigt die Handles direkt im Chatfensters an
SendMessage(
Handle, WM_SETTEXT, 0, Integer(PChar('
Gewuenschte Handle ist: ' + IntToStr(searchNr))));
Inc(searchNr);
// weiter um alles Handles rauszufinden
Result := true;
end;
//----------------------------------
procedure TForm1.ButtonClick(Sender: TObject);
begin
iWindow := FindWindow(
nil, PChar('
Raum plauderecke'));
//Name des Chatfensters
searchNr := 0;
// zeigt die handles des Chatfensters an
if iWindow <> 0
then EnumChildWindows(iWindow, @HandlePrint, 0);
end;
testen könnt ihr das auf
www.spinchat.de im Raum plauderecke ihr könnt aber auch ein andren javachat dazu benutzen muss dann nur diese zeile iWindow := FindWindow(nil, PChar('Raum plauderecke')); angepasst werden