delphi选择文件夹例子
发布时间：2015-06-05 来源：查字典编辑
摘要：所需单元代码如下usesFileCtrl;示例代码代码如下procedureTForm1.btn1Click(Sender:TObject)...
所需单元
代码如下 uses FileCtrl;示例代码
代码如下
procedure TForm1.btn1Click(Sender: TObject);
var path:String;
begin
if SelectDirectory('请选择文件夹','',path) then
ShowMessage(path);
end;