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;