Открытие формы при отсутствии файла.

[=Kostanakis=]

Вопрос: как заставить приложение открывать форму только при отсутствии определенного файла?:brberbrb:

[VeTaL_UA]

В обработчике событий появления формы прописать проверку нахождения определённого файла в определённой папке.
Код:
procedure TForm1.FormCreate(Sender: TObject);
begin
if FileExists('blabla.txt')=False then
begin
Form1.Show;
end
else
begin
Close;
end;
end;
Данный код проверяет нахождение файла blabla.txt в папке с данной программой.

[=Kostanakis=]

Спасибо, видимо не там if then else использовал.

[Mebius]

if FileExists('blabla.txt')=False then


так практичней имхо:

if not FileExists('blabla.txt') then

[=Kostanakis=]

Мёбиус, вот до этого моего интеллекта не хватило) спасибо)

Добавлено через 5 минут
ListBox1.Items.Add('Проверка данных');
if not FileExists('С:\login.ini') then
Form6.ShowModal
else
Form6.Close;
begin
Ini:=TIniFile.Create('С:\login.ini');
Nick:= Ini.ReadString('Logindata','Nick',Nick);
Pass:= Ini.ReadString('Logindata','Pass',Pass);
Server:= Ini.ReadString('Logindata','Server',Server);
end;

И все равно всплывает шестая форма, хоть файл и существует.
Почему я:brberbrb:?

[sasha-]

Мёбиус, вот до этого моего интеллекта не хватило) спасибо)

Добавлено через 5 минут
ListBox1.Items.Add('Проверка данных');
if not FileExists('С:\login.ini') then
Form6.ShowModal
else
Form6.Close;
begin
Ini:=TIniFile.Create('С:\login.ini');
Nick:= Ini.ReadString('Logindata','Nick',Nick);
Pass:= Ini.ReadString('Logindata','Pass',Pass);
Server:= Ini.ReadString('Logindata','Server',Server);
end;

И все равно всплывает шестая форма, хоть файл и существует.
Почему я:brberbrb:?

что бы ты не писал хранить пароли так не безопасно шифруй их чтоли/horror