SelectDirectory函数的用法

Question

SelectDirectory函数的用法，怎样指定它的默认目录？

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;

Answer 2

procedure TForm1.Button1Click(Sender: TObject);
const
    SELDIRHELP = 1000;
var
  dir: String;
begin
  dir := 'C:';
  if SelectDirectory(dir, [sdAllowCreate, sdPerformCreate, sdPrompt],SELDIRHELP) then
    Button1.Caption := dir;
end;

Answer 3

strSelDir := EditPath.Text;
try 
    if SelectDirectory(strSelDir,[],0) then EditPath.Text :=    strSelDir;
except
    strseldir := 'c:\';
    if SelectDirectory(strSelDir,[],0) then EditPath.Text := strSelDir;
end;