| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Он существует или нет? [D7, XP]

Страницы:   < 1 2 3 >

Der Nechk@ssoff ©   (2006-04-06 12:45:00) 

Здраствуйте!Есть тхт файл,в папке с прогой,как сделать так чтобы при загрузке программы она проверяла есть ли файл или нет(если файла нет то-showmessage)
P.S.Файл смертельно не важен для проги.

---

balepa   (2006-04-06 13:43:00) [41]

Казахстан, Екибастуз, 141200 - "до востребования" :)

---

Der Nechk@ssoff   (2006-04-06 13:39:00) [42]

> balepa ©   (06.04.06 13:36) [11]

Я вам пришлю.Чес слово!:)

---

balepa   (2006-04-06 13:36:00) [43]

Где "травку" покупал ? Оставь немного. :)

---

Der Nechk@ssoff   (2006-04-06 13:34:00) [44]

Спасибо за понимание и помощь!:(

> balepa ©   (06.04.06 13:13) [6]
ТИмяГлавнойФормыТвоейПроги.FormCreate(Sender: TObject);
begin-Если юзать бегин то:4 ошибки.Если не юзать то 1(Declaration expected but 'if' found).
If FileExists(ExtractFilePath(Application.ExeName)+имя файла) then
Твои действия
end;

---

balepa   (2006-04-06 13:29:00) [45]

> Fay ©   (06.04.06 13:23) [8]
> > но лезут ошибки
> "Обнаружен злобный ламер"? Такие?


Это сообщение о том что "КривыеРукиНеУмныйГолова.dll" загружен удачно :))

---

Fay   (2006-04-06 13:23:00) [46]

> но лезут ошибки
"Обнаружен злобный ламер"? Такие?

---

Der Nechk@ssoff   (2006-04-06 13:17:00) [47]

procedure TForm1.Formcreate(Sender: TObject);
if FileExists(ExtractFilePath(Application.ExeName)+Registry.txt) then
form1.Caption:='ÌóëüòèÌåäè 3;íûé Ðåäàêòîð'
else
showmessage('Unregistered');
end;
Вот что вышло,но лезут ошибки.

---

balepa   (2006-04-06 13:13:00) [48]

> Der Nechk@ssoff ©   (06.04.06 13:02) [5]
> А точнее...


ТИмяГлавнойФормыТвоейПроги.FormCreate(Sender: TObject);
begin
If FileExists(ExtractFilePath(Application.ExeName)+имя файла) then
Твои действия
end;

---

Der Nechk@ssoff   (2006-04-06 13:02:00) [49]

А точнее...

---

Std   (2006-04-06 12:58:00) [50]

Form.OnCreate

---

ViktorZ   (2006-04-06 12:58:00) [51]

FormCreate

---

Der Nechk@ssoff   (2006-04-06 12:55:00) [52]

> EvS ©   (06.04.06 12:51) [1]

А какую юзать процедуру?([1]-Должно выполняться при запуске проги )

---

EvS   (2006-04-06 12:51:00) [53]

If FileExists(ExtractFilePath(Application.ExeName)+имя файла) then

---

Страницы:   < 1 2 3 >

Наверх