獲取程序自身路徑

　　 　　Delphi 在啟動應用程序時與 C 語言一樣會傳遞命令行參數給應用程序，第一個參數（索引號為零）表示應用程序本身的文件名（包括完整的路徑），這個 String 參數由函數 ParamStr(0) 返回。

　　順便說一句，Delphi 提供了分析文件名的多個函數，如果你需要從文件名中得到路徑名，可用下面的兩個函數，這兩個函數有一點點微小的差別：

　　ExtractFilePath(FileName:String) 該函數返回路徑名，其結尾字符總是“\”

　　ExtractFileDir(FileName:String) 該函數同樣返回路徑名，但不包括結尾的字符“\”，除非返回的路徑是根目錄。　

　　樣例代碼：

　　procedure TForm1.Button1Click(Sender: TObject);
　　begin
　　ShowMessage(ExtractFileDir(Application.Exename)); // 如: c:\temp
　　ShowMessage(ExtractFilePath(Application.Exename)); // 如: c:\temp\ 　　
　　end;