Pfad des aktiven Fensters ermitteln

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