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 xe2模拟键盘按键

Delphi获取网卡mac地址多个方法

Delphi post登陆Delphi盒子论坛源码

Delphi中控件数组批量赋值

Delphi imagelist-图片(bmp)按名称而不按索引

Delphi 组件篇 之 tbevel组件

Delphi memo加个prompttext

Delphi firemonkey 绘图

Delphi中的split函数

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



打赏

取消

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

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

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

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

评论

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