■uses節にFileCtrlを追加する

■ソースは下記のようになります。

■フォルダ選択ダイアログボックスを表示する処理

procedure TForm1.Button1Click(Sender: TObject); var 　Dir: string;　//選択されたフォルダ名 begin 　if SelectDirectory(Dir, [sdAllowCreate, sdPerformCreate, sdPrompt],0) then 　Label1.Caption := Dir; end;

■第二引数の説明

sdAllowCreate	編集ボックスが表示され，ユーザーは存在しないディレクトリの名前を入力できる。
sdPerformCreate	存在しないディレクトリ名をユーザーが入力すると，SelectDirectory がそのディレクトリを作成する
sdPrompt	入力したディレクトリが存在しないことをユーザーに通知し，そのディレクトリを作成するかどうかをたずねるメッセージボックスを表示する。

Delphi　Tipsのページへ