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
.