2025特岗教师学科精讲课,试看满意购买,配套纸质资料免费包邮!>>
所需单元
代码如下:
uses FileCtrl;
示例代码
代码如下
procedure TForm1.btn1Click(Sender: TObject);
var path:String;
begin
if SelectDirectory('请选择文件夹','',path) then
ShowMessage(path);
end;
更多信息请查看IT技术专栏
2026公务员·事业单位培训课程试听报名