问题不明确:
如果是初始化目录,在OpenDialog.InitialDir中设置
如果是选择一个目录,那就使用
Dir:='c:\';
SelectDirectory(Dir,[sdAllowCreate, sdPerformCreate, sdPrompt],0);