Я пытаюсь подключить, пишу прогу. как в учебнике (изменяю только путь в дирректорию BGI), запускаю - ошибка, пишкет что файл не найден...
Я не знаю в чем проблема, все правильно с путем к папке BGI вроде...
Если кто может - подскажите в чем проблема...
Если есть возможность скинте папку BGI на alexposta@ukr.net...
Сама прога...:
Код
Uses Graph;
var
GraphDriver, GraphMode, EC : integer;
procedure Init;
begin
GraphDriver := Detect;
InitGraph ( GraphDriver , GraphMode, 'D:“祡 ?д®а¬ вЁЄ TP7TPASCAL.71BGI');
if EC <> grOK then begin
writeln ('Oshibka:', GraphErrorMsg(EC));
writeln ('Rabota - neverna');
Halt (1);
end;
end;
begin
Init;
writeln (GraphResult);
Line (0,0,Getmaxx,Getmaxy);
Readln;
closeGraph;
end.
var
GraphDriver, GraphMode, EC : integer;
procedure Init;
begin
GraphDriver := Detect;
InitGraph ( GraphDriver , GraphMode, 'D:“祡 ?д®а¬ вЁЄ TP7TPASCAL.71BGI');
if EC <> grOK then begin
writeln ('Oshibka:', GraphErrorMsg(EC));
writeln ('Rabota - neverna');
Halt (1);
end;
end;
begin
Init;
writeln (GraphResult);
Line (0,0,Getmaxx,Getmaxy);
Readln;
closeGraph;
end.
З.Ы - У меня Винда-ХР (если это играет роль...)
((..... Ну как же так?! :'(