關於 SaveDialog1控件的問題，我想默認保存路徑是C:\，也就是無論怎樣打開它時，它都是在C:\下。

Question

關於 SaveDialog1控件的問題，我想默認保存路徑是C:\，
也就是說無論怎樣打開它時，它都是在C:\下保存文件，
請問怎麼寫？       謝謝!

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;
用  SelectDirectory 函数比较好

Answer 2

to yq3woaini:   你這個是目錄呀，我是保存文件。我希望執行 SaveDialog1.Execute時打開窗口就能回到c:\目錄下,
是這個意思。

Answer 3

procedure TForm1.FormCreate(Sender: TObject);
begin
  SaveDialog1.InitialDir :='c:\'
end;