1

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

procedure TForm1.FormCreate(Sender: TObject);
var
  fileName: string;
begin
    fileName := 'D:\rec\Project2.dll';

    if FileExists(fileName) then
      ShowMessage(fileName+' prodolgit!')
    else
    begin
      ShowMessage(fileName+' file ne najden prog zakroetsja!');
      Form1.Close;
    end;
end;
2

2 ответа 2

7

Сделайте эту проверку в DPR файле.
В самом начале программы после первого begin в DPR.
До создания форм и инициализации приложения

if not FileExists(FileName) then
  exit;

Application.Initialize;
4
  • Возможно стоит уточнить, для начинающих, в каком месте стоит добавлять эту проверку. Т.е. привести более полный фрагмент DPR файла с такой проверкой.
    – Kromster
    7 апр 2017 в 12:17
  • В самое начало программы после первого begin в dpr. До создания форм и инициализации приложения. 7 апр 2017 в 12:27
  • А в dpr можно писать exit;? Не знал.
    – user176262
    7 апр 2017 в 14:01
  • Конечно можно:) А потом после последней строчки кода в dpr начинается finalization юнитов. 7 апр 2017 в 14:25
0

Совсем по-жесткому можно сделать вот так:

else
begin
  ShowMessage(fileName+' file ne najden prog zakroetsja!');
  Halt;
end;
1
  • 2
    Лучше до создания форм сделать проверки. И если они не пройдут, то выйти и не создавать формы совсем. 7 апр 2017 в 10:39

Ваш ответ

By clicking “Отправить ответ”, you agree to our terms of service and acknowledge you have read our privacy policy.

Всё ещё ищете ответ? Посмотрите другие вопросы с метками или задайте свой вопрос.