SelectDirectoryの使い方

extern DELPHI_PACKAGE bool __fastcall SelectDirectory(System::UnicodeString &Directory, 
							TSelectDirOpts Options, 
							System::LongInt HelpCtx)/* overload */;
extern DELPHI_PACKAGE bool __fastcall SelectDirectory(const System::UnicodeString Caption, 
							const System::WideString Root, 
							System::UnicodeString &Directory, 
							TSelectDirExtOpts Options = (TSelectDirExtOpts() << TSelectDirExtOpt::sdNewUI ), 
							Vcl::Controls::TWinControl* Parent = (Vcl::Controls::TWinControl*)(0x0))/* overload */;
#ifndef _WIN64
extern DELPHI_PACKAGE bool __fastcall SelectDirectory(const System::UnicodeString StartDirectory, 
		/* out */ System::DynamicArray<System::UnicodeString> &Directories, 
		TSelectDirFileDlgOpts Options = TSelectDirFileDlgOpts() , 
		const System::UnicodeString Title = System::UnicodeString(), 
		const System::UnicodeString FolderNameLabel = System::UnicodeString(), 
		const System::UnicodeString OkButtonLabel = System::UnicodeString(), HWND ParentWnd = (HWND)(0x0))/* overload */;

#else /* _WIN64 */
extern DELPHI_PACKAGE bool __fastcall SelectDirectory(const System::UnicodeString StartDirectory, 
		/* out */ System::DynamicArray<System::UnicodeString> &Directories, 
		TSelectDirFileDlgOpts Options = TSelectDirFileDlgOpts() , 
		const System::UnicodeString Title = System::UnicodeString(), 
		const System::UnicodeString FolderNameLabel = System::UnicodeString(), 
		const System::UnicodeString OkButtonLabel = System::UnicodeString(), 
		HWND ParentWnd = (HWND)(0ULL))/* overload */;
#endif /* _WIN64 */

#include <Vcl.FileCtrl.hpp>			// for SelectDirectory
#include<stdint.h>					// uint64_t

#include "FileCtrl.hpp"

const SELDIRHELP = 1000;
void __fastcall TForm1::Button1Click(TObject *Sender)
{
  String Dir = "C:\\Program Files\\CodeGear";
  if (SelectDirectory(Dir, TSelectDirOpts() << sdAllowCreate << sdPerformCreate << sdPrompt,
     SELDIRHELP))
  {
	 Label1->Caption = Dir;
  }
}

#include <FileCtrl.hpp>
#include <IOUtils.hpp>
 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
  String Dir;
  if (SelectDirectory("Select document folder", System::Ioutils::TPath::GetDocumentsPath(), Dir))
  {  
    Label1->Text = Dir;
  }
}

typedef System::Set<TSelectDirOpt, TSelectDirOpt::sdAllowCreate, 
    TSelectDirOpt::sdPrompt> TSelectDirOpts;

typedef System::Set<TSelectDirExtOpt, TSelectDirExtOpt::sdNewFolder, 
    TSelectDirExtOpt::sdValidateDir> TSelectDirExtOpts;

    // 呼び出し例
	OpenFolder1("D:\\画像\\");


// ----------------------------------------------------------------------------
/**
 * @brief		フォルダ選択用のダイアログを開く
 *
 * @param[in]	String dir : ［ディレクトリの選択］ダイアログ ボックスが表示された時点で選択されているディレクトリを指定します。
 * @return		String : ディレクトリを選択し［OK］をクリックした場合は True を返します
 */
// ----------------------------------------------------------------------------
String __fastcall TSDIAppForm::OpenFolder1(String dir)
{
	String Dir			= dir;
	TSelectDirOpts opt = TSelectDirOpts() << sdAllowCreate << sdPerformCreate;
	if(SelectDirectory(Dir, opt, 0))
	{
		// Edit1->Text = Dir;
	}                 
	return Dir;
}

    // 呼び出し例
	OpenFolder2(L"画像ファイルを保存するフォルダを選択してください", "", "D:\\画像\\");

// ----------------------------------------------------------------------------
/**
 * @brief		フォルダ選択用のダイアログを開く
 *
 * @param[in]	String	caption	: ダイアログのタイトル (キャプションではない)
 * @param[in]	String	root	: ルートディレクトリ
 * @param[in]	String	dir		: ［ディレクトリの選択］ダイアログ ボックスが表示された時点で選択されているディレクトリを指定します。
 *
 * @return		String : 選択したフォルダ名
 */
// ----------------------------------------------------------------------------
String __fastcall TImgCont1::OpenFolder2(String caption, String root, String dir)
{
	String Dir			= dir;
	TSelectDirExtOpts options = TSelectDirExtOpts() << sdNewUI << sdShowEdit << sdNewFolder;

	if (SelectDirectory(caption,  root, Dir, options))
	{
		// Edit1->Text = Dir;
	}
	return Dir;
}

	呼び出し例
    String Dir			= "D:\\画像\\";
	int count = OpenFolder3((TStringList*)Memo1->Lines,
                        Dir, //  String StartDir
						(String)"画像ファイルをを選択するフォルダを選択してください",
						_TEXT("画像ファイルフォルダー:"),		// String FolderName,
						"画像の選択"							// String BtnCaption

// ----------------------------------------------------------------------------
/**
 * @brief		Folder3を開く
 *
 * @param[in,out]	TStringList*	FileList	: 取得したフォルダ名を格納するストリングリスト
 * @param[in]		String			StartDir	: ダイアログ表示開始時の選択フォルダ名
 * @param[in]		String			Title		: ダイアログのタイトル
 * @param[in]		String			FolderName	: フォルダ名入力欄のラベル
 * @param[in]		String			BtnCaption	: [OK] ボタンのキャプション
 *
 * @return		int : 取得したフォルダの数
 */
// ----------------------------------------------------------------------------
int __fastcall TImgCont1::OpenFolder3(TStringList *FileList, String StartDir, 
							String Title,
							String FolderName,
							String BtnCaption)
{
	int fileNum			= 0;
	String  LStartDir	= StartDir;
	String  LTitle		= Title;
	String  LFolderName	= FolderName;
	String  LBtnCaption	= BtnCaption;
	System::DynamicArray<System::UnicodeString> LDirArray;

	// -------------------------------------
	TSelectDirFileDlgOpts Options = TSelectDirFileDlgOpts() << sdAllowMultiselect;
	// -------------------------------------
	if( SelectDirectory(LStartDir,
						LDirArray,
						Options,
						LTitle,
						LFolderName,
						LBtnCaption ) )
	{
		for (int i=LDirArray.Low; i<=LDirArray.High; i++)
		{
			FileList->Add( (String)LDirArray[i] );
			fileNum++;
		}
    }
	
	return fileNum;
}