怎樣取得執行文件的父目錄路徑? |
|
答題得分者是：Chance36
|
|
chrislao
初階會員   發表：86 回覆：69 積分：36 註冊：2002-12-28 發送簡訊給我 |
|
|
Chance36
版主 發表：31 回覆：1033 積分：792 註冊：2002-12-31 發送簡訊給我 |
引言: 我用filepath:=ExtractFilePath(Application.ExeName) 只能取得執行文件的路徑,怎樣可以取得父目錄的路徑?chrislao 你好 不知是否現成的Function可用，不過也可以用以下方式取得 ShowMessage(ExtractFilePath(ExtractFileDir(Application.ExeName))) ; ExtractFilePath ==> 'X:\....\.\xxxx\' ExtractFileDir ==> 'X:\....\.\xxxx' 差了一個最後的'\'， 再提供一方法
Var
Str : String ;
begin
Str := GetCurrentDir ; // 儲存目前位置
// 設定父目錄為工作目錄
If SetCurrentDir(ExtractFilePath(Application.ExeName) '..\') Then Begin
ShowMessage(GetCurrentDir); // 取得目前工作目錄
SetCurrentDir(Str) ; // 還原工作目錄
End;
end;
發表人 - chance36 於 2004/06/10 01:53:47
|
發表時間：2004-06-10 01:10:04
IP:202.175.xxx.xxx 未訂閱
系統時間：2024-05-18 11:52:30
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |