Fenstername und Dateiname aus Handle herausfinden

[Luckie]

Musstest du diese Jugendsünde wieder hervor holen?

[Delphi-Laie]

Zitat von Luckie:

Musstest du diese Jugendsünde wieder hervor holen?

Bis auf den Vergleich einer Boolschen Variable mit true, diesem kleinen Schönheitsfehler, ist Dein Programm (aus meiner Sicht) doch klasse! Ich könnte so etwas bis heute nicht programmieren. Selbst im Debugmodus wurde mir stellenweise nicht klar, wie das funktioniert (ja, die Nachrichtenschleife, das ist mir grundsätzlich schon klar, aber das hilft nicht, alles zu begründen). Außerdem liegt es immer noch auf Deiner Internetseite, also stehst Du weiterhin zu dieser Deiner (angeblichen) "Jugendsünde". Soo schlecht kann es also nicht sein.

[Luckie]

Ok, hast recht. Aber heute hätte ich das alles schön in Klassen gekapselt. Das meinte ich eigentlich. Und meine Internetseite ist für mich eigentlich nur ein öffentliches Backup zumindest was das Verzeichnis Programmierung angeht, da ja sowoesi alles bei mir opensource ist.

[Delphi-Laie]

Zitat von Luckie:

da ja sowoesi alles bei mir opensource ist.

Einspruch, Euer Ehren! Was ist mit Deinem Flaggschiff, dem "XP Usermanager"?!

[himitsu]

Für DP-ler ist der immerhin kostenlos.
Und große Teile des Codes verstecken sich stückchenweise auch hier und da in der DP, bzw. auf seiner Webseite.

Wurde der schon mit Win8 getestet?

[Helmi]

so - jetzt lassen wir mal Luckies Schandtaten bei Seite - und kommen wieder zum eigentlichen Thema zurück, irgendwie hab ich da immer noch ein Verständnis-Problem.

Ich hab einen Fenster-Handle und möchte von der Application den Titel ermitteln.

Wenn ich Himitsu´s Beispiel richtig verstanden habe, dann kann ich mittels H := FindWindowEx(0, H, 'TApplication', nil); das Nicht-sichtbare Fenster des Fenster-Handles in H ermitteln.

Ich hab das mal bei mir umgesetzt:

Delphi-Quellcode:

function FensterText(Wnd: HWND): String;
var
  AWnd : HWND;
  WText: array[0..MAX_PATH - 1] of Char;

begin
  //Rückgabewert vordefinieren
  Result := '';

  //prüfen ob ein Fenster-Handle übergeben wurde
  If Wnd = 0 then
    exit;

  //Handle der Application zu dem Fenster auslesen
  AWnd := FindWindowEx(0, Wnd, 'TApplication', nil);

  //Fenster-Text auslesen
  If GetWindowText(AWnd, @WText, Length(WText)) > 0 then
    //Rückgabewert = Fenster-Name
    Result := String(WText)
  else
    //Rückgabewert = SystemFehler
    Result := SysErrorMessage(GetlastError);
end;

Ich habe (in einer Liste) die Fenster-Handles zweier unterschiedlicher Prozesse.
Bei dem ersten Fenster-Handle erhalte ich auch den richtigen Application-Titel.
Bei dem zweiten Handle immer den Titel des ersten Handles.
Oder ich erhalte beim zweiten Handle die Meldung "Das Fenster hat keine Bildlaufleisten"

Also entweder ich hab einen Gedankenfehler bei der Verwendung von FindWindowEx oder ich hab schlicht und einfach etwas am Code vergessen.

[himitsu]

FindWindwoEx (mit hwndChildAfter=0) arbeitet wie FindWindow und findet das erste Fenster, in der windowsinternen Fensterliste.

FindWindwoEx (mit hwndChildAfter<>0) findet das Fenster, welches in dieser Windows-Liste dahinter aufgeführt ist.

Ich weiß jetzt nicht, ob das eine zufällige Reihenfolge ist, oder ob das die Erstellungsreihenfolge ist, oder ob es z.B. nach der Z-Achsen-Reihenfolge sortiert ist.

Dieser Parameter ist also "nur" eine Art Index

Die Fenster "wnd" und "awnd" haben aber keinerlei Beziehung zueinander. (gehören also z.B. nicht unbedingt zur selben Anwendung oder sonstwas)



Das Handle "wnd" 0 hast du abgefangen?
Das erste Fenster kann also nie ausgelesen werden.

Und wenn man das Handle des letzen Fensters, dieser Liste, angibt, dann dann gibt FindWindowEx 0 zurück und wovon soll dann GetWindowText dann den Text holen?

[Helmi]

Ich hab leider immer noch die Probleme, wie von mir ein paar Posts drüber beschrieben:

Zitat von Helmi:

Bei dem ersten Fenster-Handle erhalte ich auch den richtigen Application-Titel.
Bei dem zweiten Handle immer den Titel des ersten Handles.
Oder ich erhalte beim zweiten Handle die Meldung "Das Fenster hat keine Bildlaufleisten"

[himitsu]

Zitat von Delphi-Laie:

Außerdem liegt es immer noch auf Deiner Internetseite, also stehst Du weiterhin zu dieser Deiner (angeblichen) "Jugendsünde".

Ich würde es hier einfach als Dokumentation der eigenen Vortschritte bezeichnen.

Nja, das ist halt so ... man lernt (hoffentlich) dazu und verbessert seine neueren Codes.