所需單元
代碼如下:
uses filectrl;
示例代碼
procedure tform1.btn1click(sender: tobject);
var path:string;
begin
if selectdirectory('請(qǐng)選擇文件夾','',path) then
showmessage(path);
end;
更多信息請(qǐng)查看IT技術(shù)專(zhuān)欄
2025國(guó)考·省考課程試聽(tīng)報(bào)名