Below code is an example to select directory by TFileOpenDialog:
with TFileOpenDialog.Create(nil) do try Options := [fdoPickFolders]; if Execute then ShowMessage(FileName); finally Free; end;
Below code is an example to select directory by TFileOpenDialog:
with TFileOpenDialog.Create(nil) do try Options := [fdoPickFolders]; if Execute then ShowMessage(FileName); finally Free; end;