Pfad des aktiven Fensters ermitteln

[Delphi-Laie]

Zitat von 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.

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 von Delphi-Laie:

Zitat von 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.

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...

[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

[nezumi7]

Zitat von 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

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....

[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 von nezumi7:

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.

[Delphi-Laie]

Zitat von nezumi7:

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...

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 von 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.

gruss

Wenn schon, denn schon, dann "lies".