用selectdirectory进行目录选取,不可以添加目录，如何让他可以想flashget一样，可以添加一个新目录，不是用哪个win31,95的样式

Question

用selectdirectory进行目录选取,不可以添加目录，如何让他可以想flashget一样，可以添加一个新目录，不是用哪个win31,95的样式

Answer 1

uses FileCtrl;const
  SELDIRHELP = 1000;
procedure TForm1.Button1Click(Sender: TObject);
var
  Dir: string;
begin
  Dir := 'C:\MYDIR';
  if SelectDirectory(Dir, [sdAllowCreate, sdPerformCreate, sdPrompt],SELDIRHELP) then
    Label1.Caption := Dir;
end;//需要sdAllowCreate参数

Answer 2

SelectDirectory(Dir, [sdAllowCreate, sdPerformCreate, sdPrompt],SELDIRHELP)是win31,95样式的

Answer 3

用 OpenDialog 控件不行吗？