可以用 selectDirectory (須uses FileCtrl)
var dir:string;
begin
Dir := 'C:/';
if SelectDirectory(Dir, [sdAllowCreate, sdPerformCreate, sdPrompt],0) then
showmessage(dir);
可以用 selectDirectory (須uses FileCtrl)
var dir:string;
begin
Dir := 'C:/';
if SelectDirectory(Dir, [sdAllowCreate, sdPerformCreate, sdPrompt],0) then
showmessage(dir);