Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Как заставить приложение не выполняться? [D6, XP]

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

Ega23 (2008-07-04 12:02:00) [1]

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

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

TeamLeader (2008-07-04 11:51:00) [2]

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

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

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

Anatoly Podgoretsky (2008-07-04 10:09:00) [3]
> Владимир (04.07.2008 9:52:08) [8]

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

Ega23 (2008-07-04 10:01:00) [4]

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

if not FileExists(...) then Exit;

и всё.

Владимир (2008-07-04 09:52:00) [5]
Да, не подумал... Привычка просто: все руками прописывать!

Anatoly Podgoretsky (2008-07-04 09:26:00) [6]

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

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

Владимир (2008-07-04 08:54:00) [7]
Основной модуль проекта переписываешь таким образом:

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

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

azamatufa (2008-07-03 09:45:00) [8]
Ты повесь проверку на On Form Show. если файоа нет скажи Close;

Leonid Troyanovsky (2008-07-03 09:30:00) [9]

> Abcdef123 (03.07.08 05:09)

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

Пиши Application.Terminate.

--
Regards, LVT.

Dennis I. Komarov (2008-07-03 09:07:00) [10]
Удалено модератором

Anatoly Podgoretsky (2008-07-03 07:08:00) [11]
if FileExists() then begin ... Run end;

Evgeny V (2008-07-03 06:55:00) [12]
Написать код в .dpr файле проекта

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »