Pfad des aktiven Fensters ermitteln

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