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

[=Kostanakis=]

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

[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;

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

[sasha-]

Цитата: Сообщение от =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; И все равно всплывает шестая форма, хоть файл и существует. Почему я?

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