[델파이] 폴더 선택 다이알로그 표시하기

위의 화면과 같은 폴더 다이알로그 표시하기 예제

uses
  FileCtrl;

procedure TForm2.Button1Click(Sender: TObject);
var
  sStr:String;
begin
  if SelectDirectory('폴더 선택', '',sStr) then
    Button1.Caption := sStr;
end;

SelectDirectory 함수를 사용하면 폴던 선택 다이얼로그를 표시할 수 있다.
uese에는 FileCtrl을 추가해야 된다.

SelectDirectory(DisplayMessage : string,
                      RootFolder : string,
                      SeletedFoldername : string)

DisplayMessage는 다이알로그에 표시되는 메세지
RootFolder는 표시하는 폴더의 루트를 설정할 수 있다.
SeletedFoldername 선택한 폴더를 반환한다.
선택을 하지 않은 경우는 아무것도 반환하지 않는다.