取得執行程式所在的路徑

絕對路徑：ExtractFilePath(Application.ExeName) =＞有反斜線"\"

ExtractFileDir(Application.ExeName)=＞無反斜線"\"