Полная версия: Саздание на диске D.
Прога создает файл на дисках C, ну и D. Если диска D нет вылетает окошко с ошибкой. Можно зделать так, что бы "окошка не было"? Подскажите.
Цитата(thinkslow @ 12.01.2007 23:50) 
Прога создает файл на дисках C, ну и D. Если диска D нет вылетает окошко с ошибкой. Можно зделать так, что бы "окошка не было"? Подскажите.
Отключить перед созданием файла контроль ввода-вывода {I-}, затем включить {I-}.
Код ошибки в переменной IoResult
Цитата
Отключить перед созданием файла контроль ввода-вывода {I-}, затем включить {I-}.
Немного не правильно - {$I-} и {$I+}
Цитата(Bokul @ 13.01.2007 7:23)
Немного не правильно - {$I-} и {$I+}
А если это не работает(или я что-то делаю не так)?
А если привести свою программу, чтобы мы посмотрели, ТАК или НЕ ТАК? (Тогда топик будет перенесен в "Задачи")? Или откроем курсы гадалок?
Код
Uses windos;
var
a:text;
i:integer;
begin
i:=0;
repeat
i:=i+1;
if i=1 then begin
Assign(a,'C:/somefile.txt');
end;
if i=2 then begin
Assign(a,'D:/somefile.txt');
end;
rewrite(a);
write(a,'Sometext');
close(a);
until i=2;
end.
var
a:text;
i:integer;
begin
i:=0;
repeat
i:=i+1;
if i=1 then begin
Assign(a,'C:/somefile.txt');
end;
if i=2 then begin
Assign(a,'D:/somefile.txt');
end;
rewrite(a);
write(a,'Sometext');
close(a);
until i=2;
end.
Если диска D нет, то TPascal7.0 пишет в черном окошке "runtime error...".
но Мне надо откомпилировать в Tpascal for windows, а там, после запуска exe, появляется маленькое окно с ошибкой. Как етого избежать?
{I+} {I-} это чудо куде девать - не знаю
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.