Durch Fensterhandling den Verzeichnisname rausbekommen?

[smart]

Hallo Alle.

Kann man an Hand des Fensterhandlings bei einem Verzeichnisfenster den Verzeichnisname rausbekommen?

Gruß
Heike

[Luckie]

Was verstehst du unter Fensterhandling?

[CCRDude]

Und was unter Verzeichnisfenster? O.o

Explorerfenster können volle Pfade anzeigen (siehe Einstellungen), müssen aber nicht. Wenn sie es tun, reicht ja der Fenstertitel aus, das Fenster selber dürfte man anhand der Fensterklasse (oder DirectoryExists auf Fenstertitel, wenn auch etwas unsicherer ) finden können.

Ansonsten kannst Du ja Unterfenster (sprich Controls) in den Explorerfenstern enumerieren, die Adreßleiste enthält ja auch eine Adresse, aber auch wieder nur optional vollständig (dafür immerhin per default imho), und wie's da unter Vista aussieht mit dieser neuen Adreßleiste, keine Ahnung.

ac'tivAid enthält glaub ich einige Funktionen, für die diese Option im Explorer eingeschaltet sein muss, daher dürfte es ohne wohl zumindest nicht mehr trivial sein.

[smart]

Danke für die Antworten!

Wenn ich z.B. ein Fenster oder Programm aufrufe, gibt es da die Möglichkeit den Verzeichnisnamen zu bekommen. Vielleicht wenn man die Taskleiste ausliest? Ich habe leider keinen Ansatz wie man das macht.

Gruß
Heike

[CCRDude]

EnumWindows und EnumChildWindows helfen Dir, sämtliche Fenster die überhaupt offen sind durchzugehen. Dazu dann noch ein GetWindowTextLength/GetWindowText, und Du hast alles für eine grobe Methode eben einzig über die Fenstertitel (die man natürlich noch verfeinern kann).

[bitsetter]

Hi,

was verstehst du unter Fenster oder Programme aufrufen? Etwa ein Aufrufen mit Hilfe der Taskleiste oder durch das Starten der Programme?.
Falls du das Handle des Fensters kennst, könntest du mit Hilfe dieses Beitrages den Verzeichnisnamen zum Programm des Fensters herausbekommen.
Ein Aufruf könnte so erfolgen:

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
var
  ProcessId : DWORD;
begin
  GetWindowThreadProcessID((*hWnd*), @ProcessId);
  Caption := AufrufParameter(ProcessId);
end;