所需單元
代碼如下:
uses FileCtrl;
示例代碼
procedure TForm1.btn1Click(Sender: TObject);
var path:String;
begin
if SelectDirectory('請(qǐng)選擇文件夾','',path) then
ShowMessage(path);
end;
更多信息請(qǐng)查看IT技術(shù)專欄
2025國考·省考課程試聽報(bào)名