delphi 判断文件存在的一个API函数


本文整理自网络,侵删。

 经常要写DLL,为了减小DLL的大小,如无特殊要求,我一般在DLL工程中只Uses Windows,Messages这两个单元,这样生成的DLL大小就只有14-16KB左右。前次由于要在DLL中判断硬盘中某一位置是否有某一文件存在,大家都知道在Delphi的Sysutils.pas单元中有一个内部函数FileExists可以判断文件是否存在。但如果引用了此单元,则生成的DLL就变成了41.5KB以上,为了使用一个函数让程序增加3倍体积实在不爽,于是我想到了API,于是发现了shlwapi.dll中的PathFileExists函数,遗憾的是Windows.pas中并未声明它,为了声明它弄了我一晚上,才知道它是有别名的,PathFileExistsA,声明与使用方法如下:

一、声明(方式有两种):

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!');

相关阅读 >>

Delphi 注释方法

Delphi fastreport快速入门

Delphi xe 提权代码

Delphi求解一元二次方程

Delphi提取网页中的图片

Delphi 几个dataset数据导出到xml word excel txt html的函数

Delphi xe10 百度车牌识别

Delphi 创建多级目录

Delphi android使用idhttp.get抓取https(ssl)文件

Delphi 实现php的urlencode编码效果

更多相关阅读请进入《Delphi》频道 >>



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...