ник: FORMAT
После замены строки
intResult = ShellExecute(Application.hWndAccessApp, "open", strNameFile, 0, 0, SW_SHOWNORMAL)
на строку
intResult = ShellExecute(Application.hWndAccessApp, "open", per1, 1, 1, 1)
здесь per1 - аналог strNameFile
у меня все нормально заработало