Delphi-Quellcode:
function SelDir ( StartPath : String; var SelectedDir : String ) : Boolean;
begin
Result := False;
with TFileOpenDialog.Create(nil) do
try
Title := 'Select Directory';
Options := [fdoPickFolders, fdoPathMustExist, fdoAllNonStorageItems, fdoShareAware, fdoForceShowHidden, fdoDefaultNoMiniMode];
OkButtonLabel := 'Select';
DefaultFolder := StartPath;
FileName := StartPath;
if Execute then
begin
SelectedDir := FileName;
Result := True;
end;
finally
Free;
end
end;
Nur ein Versuch, hier habe ich andere Optionen gewählt die Eigentlich auch Netzlaufwerke Anzeigen sollte.
Bitte einmal Testen, Danke.
Ps: Hier ist der XP Dialog komplett weg.
Nachteil: Es werden dummerweise auch Archive angezeigt
edit
hab diese Überbleibsel entfernt
Code:
var tmp : TArray<string>;