在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() 檢查文件是否與指定的文件名格式匹配