Вопрос № 130216: Доброе время суток!
Имеется форма. На ней кнопка. В папке с программой находятся файлы "jurn1.cenz" и "jurn2.cenz". Нужно при загрузке программы проверить существование этих файлов. Если их нет, то выдать сообщение "бла-б...
Вопрос № 130.216
Доброе время суток!
Имеется форма. На ней кнопка. В папке с программой находятся файлы "jurn1.cenz" и "jurn2.cenz". Нужно при загрузке программы проверить существование этих файлов. Если их нет, то выдать сообщение "бла-бла-бла, иди к сисадмину", дождаться что нажмут кнопку "ОК" и закрыть программу. По нажатию кнопки нужно сменить у файлов расширение на txt и заблокировать. Т.е чтобы никто кроме самой проги не мог к ним обратиться. Жел. с комент.
Отвечает: Овчинников Николай Владиславович
Здравствуйте, Даниил Цветков!
в событии формы Oncreate пишете следующее
if not fileexists('jurn1.cenz') then ShowMessage('бла-бла-бла, иди к сисадмину');
если файл не существет выдает сообщение!
Ответ отправил: Овчинников Николай Владиславович (статус: 1-ый класс)
Ответ отправлен: 02.04.2008, 22:49 Оценка за ответ: 4 Комментарий оценки: Немного опоздали, но всё равно спасибо!
Отвечает: Genia007
Здравствуйте, Даниил Цветков!
Предлагаю свой код, разобраться должно быть просто. Только не получается
нормально заблокировать файлы, поэтому этот кусок опускаю:
procedure TForm1.FormActivate(Sender: TObject);
begin
If not (FileExists('jurn1.cenz') and FileExists('jurn2.cenz')) then {Если не существует хотя бы одного файла делаем}
begin
MessageDlg('бла-бла-бла, иди к сисадмину', mtWarning, [mbOk], 0);
Close;
end;
end;
procedure TForm1.Button5Click(Sender: TObject);
var f : file; s: String;
begin
s:= ChangeFileExt('jurn1.cenz', '.txt'); {Меняем расширение файла}
AssignFile(f, 'jurn1.cenz');
Rename(f, s); {Переименовываем файл}
s:= ChangeFileExt('jurn2.cenz', '.txt'); {Меняем расширение файла}
AssignFile(f, 'jurn2.cenz');
Rename(f, s); {Переименовываем файл}
end;
Ответ отправил: Genia007 (статус: 9-ый класс)
Ответ отправлен: 03.04.2008, 20:38 Оценка за ответ: 5 Комментарий оценки: Громадное спасибо! Всё довольно просто и понятно! С блокировкой глюки выходят - если даже блокируется нормально, то потом при чтении выдаёт ошибку: ругается матом на оператор reset.
