我做了一个收发e-mail的软件，怎样选择存放附件的路径？

Question

我用的是nmpop3的控件，我想添加一个按钮，用户可以输入或选择存放接收附件的路径。应该怎么实现？
说得详细一点.

Answer 1

不是有个保存的控件么？SaveDialog好像是 ？

Answer 2

事先指定文件名, 获得用户选择的扩展名：
const
  defaultFileName = 'c:\autoexec.bat';
var
  savefilename: string;
begin
  with savedialog1 do
  begin
    Filename := defaultfilename;//dialog 显示时缺省的文件名
    FilterIndex := 1; //缺省用 Filter 列表中第一个扩展名
    if Execute then
    begin
      if pos('.', FileName) > 1 then //用户已输入了扩展名
        savefilename := FileName
      else
        savefilename := FileName + Filter列表中第 FilterIndex 个扩展名;
      ...
     end;
  end;
end;