指定目錄除了用path = "c:\\test\\"; 像這樣的寫法，是不是也可以用SetCurrentDir的指令， 讓程式抓到正在執行目錄下的檔案？ 可是我沒有使用過SetCurrentDir，有大大可以教我嗎？

onizuka5201314 您好：    1. 設定使用目錄是可以使用 SetCurrentDir()，使用方式就是直接以目錄字串當作參數來呼叫即可，例如： SetCurrentDir("C:\\test"); 或是： AnsiString path = "C:\\test"; SetCurrentDir(path); 2. 執行程式本身所在目錄可使用 ExtractFilePath(ParamStr(0)) 來取得，例如： AnsiString path = ExtractFilePath(ParamStr(0)); 3. 現行使用目錄可以用 GetCurrentDir() 來取得，例如： AnsiString path = GetCurrentDir(); 4. 下列數篇相關討論可以參考一下： 如何取得目前作業的目錄位置? http://delphi.ktop.com.tw/topic.php?topic_id=38778 請問如何取得正在執行的程式位置 http://delphi.ktop.com.tw/topic.php?topic_id=35185 請問檔案路徑的問題?? http://delphi.ktop.com.tw/topic.php?topic_id=30081 發表人 - RedSnow 於 2005/05/29 21:40:07

您好！ 一小段程式範例給您！

void __fastcall TForm1::Button1Click(TObject *Sender)
{
  //清除Memo1所有文字
  Memo1->Clear();
  char c[MAX_PATH];
  //取得目前程式目錄
  if(::GetCurrentDirectory(MAX_PATH,c))
  {
    Memo1->Lines->Add("取得目前程式目錄:");
    Memo1->Lines->Add(AnsiString(c));
    Memo1->Lines->Add("================");
    //重新設定現在目錄
    if(::SetCurrentDirectory("C:\\Temp\\"))
    {
      if(::GetCurrentDirectory(MAX_PATH,c))
      {
        //將改變的現在目錄，反應在DirectoryListBox1元件上
        DirectoryListBox1->Directory = AnsiString(c);
        Memo1->Lines->Add("改設定指定目錄在：");
        Memo1->Lines->Add(AnsiString(c));
      }
    }
    else
      Memo1->Lines->Add("改設定指定目錄失敗！");
  }
  else
    Memo1->Lines->Add("取得目前目錄失敗！");
}

謝謝大大的指導... 非常的清楚，我學會使用了! 謝謝大大^^