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