use FileCtrl; Dir := 'c:\Mydir'; if SelectDirectory(Dir, [sdAllowCreate, sdPerformCreate, sdPrompt],1000) then begin label1.caption := Dir; end; 弹出对话框选择文件目录
use FileCtrl; Dir := 'c:\Mydir'; if SelectDirectory(Dir, [sdAllowCreate, sdPerformCreate, sdPrompt],1000) then begin label1.caption := Dir; end; 弹出对话框选择文件目录