Pfad des aktiven Fensters ermitteln

[nezumi7]

Hallo,

ich habe lange gesucht aber nichts passendes gefunden: Ist es möglich, den Pfad eines geöffneten und aktiven Ordners zu ermitteln? So dass als Ergebnis z.B. rauskommt: "D:\Daten\Delphi\neu", wenn der Ordner neu geöffnet ist und den Fokus hat..?

(wie man an das fensterhandle des aktiven Fensters kommt weiß ich, falls das benötigt wird)

Danke,
nezu

[Luckie]

Meinst du das https://www.delphipraxis.net/104746-...rmitteltn.html

[nezumi7]

Hallo Michael,

cool, das klappt. Vielen Dank!

Stephan

[nezumi7]

... leider doch nicht so ganz. Das liefert als Ergebnis die Pfade zu allen geöffneten Fenstern und nicht nur zu dem aktiven Fenster. Kann man das nicht noch irgendwie rausfiltern?

[Alallart]

Ich denke die Funktion die du suchst lautet GetCurrentDir (alternativ vielleicht noch GetDir). Die Funktion gibt den Namen des aktuellen Verzeichnisses zurück.

Die Funktion habe ich am Anfang genutzt, es sind inzwischen aber Jahre vergangen. Kann dir also kaum etwas dazu sagen. Aus Erfahrung weiß ich aber, dass das eine unsichere Sache werden kann. Das kann funktionieren, wird das aktuellen Verzeichnis aber verändert, bekommst du Probleme.

Da gibt es noch alternativen. Die Funktion ParamStr(0) gibt dir den Pfad und Namen deines Programms an. Mit ExtractFilePath(ParamStr(0)) bekommst du den Pfad deines Programms. Vielleicht meinst du Programme mit "Fenster".

[nezumi7]

Moin Alallart,

das passt leider auch nicht. Beides liefert nur den Pfad zu dem Ordner, in dem sich die eigene Anwendung befindet.

[nezumi7]

ich vermute, es muss irgendwie über das Fensterhandle gehen.

Code:

var
wnd: HWND;
begin
wnd := GetForegroundWindow;
//und nu?
end;

wenns überhaupt möglichg ist..

[Alallart]

Ich bin mir nicht 100% sicher was du suchst. Mir ist nicht bekannt, dass ein Fenster einen Dateipfad hat. Sprechen wir hier von Dateipfaden oder was anderem? Wie gesagt, ich kann mich auch irren, aber ich weiß nichts von, dass jedes Fenster einen eigenen Dateipfad hat.

Ein Programm hat den eigenen Programmpfad, also den Pfad der eigenen Exe.

Auch hat meiner Kenntnis nach jedes Programm sein eigenes CurrentDir. Dass der CurrentDir am Anfang, also beim Start des Programms identisch ist mit dem Programmpfad, ist wohl logisch. Du kannst den CurrentDir ändern mit SetCurrentDir, z. B. SetCurrentDir('C:\Windows'), aber es gibt meiner Kenntnis nach nur ein CurrentDir für das Programm, nicht pro Fenster.

Dass man anhand des Handles den Pfad des Programm ermitteln kann, ist klar, auch wenn mir auf die Schnelle die Funktion fehlt, aber auch hier bekommst du nur den Pfad des Programm zurück.

Wie kommst du überhaupt drauf, dass jedes Fenster ein Dateipfad hat. Wo hast du das gelesen? Vielleicht meinst du nur etwas was ich missverstehe.

[Alallart]

Ich habe mir gerade deine anderen Themen angeguckt, um einzuschätzen woran du arbeitest, und denke zu glauben was du suchst. Ich schätze du willst von einem x-beliebigen gestarteten Programm auf dem Desktop den Pfad des Programms wissen. Wenn also Word gestartet ist, willst du anhand des Fensterhandles wissen wo auf der Platte Word abgelegt ist. Habe ich das korrekt erkannt? Dir geht es also nicht um die eigenen Fenster deines Programms, sondern um Programme?

Wenn das so ist, dann hast du die Frage missverständlich gestellt. Dann wäre die Frage wie man mit dem Handle des Fensters ermitteln kann welches Programm es ist, und wo es abgespeichert ist.

Wenn das so ist, dann ja, für so was gibt es in der Windows-API eine Funktion. Fällt mir aber auf die Schnelle nicht ein.

[nezumi7]

nein, es geht mir nicht um Programme.

Stell Dir vor, Du hast irgendwo einen leeren Ordner "Neuer Ordner", der auf dem Desktop geöffnet und aktiv (markiert) ist. Natürlich hat der Ordner einen Pfad, der angibt, wo er sich befindet, z.B. :

"C:\Daten\Bilder\Neuer Ordner\"

Den Pfad will ich rauskriegen.

Der Ansatz von Michael ganz oben geht schon in die richtige Richtung, allerdings liefert mir der Code den Pfad zu allen geöffneten Fenstern auf dem Desktop. Ich will aber nur den Pfad zum aktiven Fenster.

[Delphi-Laie]

Zitat:

Zitat von nezumi7 (Beitrag 1400876)

nein, es geht mir nicht um Programme.

Stell Dir vor, Du hast irgendwo einen leeren Ordner "Neuer Ordner", der auf dem Desktop geöffnet und aktiv (markiert) ist. Natürlich hat der Ordner einen Pfad, der angibt, wo er sich befindet, z.B. :

"C:\Daten\Bilder\Neuer Ordner\"

Den Pfad will ich rauskriegen.

Das ist der Name des Fensters, der entsprechend dem gewählten Pfad aktualisiert wird.

Ich habe das soeben mit meinem Program Prozesse herausgefunden. Man kann mit Doppelklick auf die Fensteranzahl eines Prozesses oder die gesamte Fensteranzahl sich die (ggf. jeweiligen) Fenster anzeigen lassen. Und beim Namen steht - voilà - der gesuchte Pfad.

[nezumi7]

Zitat:

Zitat von Delphi-Laie (Beitrag 1400877)

Zitat:

Zitat von nezumi7 (Beitrag 1400876)

nein, es geht mir nicht um Programme.

Stell Dir vor, Du hast irgendwo einen leeren Ordner "Neuer Ordner", der auf dem Desktop geöffnet und aktiv (markiert) ist. Natürlich hat der Ordner einen Pfad, der angibt, wo er sich befindet, z.B. :

"C:\Daten\Bilder\Neuer Ordner\"

Den Pfad will ich rauskriegen.

Das ist der Name des Fensters, der entsprechend dem gewählten Pfad aktualisiert wird.

Ich habe das soeben mit meinem Program Prozesse herausgefunden. Man kann mit Doppelklick auf die Fensteranzahl eines Prozesses oder die gesamte Fensteranzahl sich die (ggf. jeweiligen) Fenster anzeigen lassen. Und beim Namen steht - voilà - der gesuchte Pfad.

Wie das mit Deinem Prog funktionieren soll ist mir schleierhaft. Sobald ich da irgendwas anklick, verliert doch das Fenster um das es mir geht den Fokus... :gruebel:

[EWeiss]

Ich weis nicht wie dein Programm aufgebaut ist..
Daher zuerst die Frage bekommt dein Fenster den Focus wenn du einen Ordner suchst der den Focus hat?
Wenn dem nicht so ist dann kannst du das ganz einfach klären mit einer einfachen abfrage.

Wenn dir das Fensterhandle bekannt ist dann verwende das hier und gut ist.

Delphi-Quellcode:

if (WinHandle = GetFocus) then
begin
  //bla, bla das WindowHandle hat den Focus.
  // tu was
end;

gruss

[Delphi-Laie]

Zitat:

Zitat von nezumi7 (Beitrag 1400878)

Wie das mit Deinem Prog funktionieren soll ist mir schleierhaft. Sobald ich da irgendwas anklick, verliert doch das Fenster um das es mir geht den Fokus... :gruebel:

Es geht mir nicht um den Fokus. Du wolltest wissen, wie Du den aktiven Pfad herausbekommst. Und ich gab Dir den Hinweis, daß es der Name des (Explorer-)Fensters ist. Also, Du mußt Dir den Namen besorgen.

Davon unabhänig ist die Ermittlung des aktiven Fensters (was besser als Fokus formuliert ist, weil sich der Fokus auf die Steuerelemente eines Fensters bezieht). Wie Du das aktive Fenster herausbekommst, ist etwas anderes.

[EWeiss]

Zitat:

Es geht mir nicht um den Fokus.

Aber ihm.

Zitat:

Wie Du das aktive Fenster herausbekommst, ist etwas anderes.

Bla, bla lese meinen Beitrag.

Zitat:

was besser als Fokus formuliert ist, weil sich der Fokus auf die Steuerelemente eines Fensters bezieht

Was für ein quatsch habe ich schon lange nicht mehr gehört.

gruss

[Delphi-Laie]

Zitat:

Zitat von EWeiss (Beitrag 1400881)

Zitat:

Es geht mir nicht um den Fokus.

Aber ihm.

Zitat:

Wie Du das aktive Fenster herausbekommst, ist etwas anderes.

Bla, bla lese meinen Beitrag.

gruss

Wenn schon, denn schon, dann "lies".

[nezumi7]

Zitat:

Zitat von EWeiss (Beitrag 1400879)

Ich weis nicht wie dein Programm aufgebaut ist..
Daher zuerst die Frage bekommt dein Fenster den Focus wenn du einen Ordner suchst der den Focus hat?
Wenn dem nicht so ist dann kannst du das ganz einfach klären mit einer einfachen abfrage.

Wenn dir das Fensterhandle bekannt ist dann verwende das hier und gut ist.

Delphi-Quellcode:

if (WinHandle = GetFocus) then
begin
  //bla, bla das WindowHandle hat den Focus.
  // tu was
end;

gruss

Danke, aber damit habe ich doch noch nicht den Pfad.

Hintergrund ist folgender: Mein Prog läuft im Hintergrund und schaufelt tausende von Dateien von einer externen Festplatte auf meinen Rechner in ein bestimmtes Verzeichns. Auf dem Desktop sind mehrere Ordner geöffnet. Wenn ich einen bestimmten Ordner anklicke (aktiv oder Fokus, nach meinem Verständnis ist das dasselbe) sollen die Daten dort rein verschoben werden. Dafür brauche ich den Pfad des jeweils aktiven Fensters.

Offenbar scheint es dafür ja keine Lösung zu geben, was mich aber wundert. Ich kann doch auch das handle des aktiven Fensters ermitteln....

[KodeZwerg]

ot

Zitat:

Zitat von Delphi-Laie (Beitrag 1400877)

Ich habe das soeben mit meinem Program Prozesse herausgefunden.

Habe ich eben mal versucht nachzumachen, doppelklicks funktionieren leider nicht für Detailinformationen wenn man Windows 10/64bit benutzt, kann das sein?
Sieht Interessant aus was Dein Programm so alles ermittelt.
edit
Ich habe jetzt erst gemerkt das man nach rechts scrollen kann, es fehlt unten eine visuelle Darstellung wo ich so bin in der Liste.
Krasse Sache dein Prozeß Prozesse, hast Du echt viel reingepumpt! :thumb::thumb:
/ot

[EWeiss]

Zitat:

Offenbar scheint es dafür ja keine Lösung zu geben, was mich aber wundert. Ich kann doch auch das handle des aktiven Fensters ermitteln....

Sorry ich glaube du weist dann selbst nicht was du willst.

Es sollte dir doch klar sein das du die Fenster die geöffnet sind auflisten musst.
So wie Luckie es dir gezeigt hat.

Danach bekommst du das Aktive Fenster durch GetFocus und zwar dann wenn das Fensterhandle das gleiche ist wie das welches
über GetFocus (Das aktive Fenster) zurück gegeben wird.

Wo ist nun dein Problem?
Ok bin raus :)

gruss

[Delphi-Laie]

Zitat:

Zitat von KodeZwerg (Beitrag 1400885)

ot

Zitat:

Zitat von Delphi-Laie (Beitrag 1400877)

Ich habe das soeben mit meinem Program Prozesse herausgefunden.

Habe ich eben mal versucht nachzumachen, doppelklicks funktionieren leider nicht für Detailinformationen wenn man Windows 10/64bit benutzt, kann das sein?

Bei mir funktioniert es bis Windows 10, nur 64 Bit dabei verfügbar. Anscheinend kamst Du dann aber doch zurecht.

Zitat:

Zitat von KodeZwerg (Beitrag 1400885)

Krasse Sache dein Prozeß Prozesse, hast Du echt viel reingepumpt! :thumb::thumb:
/ot

Es geht so, war "halt" nur ein Machbarkeits- und Studienprojekt. Ergonomisch und darstellerisch ziemlich lau und mau, mir ging es aber in der Tat darum, möglichst viel an Informationen herauszulesen und darzustellen (alles auf der Anwendungsebene!). Dazu habe ich jahrelang die Programme anderer und auch das Windows-API "studiert". Ist auch jetzt nicht das Thema. Ich wollte nur nezumi7 wenigstens eine Lösung für die Frage präsentieren, wie man an den "aktiven Pfad" in einem Explorer-Fenster gelangt.

[Delphi-Laie]

Zitat:

Zitat von nezumi7 (Beitrag 1400884)

Hintergrund ist folgender: Mein Prog läuft im Hintergrund und schaufelt tausende von Dateien von einer externen Festplatte auf meinen Rechner in ein bestimmtes Verzeichns. Auf dem Desktop sind mehrere Ordner geöffnet. Wenn ich einen bestimmten Ordner anklicke (aktiv oder Fokus, nach meinem Verständnis ist das dasselbe) sollen die Daten dort rein verschoben werden. Dafür brauche ich den Pfad des jeweils aktiven Fensters.

Dazu muß das Programm, das das "aktive Fenster" wissen muß, entweder ständig im Hintergrund aktiv sein ("Polling", notorisches "Scannen"), oder man löst das m.E. über einen globalen Hook. Letzteres ist allerdings nicht mehr trivial.

[nezumi7]

ok, jetzt hab ich den Hinweis von EWeiss verstanden und damit klappts dann auch, wenn ich den von Lucky verlinkten Code entsprechend ergänze:

Delphi-Quellcode:

function getpath: String;
var
ShellWin: IShellWindows;
i: Integer;
ClName: array[0..64]of Char;
Pfad: AnsiString;
wnd: hwnd;
begin
wnd := GetForegroundWindow;
ShellWin := CoShellWindows.Create;
for i := 0 to Pred(ShellWin.Count) do
   with ShellWin.Item(i) as IWebBrowser2 do begin
   GetClassName(hwnd, ClName, SizeOf(ClName));
      if wnd = hwnd then begin
      if (string(ClName)= 'ExploreWClass') or (string(ClName)= 'CabinetWClass') then
      begin
        Pfad:= StringReplace(LocationURL, 'file:///', '', [rfReplaceAll, rfIgnoreCase]);
        Pfad:= StringReplace(Pfad, '/', '\', [rfReplaceAll]);
        Pfad:= StringReplace(Pfad, '%20', ' ', [rfReplaceAll]);
        if DirectoryExists(Pfad) then
        Result := IncludeTrailingPathDelimiter(Pfad);
      end;
      end;
    end;
    end;

liefert den Pfad des aktiven Fensters.

Danke an alle, Problem gelöst.