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