Использование Graph модуля

[Van-89]

Здравствуйте!...
помогите плиз...

Программа рисует круг...
При запуске программы через компилятор она нормально работает...
Но когда запускаю скомпилированные файл то ничего не происходит и окно сразу закрывается...

uses graph;
var gr1, gr2: integer;

begin

gr1:=0;
gr2:=0;
initgraph(gr1, gr2, '');

Circle(320, 200, 50);

readln;
end.

И еще...
Обязательно ли указывать тип адаптера и графического режима? и путь к графическим драйверам паскаля?

[Serge_Bliznykov]

Сообщение от Van-89

Обязательно ли указывать тип адаптера и графического режима?

нет. ноль - это Detect;
хотя чаще иницилизацию переменных записывают примерно так (это пример из встроенного в TurboPascal хелпа):

var
  grDriver: Integer;
  grMode: Integer;
  ErrCode: Integer;
begin
  grDriver := Detect;
  InitGraph(grDriver, grMode,'');
  ErrCode := GraphResult;
  if ErrCode = grOk then
  begin  { Do graphics }
    Line(0, 0, GetMaxX, GetMaxY);
    Readln;
    CloseGraph;
  end
  else
    Writeln('Graphics error:', GraphErrorMsg(ErrCode));
end.

Сообщение от Van-89

и путь к графическим драйверам паскаля?

нет, не обязательно. НО! в этом случае Ваша exe программа будет искать нужный драйвер *.bgi исключительно рядом с собой (т.е. в том каталоге, где Вы её запустили). И, скорее всего, нужен будет EGAVGA.BGI

ну и последнее. Под современными ОС (Vista, Windows 7) возможны проблемы с работой программы в графическом режиме.
Поэтому, в подобных случаях, я рекомендую пользоваться программкой, эмулирующей старый добрый MS DOS: DosBox.

[Van-89]

Спс за разъяснения)... теперь всё норм работает...

А по поводу системы и компилятора... Была вин7 64бит пришлось ставить ХРюшку 32 бита... компилятор Pascal School Pak...