关于opendialog!

Question

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 1

每次打开：
OpenDialog1.InitialDir：=path

Answer 2

var
  sPath:string;
begin
  edtPath.SetFocus;
  if SelectDirectory('請選擇路徑',#13,spath) then  edtPath.Text:=sPath;
end;

Answer 3

设置对话框的INITIALDIR属性
如
  opendialog1.initaldir:='C:'