also, ich habe das jetzt wieder gefunden, hier im Forum:
Delphi-Quellcode:
procedure TForm1.FormCreate(Sender: TObject);
var h: HWND;
text,classname:String;
var i : integer;
begin
for i:=0 to 20 do begin
gettickcount;
begin
h:=FindWindow(nil,'Name des Chatteilnehmers');
//h:=GetForegroundWindow;
SetLength(text,SendMessage(h,WM_GETTEXTLENGTH,0,0)+1);
SendMessage(h,WM_GETTEXT,length(text),Integer(@text[1]));
SetLength(ClassName, 255);
//get the class name and reset the
//memory area to the size of the name
SetLength(ClassName,
GetClassName(h,
PChar(className),
Length(className)));
memo1.Text:=classname;
memo2.Text:=text;
end;
end;
end;
So... das Ganze läuft in einer Schleife, damit es sich ständig aktualisiert.
Ich komme zwar nun an den Klassennamen heran (der bei Icq immer gleich ist), aber
ich weiß nicht, wie ich auf das Eingabefeld in diesem Chatfenster zugreifen kann.
Außerdem, ist der Titel des Fensters, der Name des anderen Users, was sich ja auch ständig ändert, also kann man das ja auch nicht oben einfach so ohne variable bei h:=findwindow festlegen.