Часто требуется узнать до открытия файла существет он или нет, используется другой программой или нет.
function CheckFile(filename:string):integer;
var f : file;
begin
assignfile(f,filename);
{$I-}
reset(f);
closefile(f);
{$I+}
if Ioresult <>0 then
CheckFile:=1
else
CheckFile:=0
end;
|
Главная
Каталог файлов
