所需单元
代码如下:
uses filectrl;
示例代码
procedure tform1.btn1click(sender: tobject);
var path:string;
begin
if selectdirectory('请选择文件夹','',path) then
showmessage(path);
end;
更多信息请查看IT技术专栏