Проверка на наличие файлов!!!!

← →
antonyo (2002-05-25 10:52) [0]

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

← →
Anatoly Podgoretsky (2002-05-25 11:04) [1]

FileExists

← →
rhf (2002-05-25 11:07) [2]

Можно римерно так ... писать надо в файле самого проекта, тот который 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.

← →
Tahion (2002-05-25 12:58) [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;

← →
Tahion (2002-05-25 12:59) [4]

Я делаю так:
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;

← →
antonyo (2002-05-29 10:56) [5]

>rhf
Еще не факт что fileexists будет работать!!!Если потом проинсталировать программу на другом компе то прога выдаст сообщение что не найдены файлы (допустим запуск с рабочего стола)

Проверка на наличие файлов!!!! Найти похожие ветки