Как сделать, чтобы программа не запускалась при условии?

← →
NSer (2008-03-08 17:26) [0]

Как сделать, чтобы программа не запускалась при условии отсутствия файла БД (DB.mdb) в каталоге с программой? Только, чтобы выдавалось сообщение об его отсутствии!
В OnCreate формы нельзя... OnShow тоже... Как же быть?

← →
Kolan © (2008-03-08 17:44) [1]

Запустится, проверить если нет, то закрыться. Все это в коде проекта (Project  View Source)

← →
NSer (2008-03-08 17:46) [2]

Что нужно дополнительно прописать в Uses? кода проекта

← →
DVM © (2008-03-08 17:49) [3]

> В OnCreate формы нельзя... OnShow тоже... Как же быть?

Зато можно в DataModule, который и создать первым, до создания форм.
В любом случае придется подправить dpr файл проекта Project — View Source.

← →
Kolan © (2008-03-08 18:02) [4]

> Что нужно дополнительно прописать в Uses? кода проекта

Ничего.

Меню Project — View Source

← →
MsGuns © (2008-03-08 21:58) [5]

Сплэш форма для этого и служит обычно

← →
palva © (2008-03-08 22:06) [6]

Если программа будет что-то проверять, то значит, она уже запустилась.
Вопрос был в том, чтобы программу нельзя было запустить без нужного файла. По-моему, этого никак нельзя сделать.

← →
{RASkov} © (2008-03-08 22:25) [7]

> По-моему, этого никак нельзя сделать

Ну почему же.... сделать для программы лаунчер... при запуске которого проверять на существование некоего файла, и при наличии стартовать нужную прогу
:о)

> [2] NSer (08.03.08 17:46)
как вариант
program Project; uses SysUtils,... ...... begin if FileExists(ExtractFilePath(ParamStr(0))+"DB.mdb") then begin Application.Initialize; Application.CreateForm(...); ..... Application.Run; end; end.

← →
{RASkov} © (2008-03-08 22:52) [8]

> Только, чтобы выдавалось сообщение об его отсутствии!

Эх...)
program Project; uses SysUtils, Dialogs,... ...... begin if FileExists(ExtractFilePath(ParamStr(0))+"DB.mdb") then begin ..... end else ShowMessage("Нема файла: DB.mdb"#13#10"Работать не буду"); end.

> Как сделать, чтобы программа не запускалась при условии
> отсутствия файла БД (DB.mdb) в каталоге с программой? Только,
> чтобы выдавалось сообщение об его отсутствии!
> В

Если в
> OnCreate формы нельзя... OnShow тоже...

значит что-то не то в Датском королевстве. А программу - переписать.
Бо лезть начинающим в файл проекта не стоит.

program Project;
uses
SysUtils,...
......
begin
if not FileExists(ExtractFilePath(ParamStr(0))+"DB.mdb") then exit;
Application.Initialize;
Application.CreateForm(...);
.....
Application.Run;
end.

← →
b z (2008-03-09 12:31) [11]

> Бо лезть начинающим в файл проекта не стоит.

Ага, поэтому при создании консольного приложения сразу форму с юнитом им. :)

Как сделать, чтобы программа не запускалась при условии? Найти похожие ветки