Kompletten Fenstertitel von einem fremden Programm ermitteln

[zeras]

Ich habe mir einmal irgendwoher einen Code zusammengebastet, wo ich mit der Maus auf der Fensterrahmen zeige. Dann wird der Name des Fensters gemerkt. Diesen nutze ich dann, um damit Screenshots zu erzeugen. Meistens läuft das über einen VNC Viewer, wo ich mir den Fensterinhalt kopiere, dann Ränder beschneide und dann ins Clipboard lege oder mit Senden an an Outlook sende.

Delphi-Quellcode:

var
   buffer: array [0..255] of Char;
   p: TPoint;

begin
  Caption:= '';
  GetCursorPos(p);
  GetClassName(WindowFromPoint(p), buffer, length(buffer));
  Caption:= 'Classname: '+ string(buffer);

  //wir können 2 verschiedene Fenster suchen lassen
  if RBWindowSearch1.Checked then begin
    EClassName1.Text:=string(buffer);
  end
  else begin
    EClassName2.Text:=string(buffer);
  end;

  GetWindowText(WindowFromPoint(p), buffer, length(buffer));
  Caption:= Caption+ '   WindowText: '+ string(buffer);
  beep;
  Timer1.Enabled:=False;
  caption:=fMain.HeadCaption; //Kopf wieder mit Ori beschreiben
  BtnStart2FindClass.Enabled:=True;
end;