Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.022 c