Пояснения:
по п.1
Все немного сложнее, в данном случае важные не только фоксовские файлы, но и файлы ОС. Как с версиями ole*.dll, например?
по п.2
Когда-то в далекой юности, когда я еще сидел под 9х, у меня периодически возникали подобные проблемы. Один раз помню, на одной и той же машине, скопмилированный ехешник не хотел запускаться, хотя из IDE все работало нормально. Причина оказалась в русских буквах в пунках системного меню, и как позже выяснилось виновником был нестандартный переключатель клавиатуры.
Попробуй создать "отладочную" версию программы, ее смысл - отобразить строку комманды перед исполнением.
1.
wait window "command"
command
При условии, что wait window отрабатывает нормально, определить какая конструкция вызывает ошибку несложно. Чтобы упростить создание "отладочной" версии, используй что-то вроде этого:
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
52.
53.
54.
55.
lcFileName=GETFILE('prg')
IF EMPTY(lcFileName)
CANCEL
ENDIF
lhFile=FOPEN(lcFileName)
IF lhFile<= 0
WAIT WINDOW 'Не удалось открыть файл '+lcFileName
CANCEL
ENDIF
lcFileName2=JUSTFNAME(lcFileName)+'_debug.prg'
lhFile2=FCREATE(lcFileName2)
IF lhFile2<= 0
WAIT WINDOW 'Не удалось создать файл '+lcFileName2
CANCEL
ENDIF
* Использование массива на случай переноса строк в комманде
DIMENSION laBuffer[ 1 ]
laBuffer( 1 )=''
* Флаг для переноса строк
llFlag=.F.
* Счетчик строк комманды
lnCounter= 1
DO WHILE !FEOF(lhFile)
IF llFlag
lnCounter=ALEN(laBuffer)+ 1
DIMENSION laBuffer[lnCounter]
ENDIF
laBuffer[lnCounter]=FGETS(lhFile)
lcString=ALLTRIM(laBuffer[lnCounter])
llFlag=RIGHT(lcString, 1 )=';'
* Проверка, нужно ли отображать строку перед ее исполнением.
* Ограничимся первой строкой при переносе строк
IF lnCounter= 1 AND !(EMPTY(lcString) OR;
LEFT(lcString, 1 )='#' OR ;
LEFT(lcString, 1 )='*' OR ;
LEFT(lcString, 2 )='&'+'&' OR ;
UPPER(LEFT(lcString, 4 ))='NOTE' OR ;
UPPER(LEFT(lcString, 3 ))='END' OR ;
UPPER(LEFT(lcString, 3 ))='ELSE')
* Вставка отладочной информации.
* Чтобы не создавать дополнительных ошибок,
* избавляемся от кавычек
=FPUTS(lhFile2,'wait window "'+CHRTRAN(lcString,['"],'``')+'"')
ENDIF
IF !llFlag
* Вставка комманды и сброс буфера
FOR i= 1 TO lnCounter
=FPUTS(lhFile2,laBuffer[i])
ENDFOR
DIMENSION laBuffer[lnCounter]
lnCounter= 1
ENDIF
ENDDO
=FCLOSE(lhFile)
=FCLOSE(lhFile2)
MODIFY COMMAND (lcFileName2)
Если комманду с ошибкой заменить никак нельзя, начинай поиски софтины, которая конфликтует ствоей прогой.
Удачи!
