Pascal: подключение модуля Graph

[sir.andrey]

Товарищи!!!

Помогите пожалуйста разобраться!!!
Когда я запускаю программу, происходит вылет из паскаля из-за ошибки:
процессор выполнил недопустимую операцию.
Модуль Graph.tpu и файл видео режима EgaVga.bgi лежит в директории с паскалем (вообще все паскалевские файлы лежат в одной директории).
Я просто в замешательстве
Даже не могу предположить, что не так?
По идее все должно работать на автомате, т.к. переменной driver я присваиваю значение константы detect, и проверяю на наличие ошибок, но ошибку паскаль не выдает, просто тупо вылетает!!!
Подскажите пожалуйста в чем проблема?!?!

[Grag]

Сообщение от sir.andrey

Люди добрые, ну помогите пожалуйста
Не ужели ни кто не знает в чем ошибка?

Вот кусок кода из одной моей очень старой программы:

     ClrScr;
     grfDriver:=Detect;
     InitGraph(grfDriver,grfMode,'');
     Coder:=GraphResult;
     if Coder<>0 then
       begin
         case Coder of
           -1:begin
                Error_str[1]:='не инициирован';
                Error_str[2]:=' графический  ';
                Error_str[3]:='    режим     '
              end;
           -2:begin
                Error_str[1]:=' не определен ';
                Error_str[2]:='     тип      ';
                Error_str[3]:='   драйвера   '
              end;
           -3:begin
                Error_str[1]:='  не найден   ';
                Error_str[2]:=' графический  ';
                Error_str[3]:='   драйвер    '
              end;
           -4:begin
                Error_str[1]:=' неправильный ';
                Error_str[2]:='     тип      ';
                Error_str[3]:='   драйвера   '
              end;
          -10:begin
                Error_str[1]:=' неправильный ';
                Error_str[2]:=' графический  ';
                Error_str[3]:='    режим     '
              end
         end;{case}
         REKTAN(28,7,50,13,2);
         GoToXY(36,7);
         writeln(' error ');
         writeln;
         for igrf:=1 to 3 do
           begin
                GoToXY(33,whereY);
                writeln(Error_str[igrf])
           end;
         delay(3500);
         HALT
       end;
     ClearDevice;

Там все работало как надо, да и сейчас работает... проверял...

[sir.andrey]

Не не помогло, все равно выкидывает из паскаля!
Может все дело в ОС?
(windows XP SP3)

[Grag]

Сообщение от sir.andrey

Не не помогло, все равно выкидывает из паскаля!
Может все дело в ОС?
(windows XP SP3)

Тебя из среды разработки выкидывает?

[sir.andrey]

Сообщение от Grag

Тебя из среды разработки выкидывает?

Да
Выскакивает ошибка о том, что процессор выполнил не допустимую операцию!
По нету пошарил, там короче такая статейка:

Возникает очень много вопросов вроде "я всё делаю как написано, а почему оно не работает?".
Так вот перед использованием графического режима, перепишите файлы bgi в папку куда у вас компилируется программа, и проверьте, не стоит ли на файле bgi атрибут Read Only (толко чтение) и если стоит, то уберите его.

Я не понимаю где находится этот атрибут?

[Grag]

Сообщение от sir.andrey

Я не понимаю где находится этот атрибут?

Запускаешь "проводник", находишь файл, правой кнопкой мыша на нем, "свойства"... И смотри какие аттрибуты имеет файл... меняй их, если надо.

[sir.andrey]

Ну и с этим атрибутом все в порядке!
Я уже вообще не знаю что предпринять!
Мож реально дело в винде?
Или в процессоре?

[Grag]

Сообщение от sir.andrey

Ну и с этим атрибутом все в порядке!
Я уже вообще не знаю что предпринять!
Мож реально дело в винде?
Или в процессоре?

Скинь мне на мыло свою программу...

[sir.andrey]

Да тут не в программе дело, я программу из учебника писал!

[Serge_Bliznykov]

sir.andrey
DOSBox ставьте, и запускайте дос программы в нём.
всё будет работать!