Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Проверка на наличие файлов!!!! [D6, Win95/98]

antonyo © (2002-05-25 10:52:00)
Как сделать так чтобы при запуске программы она проверяла наличие всех нужных файлов и если не найден хотя бы один, то она выдавала бы сообщение о не хватки файлов и зарывала себя даже не показав главного окна!!!

antonyo (2002-05-29 10:56:00) [1]
>rhf
Еще не факт что fileexists будет работать!!!Если потом проинсталировать программу на другом компе то прога выдаст сообщение что не найдены файлы (допустим запуск с рабочего стола)

Tahion (2002-05-25 12:59:00) [2]
Я делаю так:
var s:string;
begin
GetDir(s,0);
if s[length(s)"<>"\" then s:=s+"\";
if not FileExists(s+"nameOfFile") then
Showmessage("File "+s+"nameOfFile not exists!!!");
end;

Tahion (2002-05-25 12:58:00) [3]
Я делаю так:
var s:string;
begin
GetDir(s,0);
if s[length(s)"<>"\" then s:=s+"\";
if not FileExists(s+"nameOfFile") then
Showmessage("File "+s+"nameOfFile not exists!!!"
end;

rhf (2002-05-25 11:07:00) [4]
Можно римерно так ... писать надо в файле самого проекта, тот который project.dpr

program Project1;
uses
... , sysUtils, ... ;

{$R *.res}

begin
if fileExists("1.txt") and
fileExists("2.txt") and
...................
fileExists("n.txt") then

begin
Application.Initialize;
Application.CreateForm(TForm1, Form1);
Application.Run;
end
else
begin
// сообщение об ошибке
end;

end.

Anatoly Podgoretsky (2002-05-25 11:04:00) [5]
FileExists

Наверх

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