delphi選擇文件夾例子

    所需單元
    代碼如下:
    uses filectrl;
    示例代碼
    代碼如下:
    procedure tform1.btn1click(sender: tobject);
    var path:string;
    begin
    if selectdirectory('請選擇文件夾','',path) then
    showmessage(path);
    end;