Форум: "Начинающим";
Текущий архив: 2008.08.03;
Скачать: [xml.tar.bz2];
ВнизКак заставить приложение не выполняться? Найти похожие ветки
← →
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]Да, не подумал... Привычка просто: все руками прописывать!
← →
Ega23 © (2008-07-04 10:01) [9]
> Основной модуль проекта переписываешь таким образом:if not FileExists(...) then Exit;
и всё.
← →
Anatoly Podgoretsky © (2008-07-04 10:09) [10]> Владимир (04.07.2008 9:52:08) [8]
Сдается мне что данный код откуда то списан, поскольку я уже на него отвечал разным людям.
← →
TeamLeader (2008-07-04 11:51) [11]
> if not FileExists(...) then Exit;
Так читабельней:
> if FileExists() then begin ... Runend;
← →
Ega23 © (2008-07-04 12:02) [12]
> Так читабельней:
Я бы не стал так уверенно заявлять. На вкус и цвет...
Страницы: 1 вся ветка
Форум: "Начинающим";
Текущий архив: 2008.08.03;
Скачать: [xml.tar.bz2];
Память: 0.47 MB
Время: 0.007 c