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.

Имхо:

смотрим 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;

Project_1.inc Найти похожие ветки