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