判断文件是否存在一个API函数

一、声明（方式有两种）:

1. function PathFileExists(pszPath:string):Bool;stdcall;external 'shlwapi.dll'Name'PathFileExistsA';

2. function PathFileExistsA(pszPath:string):Bool;stdcall;external 'shlwapi.dll';

二、使用（此处用第二种方式）：//该函数的返回值为布尔型，0 或1，

if not PathFileExistsA('f:\pascal教程.doc') then
ShowMessage('File not find!')
else
showmessage('File exists!');