delphi 擷取可執行檔的當前路徑

在Delphi SysUtils 單元中有 ExtractFileDir 與 ExtractFilePath兩個類似的函數, 兩個函數有以下的區別:
ExtractFilePath 傳回值的最後一個字元是反斜線“/”。
ShowMessage(ExtractFileDir(Application.Exename)); // 傳回值為 c:/temp
ShowMessage(ExtractFilePath(Application.Exename)); // 傳回值為 c:/temp/
相同點： 如果執行檔案在根目錄下(如：C:/SAMPLE.EXE)的話, 兩者的傳回值相同， 且最後一個字元都是“/”。
===============================================================================
edit1.Text:=ParamStr(0);//自己全路徑c:/555/qq.exe,可用於控制台
edit1.text:=ExpandFileName(ParamStr(0)); //擷取本程式的完整路徑 c:/qq/2.exe
edit2.text:=ExtractFileDir(ParamStr(0)); //擷取本程式的路徑 c:/qq
edit3.text:=application.Exename; //擷取本程式的完整路徑 c:/qq/2.exe,和第1個一樣
edit4.text:=ExtractFilename(Application.Exename); //獲得檔案名稱2.exe

 

ExpandFileName() 返迴文件的全路徑(含磁碟機、路徑)
ExtractFileExt() 從檔案名稱中抽取副檔名
ExtractFileName() 從檔案名稱中抽取不含路徑的檔案名稱
ExtractFilePath() 從檔案名稱中抽取路徑名
ExtractFileDir() 從檔案名稱中抽取目錄名
ExtractFileDrive() 從檔案名稱中抽取磁碟機名
ChangeFileExt() 改變檔案的副檔名
ExpandUNCFileName() 返回含有網路磁碟機的檔案全路徑
ExtractRelativePath() 從檔案名稱中抽取相對路徑資訊
ExtractShortPathName() 把檔案名稱轉化為DOS的8·3格式
MatchesMask() 檢查檔案是否與指定的檔案名稱格式匹配