폴더 선택

OpenDialog처럼 Folder를 선택할 수 있는 기능

function SelectDirectory(var Directory: string; Options: TSelectDirOpts; HelpCtx: Longint): Boolean; overload;
function SelectDirectory(const Caption: string; const Root: WideString; var Directory: string): Boolean; overload;

uses FileCtrl;

 

var

  vDir: string;

begin

  // SelectDirectory("Dialog Caption", "Root", "var Directory)

  if SelectDirectory('Select Directory', 'D:\', vDir) then

    Edit1.Text := vDir;

end;