如果使用“让用户选择保存文件夹”的通用对话框？(100分)

我需要一个对话框，可以让用户在保存文件时选择一个文件夹，（不是文件名）<br>我知道有这样一个通用对话框，却不知怎用？请指教！

uses FileCtrl;<br><br>const<br>&nbsp; SELDIRHELP = 1000;<br>procedure TForm1.Button1Click(Sender: TObject);<br>var<br>&nbsp; Dir: string;<br>begin<br>&nbsp; Dir := 'C:/MYDIR';<br>&nbsp; if SelectDirectory(Dir, [sdAllowCreate, sdPerformCreate, sdPrompt],SELDIRHELP) then<br>&nbsp; &nbsp; Label1.Caption := Dir;<br>end;

用控件不可以么？<br>&nbsp; 使用Dialog页面上的SaveDialog<br>&nbsp;然后用<br>&nbsp; &nbsp;SaveDialog1.Execute;<br>&nbsp; 调用不就可以吗？<br>

方法一：<br>procedure TForm1.Button1Click(Sender: TObject);<br>var<br>&nbsp;dir:string;<br>begin<br>&nbsp; dir:='c:/';//初始目录<br>&nbsp; SelectDirectory(dir, [sdAllowCreate,sdPerformCreate,sdPrompt],1000);<br>&nbsp; showmessage('你选择了'+dir);//用户选择的目录；<br>end;<br>方法二：<br>procedure TForm1.Button2Click(Sender: TObject);<br>var<br>&nbsp;dir:string;<br>begin<br>&nbsp; selectdirectory('选择文件夹','c:/',dir);<br>&nbsp; showmessage('你选择了'+dir);//用户选择的目录<br>end;<br>

谢了，反正软件做出来了，也没什么的，拿出来共享吧！<br>软件名：RAM文件自动生成机<br>下载地址：请到我的主页上下载（http://wuqiu.6to23.com）