opendialog.InitialDir :=ExtractFilePath(Application.ExeName);
//打開
opendialog.Execute;
//這樣就是當前程序所在目錄了