取得当前执行程序的路径

取得当前执行程序的路径FPath := ExtractFilePath(Application.ExeName);或FileName := ExtractFilePath(ParamStr(0)) + ’\MDB\电子通讯录.mdb’;