Текущий архив: 2005.02.27;
Скачать: CL | DM;
Вниз
Project_1.inc Найти похожие ветки
← →
Unknown Mystic © (2004-08-03 11:06) [0]Подскажите, пожалуйста, как проверить существование файла Project.ini и если он отсутствует - прервать запуск приложение, сообщив об ошибке. Как это сделать, используя Project_1.inc?
Вроде как-то так:
if not(FileExists(IncludeTrailingPathDelimiter(GetStartDir()) + "Project.ini")) then ...
только куда конкретно это помещать, и что после then добавить, чтобы прервать запуск?
← →
Vladimir Kladov (2004-08-03 15:33) [1]Запуск прервать нельзя. Если ваш код уже работает, значит, уже запустилось. Можно только остановить. А пихать - хоть в OnFormCreate.
← →
Unknown Mystic © (2004-08-05 12:46) [2]>> Можно только остановить
А как? Halt(ExitCode)?
>> пихать - хоть в OnFormCreate
А это не то же самое, что в добавить проверку в OnCreate формы в MainUnit.pas?
← →
SPeller © (2004-08-05 14:42) [3]Найди в inc файлах текст This file is for you.
← →
GuAV © (2004-08-12 03:06) [4]Имхо:
смотрим dpr{$IFDEF KOL_MCK} {$I project_0.inc} {$ELSE}
смотрим
project_0.inc{ KOL MCK } // Do not remove this line!
{ kReg_0.inc
Do not edit this file manually - it is generated automatically.
You can only modify kReg_1.inc and kReg_3.inc
files. }
Applet := NewApplet( "kReg" );
{$I kReg_1.inc}
...
вывод:
if not(FileExists(IncludeTrailingPathDelimiter(GetStartDir()) + "Project.ini")) then
begin
Applet.Free;
Exit;
end;
Страницы: 1 вся ветка
Текущий архив: 2005.02.27;
Скачать: CL | DM;
Память: 0.45 MB
Время: 0.035 c
