所需单元
代码如下:
uses FileCtrl;
示例代码
procedure TForm1.btn1Click(Sender: TObject);
var path:String;
begin
if SelectDirectory('请选择文件夹','',path) then
ShowMessage(path);
end;
更多信息请查看IT技术专栏
2025公考·省考培训课程试听预约报名