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