SelectDirectory

[himitsu]

Ich nutze ein eigenes TFileOpenDialog mit fdoPickFolders, quasi in einer etwas aufgemotzteren Version dieses SelDir.

Aber ein Blick in das Code Insight oder in die OH und schon kommt sowas bei raus, als Minimalbeispiel.

Delphi-Quellcode:

var
  A: TArray<string>;
begin
  //if SelectDirectory('', A) then
  //if SelectDirectory('D:\', A) then
  if SelectDirectory('D:\', A, [sdAllowMultiselect], 'Der Titel', 'Ein Label', 'Der Button') then
    ShowMessage(string.Join(sLineBreak, A));  // bei nur einem reicht A[0]

  if FileOpenDialog1.Execute then  // mit fdoPickFolders und sdAllowMultiselect
    ShowMessage(FileOpenDialog1.Files.Text);  // FileOpenDialog1.FileName

[KodeZwerg]

Vielen Dank, teste ich gleich mal aus und "upgrade" den OldSchool Dialog.
Ps: Ich vermute ein "TArray<string>;" weil damit auch Multiple-Sachen selektiert werden können.

edit
Nun weiß ich warum mein voriger Versuch immer fehlschlug, da gibt es ja ein anderes Option-Set

[himitsu]

War'n kleiner Copy&Paste-Error drin.

PS: Bei den neuen Open-/SaveDialogs kann man eine GUID angeben, damit speichert Windows das zuletzt ausgewählte Verzeichnis.
Wird wieder ein Dialog mit dieser GUID aufgerufen, dann wird InitialDir ignoriert und das letzte Verzeichnis geladen.

[KodeZwerg]

SelDir() Update

Delphi-Quellcode:

function SelDir ( StartPath : String; var SelectedDir : String ) : Boolean;
var
 tmp : TArray<string>;
begin
  Result := False;
  if Win32MajorVersion >= 6 then
  with TFileOpenDialog.Create(nil) do
    try
      Title := 'Select Directory';
      Options := [fdoPickFolders, fdoPathMustExist, fdoForceFileSystem];
      OkButtonLabel := 'Select';
      DefaultFolder := StartPath;
      FileName := StartPath;
      if Execute then
      begin
        SelectedDir := FileName;
        Result := True;
      end;
    finally
      Free;
    end
    else
//  Mögliche Options: sdHidePinnedPlaces, sdNoDereferenceLinks, sdForceShowHidden, sdAllowMultiselect
     if SelectDirectory(StartPath, tmp, [sdForceShowHidden], 'Select Directory', 'Foldername:', 'Select')
// BACKUP - hier noch der Aufruf für den kleinen Dialog
//  Mögliche Options: sdNewFolder, sdShowEdit, sdShowShares, sdNewUI, sdShowFiles, sdValidateDir
//  mit Option sdShowFiles wird aus dem auch ein Datei-Selektor
//    if SelectDirectory('Select Directory', ExtractFileDrive(StartPath), StartPath,
//                       [sdNewFolder, sdShowEdit, sdShowShares, sdNewUI, sdValidateDir])
     then begin
       SelectedDir := tmp[0]; // Achtung, hier wird nur der erste Eintrag genommen! Also so nicht "sdAllowMultiselect" fähig
//       SelectedDir := StartPath; //  BACKUP - für den alten Dialog
       Result := True;
     end;
end;


// Beispiel Aufruf:
procedure TForm2.Button1Click(Sender: TObject);
var
  s : String;
begin
 if SelDir('C:\Tools\',S) then ShowMessage(s);
end;

Dank gilt himitsu für's Zeit nehmen und Erklären und das bei mir endlich der Groschen gefallen ist warum ich's Anfang nicht hinbekam, es gibt zwei Unterschiedliche Option-Sets, muss man auch erstmal draufkommen

Nun sehen Dialoge unter XP und Vista sogut wie gleich aus, beide Verhalten sich relativ identisch.

[Walter Landwehr]

Das sieht zwar sehr schön aus, aber mir fehlen immer noch die verbundenen Laufwerke. (siehe Anhang) Für den Anwender ist es einfacher, wenn diese sichtbar sind, als über das Netzwerk diese zu suchen was die meisten nicht mal verstehen.
Gibt's da noch einen Trick?

Ansonsten wirklich super, vielen Dank schon mal.

[KodeZwerg]

Zitat von Walter Landwehr:

mir fehlen immer noch die verbundenen Laufwerke

Das verstehe ich gerade nicht, im Bild sind doch Netzlaufwerke abgebildet?

[Walter Landwehr]

Sorry das Bild kommt von dem Windows Explorer. Hier das Bild von TFileOpenDialog.