skychild：以下提供妳參考：
AnsiString DIR_PATH=ExtractFilePath(ParamStr(0)); // 程式啟動時的路徑
#include 
mkdir(DIR_NAME.c_str());  // 產生一新目錄
rmdir(DIR_NAME.c_str());  // 刪除一目錄
chdir(DIR_NAME.c_str());  // 移到另一目錄
但妳如使用TOpenDialog。
開檔就如同taishyang版大的方式！
if ( OpenDialog1->Execute()) {
   MediaPlayer1->FileName=OpenDialog1->FileName;
   MediaPlayer1->Open();
   MediaPlayer1->Play();
}
如果妳要使用者每次都要從預設目錄開啟，那妳使用OpenDialog就不可能了！
第一次會按妳預設目錄開啟，但第二次以後？
請更動為以下方式，動態產生TOpenDialog：
Form上一樣放置一個TOpenDialog元件。
void __fastcall TForm1::Button1Click(TObject *Sender)
{
  AnsiString Dir_Path="D:\\";
  TOpenDialog *OpF;
  OpF = new TOpenDialog(this);
  OpF->Filter = "Wav files (*.wav)|*.wav|All files(*.*)|*.*";
  OpF->InitialDir=Dir_Path;
  if ( OpF->Execute()) {
    MediaPlayer1->FileName=OpF->FileName;
    MediaPlayer1->Open();
    MediaPlayer1->Play();
  }
  delete OpF;
}
妳試試看這兩種是不一樣的效果。