Welcher Ordner wird mit dem Explorer geöffnet?

[TStringlist]

Wenn man genaueres über den aktuellen Ordner-Pfad wissen möchte, dann könnte man auch einfach die Adressleiste des Explorers auslesen. Das einzigste was man dazu wissen muss ist nur, dass das eigentliche Control, welches da den Text beinhaltet, eines von der Class 'Edit' ist und der Class-Name des Explorers 'ExploreWClass' lautet. Damit sucht man also zuerst per FindWindow die Explorer-Handle und danach mittels EnumChildWindows die Handle dieses besagten Edit-Controls. Anschließen braucht man sich nur noch mehr der SendMessage-Funktion bedienen und lässt sich mit ihr + EM_GETLINE den gewünschten Edit-Text einfach ausgeben, also z.B. so:

Code:

function EnumChildProc(hWindow: HWND; lParameter: LPARAM): Bool; stdcall;
var ClassNameStr : string[255];
    ClassNameStrLen : integer;
begin
  ClassNameStrLen := GetClassName(hWindow,@ClassNameStr[1],255);
  SetLength(ClassNameStr,ClassNameStrLen);
  if ClassNameStr <> 'Edit' then Result := true
  else begin
    Form1.FEditHandle := hWindow;
    Result := false;
  end;
end;

function getEditStr(hWindow: HWND): string;
var EditStr : string[255];
    EditStrLen : integer;
begin
  EditStr[1] := chr(255);
  EditStrLen := sendMessage(hWindow,EM_GETLINE,0,integer(@EditStr[1]));
  SetLength(EditStr,EditStrLen);
  Result := EditStr;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  FExplorerHandle := FindWindow('ExploreWClass',Nil);
  EnumChildWindows(FExplorerHandle, @EnumChildProc, 0);
  label1.Caption := getEditStr(FEditHandle);
end;