| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Project_1.inc [Delphi, KOL + MCK, Windows]
Unknown Mystic © (2004-08-03 11:06:00)Подскажите, пожалуйста, как проверить существование файла Project.ini и если он отсутствует - прервать запуск приложение, сообщив об ошибке. Как это сделать, используя Project_1.inc?
Вроде как-то так:
if not(FileExists(IncludeTrailingPathDelimiter(GetStartDir()) + 'Project.ini')) then ...
только куда конкретно это помещать, и что после then добавить, чтобы прервать запуск?
GuAV (2004-08-12 03:06:00) [1]Имхо:
смотрим 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;
SPeller (2004-08-05 14:42:00) [2]Найди в inc файлах текст This file is for you.
Unknown Mystic (2004-08-05 12:46:00) [3]>> Можно только остановить
А как? Halt(ExitCode)?
>> пихать - хоть в OnFormCreate
А это не то же самое, что в добавить проверку в OnCreate формы в MainUnit.pas?
Vladimir Kladov (2004-08-03 15:33:00) [4]Запуск прервать нельзя. Если ваш код уже работает, значит, уже запустилось. Можно только остановить. А пихать - хоть в OnFormCreate.
| |
