Как заставить приложение не выполняться?

← →
Abcdef123 (2008-07-03 05:09) [0]

Здравствуйте, Мастера!
Извините, если это примитивный вопрос!Мне надо, чтоб мое приложение запускалось,если существует определенный файл,иначе,чтоб просто выдавалось сообщение об отсутсвии файла,а сама форма не запускалась.
У меня приложение(проект) простой-состоит из одной формы, так что она главная по умолчанию и создается автоматически.На событие OnCreateFirm я поставила проверку если существует определенный файл, то надо запустить это приложение(проект),Close.Так вот я на проверке, если файл не существует пишу Close, то ведь все равно выполняется в проекте строка Application.Run; И естественно выдает ошибку. Что делать?

← →
Evgeny V © (2008-07-03 06:55) [1]

Написать код в .dpr файле проекта

← →
Anatoly Podgoretsky © (2008-07-03 07:08) [2]

if FileExists() then begin ... Run end;

← →
Dennis I. Komarov © (2008-07-03 09:07) [3]

Удалено модератором

← →
Leonid Troyanovsky © (2008-07-03 09:30) [4]

> Abcdef123 (03.07.08 05:09)

> На событие OnCreateFirm я поставила проверку если существует
> определенный файл, то надо запустить это приложение(проект),
> Close.Так вот я на проверке, если файл не существует пишу
> Close

Пиши Application.Terminate.

--
Regards, LVT.

← →
azamatufa © (2008-07-03 09:45) [5]

Ты повесь проверку на On Form Show. если файоа нет скажи Close;

← →
Владимир (2008-07-04 08:54) [6]

Основной модуль проекта переписываешь таким образом:

if FileExists(FILE_NAME) then
begin
Application.Initialize;
Application.CreateForm(TForm1, TForm);
{...}
Application.Run;
end
else
begin
Application.Terminate;
end;

В Uses допиши модуль SysUtils, а то FileExists работать не будет!

← →
Anatoly Podgoretsky © (2008-07-04 09:26) [7]

> else
> begin
> Application.Terminate;
> end;

Это еще зачем? Что бы Terminate был Terminateйстей?
Прогнамма заканчивается когда выполнится последний end - скрипач не нужен.

← →
Владимир (2008-07-04 09:52) [8]

Да, не подумал... Привычка просто: все руками прописывать!

> Основной модуль проекта переписываешь таким образом:

if not FileExists(...) then Exit;

и всё.

> Владимир (04.07.2008 9:52:08) [8]

Сдается мне что данный код откуда то списан, поскольку я уже на него отвечал разным людям.

← →
TeamLeader (2008-07-04 11:51) [11]

> if not FileExists(...) then Exit;

Так читабельней:

> if FileExists() then begin ... Runend;

> Так читабельней:

Я бы не стал так уверенно заявлять. На вкус и цвет...

Как заставить приложение не выполняться? Найти похожие ветки