AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Sprachen und Entwicklungsumgebungen Sonstige Fragen zu Delphi Kompletten Fenstertitel von einem fremden Programm ermitteln
Thema durchsuchen
Ansicht
Themen-Optionen

Kompletten Fenstertitel von einem fremden Programm ermitteln

Ein Thema von KahPee · begonnen am 10. Sep 2010 · letzter Beitrag vom 11. Sep 2010
Antwort Antwort
Benutzerbild von KahPee
KahPee

Registriert seit: 12. Mai 2009
214 Beiträge
 
Turbo Delphi für Win32
 
#1

Kompletten Fenstertitel von einem fremden Programm ermitteln

  Alt 10. Sep 2010, 22:51
Hallo,

ich brauche den kompletten Fenstertitel von einem fremden Programm. Der Titel des Fensters ist ungefähr so aufgebaut:
Code:
Programm - 'Unbekannt'
Heißt ich weiß wie die ersten Buchstaben lauten. Ich möchte nun die als erstes das Handle des Fensters ermitteln welches mit diesem Zeichenfolge anfängt und dann kann ich über das Handle den kompletten Fenstertitel ermitteln [wenn das einfacher geht nehme ich gerne Vorschläge an]. Gesucht ist also der 'Unbekannt'-Teil

Zusätzlich wäre schön wenn folgendes berücksichtigt werden kann:
Das Programm ist nicht immer als Fenster auf. D.h. wenn man auf "x" klickt minimiert sich das Programm in den Tray-Bereich. Der "Fenstertitel" wird dann angezeigt wenn man nun mit Mouseover über den Icon geht. Ich weiß nicht inwiefern es sich hierbei um einen noch auslesbaren Fenstertitel handelt. Oder ob das sogar der Programmtitel ist. Der Text beim MouseOverereignis ist der gleiche wie der Text des Fenstertitels und der Text des Mouseoverereignisses wenn man mit der Maus über das minimierte Fenster in der Taskbar geht.


Vielen Dank im voraus

KahPee
  Mit Zitat antworten Zitat
Benutzerbild von SirThornberry
SirThornberry
(Moderator)

Registriert seit: 23. Sep 2003
Ort: Bockwen
12.235 Beiträge
 
Delphi 2006 Professional
 
#2

AW: Kompletten Fenstertitel von einem fremden Programm ermitteln

  Alt 10. Sep 2010, 22:53
Um welche Fensterklasse handelt es sich? Wenn diese Einzigartig ist könntest du anhand des Klassennamen über FindWindow suchen.
Jens
Mit Source ist es wie mit Kunst - Hauptsache der Künstler versteht's
  Mit Zitat antworten Zitat
Benutzerbild von KahPee
KahPee

Registriert seit: 12. Mai 2009
214 Beiträge
 
Turbo Delphi für Win32
 
#3

AW: Kompletten Fenstertitel von einem fremden Programm ermitteln

  Alt 10. Sep 2010, 22:55
Was genau ist eine Fensterklasse?
Ich weis nicht genau wie das Fremdprogramm läuft. Dabei handelt es sich um eine externe Anwendung.
  Mit Zitat antworten Zitat
Benutzerbild von SirThornberry
SirThornberry
(Moderator)

Registriert seit: 23. Sep 2003
Ort: Bockwen
12.235 Beiträge
 
Delphi 2006 Professional
 
#4

AW: Kompletten Fenstertitel von einem fremden Programm ermitteln

  Alt 10. Sep 2010, 23:18
Verwende einfach mal ein Programm wie winspy um etwas über das Fenster zu erfahren.
Jens
Mit Source ist es wie mit Kunst - Hauptsache der Künstler versteht's
  Mit Zitat antworten Zitat
Satty67

Registriert seit: 24. Feb 2007
Ort: Baden
1.566 Beiträge
 
Delphi 2007 Professional
 
#5

AW: Kompletten Fenstertitel von einem fremden Programm ermitteln

  Alt 11. Sep 2010, 00:11
Mit EnumWindows -> EnumWindowsProc -> GetWindowText solltest Du so gut wie alle Fenster bekommen. Auch Fenster, die zu einem NotifyIcon minimiert sind.

Das Ergebnis von GetWindowText kannst Du ja mit Deinem VorgabeText vergleichen.
Delphi-Quellcode:
function EnumWindowsProc(HWindow : HWnd; LParameter : lParam): Boolean; stdcall;
var
  CaptionText : PChar;
  i : Integer;
begin
  CaptionText := StrAlloc(255);

  i := GetWindowText(HWindow, CaptionText, 255);
  if i > 0 then
    Form1.ListBox1.Items.Add(String(CaptionText));

  StrDispose(CaptionText);
  Result := true;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Windows.EnumWindows(@EnumWindowsProc, 0);
end;
In EnumWindowsProc auf Form1 zuzugreifen ist natürlich nur eine schnelle Notlösung, um das Ergenis zu testen. Das "muss" in einer eingesetzten Variante natürlich anders gelöst werden.

Geändert von Satty67 (11. Sep 2010 um 00:17 Uhr)
  Mit Zitat antworten Zitat
Benutzerbild von Luckie
Luckie

Registriert seit: 29. Mai 2002
37.621 Beiträge
 
Delphi 2006 Professional
 
#6

AW: Kompletten Fenstertitel von einem fremden Programm ermitteln

  Alt 11. Sep 2010, 02:30
Wenn du die Fensterklasse kennst, brauchst du natürlich nicht alle Fenster durch zu enumerieren, sondern kannst gleich bei MSDN-Library durchsuchenFindWindow die Fensterklasse angeben, um an das Hamdle für das Fenster zu kommen.

Delphi-Quellcode:
function GetWindowCaption(WindowClass: String): String;
var
  Handle: THandle;
  CaptionLength: Cardinal;
  WindowCaption: String;
begin
  Handle := FindWindow(PChar(WindowClass), nil);
  if Handle <> 0 then
  begin
    CaptionLength := SendMessage(Handle, WM_GETTEXTLENGTH, 0, 0);
    SetLength(WindowCaption, CaptionLength);
    SendMessage(Handle, WM_GETTEXT, CaptionLength, Integer(@WindowCaption[1]));
    SetString(result, PChar(WindowCaption), Length(WindowCaption));
  end
  else
    raise Exception.Create(SysErrorMessage(GetLastError));
end;
Beispielaufruf:
Delphi-Quellcode:
var
  WindowCaption: String;

begin
  try
    WindowCaption := GetWindowCaption('Notepad++');
    Writeln(WindowCaption);
  except
    on E: Exception do
      WriteLn(E.Message);
  end;
  ReadLn;
end.
Michael
Ein Teil meines Codes würde euch verunsichern.

Geändert von Luckie (11. Sep 2010 um 03:28 Uhr)
  Mit Zitat antworten Zitat
zeras

Registriert seit: 11. Mär 2007
Ort: Saalkreis
1.633 Beiträge
 
Delphi 12 Athens
 
#7

AW: Kompletten Fenstertitel von einem fremden Programm ermitteln

  Alt 11. Sep 2010, 09:09
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;
Matthias
Es ist nie falsch das Richtige zu tun!
- Mark Twain
  Mit Zitat antworten Zitat
Antwort Antwort


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 18:11 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz