Текущий архив: 2006.02.12;
Скачать: CL | DM;
Вниз
Ошибка при попытке записи на read-only диск Найти похожие ветки
← →
Ell © (2006-01-26 14:14) [0]Программа при выходе должна записывать переменные в свою папку. Если же программа расположена на read-only носителе (например, CD или DVD), естественно, от попыток записи надо отказаться.
Пытаюсь сделать так:sc_readonly:=false;
AssignFile(f, CFGFile);
Rewrite(f);
try
BlockWrite(f,GrayDays,1);
except
sc_readonly:=true;
end;
if not sc_readonly then
begin
BlockWrite(f,FullMode,1);
BlockWrite(f,Marked1Y,2);BlockWrite(f,Marked1M,1);BlockWrite(f,Marked1D,1);
BlockWrite(f,Marked2Y,2);BlockWrite(f,Marked2M,1);BlockWrite(f,Marked2D,1);
end;
CloseFile(f);
Записал на диск, запустил. При закрытии программы (записать данные она всё же пытается!), сообщение "File access denied" и приходится закрывать только через "Диспетчер задач".
Что делаю неправильно? Наверное, чего-то не хватает между except и end;?
← →
Fay © (2006-01-26 14:19) [1]{$I-} ?
← →
stone © (2006-01-26 14:25) [2]Rewrite(f) перенеси после try
← →
Ell © (2006-01-26 14:48) [3]> stone © (26.01.06 14:25) [2]
> Rewrite(f) перенеси после try
Я перед тем, как задать вопрос пробовал Rewrite(f); поместить между try и except, а BlockWrite(f,GrayDays,1); - к остальным BlockWrite. Выдаётся сообщение, что-то вроде: "I/O error 103"
← →
Desdechado © (2006-01-26 15:35) [4]http://delphimaster.net/view/1-1138092905/
Страницы: 1 вся ветка
Текущий архив: 2006.02.12;
Скачать: CL | DM;
Память: 0.46 MB
Время: 0.039 c
