SelectDirectory() Vorauswahl?

[Uwe Raabe]

Zitat von Der schöne Günther:

Wahnsinn - Das ist ja noch dieser alte Windows 3.1-Dialog

Das kommt ganz drauf an, welches overload von SelectDirectory man verwendet. Unter Berlin gibt es derer drei:

Delphi-Quellcode:

function SelectDirectory(var Directory: string;
  Options: TSelectDirOpts; HelpCtx: Longint): Boolean; overload;
function SelectDirectory(const Caption: string; const Root: WideString;
  var Directory: string; Options: TSelectDirExtOpts = [sdNewUI]; Parent: TWinControl = nil): Boolean; overload;
/// <summary> Shows a select directory dialog using IFileDialog (recommended in Windows Vista or later).
/// Multiple selection can enabled including sdAllowMultiselect flag in Options.
/// Selected directories are returned in Directories param</summary>
function SelectDirectory(const StartDirectory: string; out Directories: TArray<string>; Options: TSelectDirFileDlgOpts = [];
  const Title: string = ''; const FolderNameLabel: string = ''; const OkButtonLabel: string = ''): Boolean; overload;

Ersteres verwendet den selbstgebauten Dialog, zweiteres ruft SHGetDesktopFolder auf und der dritte bedient sich eines TFileOpenDialog .