//열기 전에 이렇게 초기화하세요
opendialog.InitialDir :=ExtractFilePath(Application.ExeName);
//열기
opendialog.Execute;
//현재 프로그램이 위치한 디렉토리입니다