use FileCtrl; Dir := 'c:\Mydir'; if SelectDirectory(Dir, [sdAllowCreate, sdPerformCreate, sdPrompt],1000) then begin label1.caption := Dir; end; 弹出对话框选择文件目录
弹出对话框选择文件目录
最新推荐文章于 2024-05-22 09:32:03 发布
use FileCtrl; Dir := 'c:\Mydir'; if SelectDirectory(Dir, [sdAllowCreate, sdPerformCreate, sdPrompt],1000) then begin label1.caption := Dir; end; 弹出对话框选择文件目录