判断文件是否存在一个API函数
2009-11-14 17:08 HYrz的菜园子 阅读(1440) 评论(0) 编辑 收藏 举报一、声明（方式有两种）:
1. function PathFileExists(pszPath:string):Bool;stdcall;external 'shlwapi.dll'Name'PathFileExistsA';
2. function PathFileExistsA(pszPath:string):Bool;stdcall;external 'shlwapi.dll';
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!');
ShowMessage('File not find!')
else
showmessage('File exists!');
