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 tstrings 随机打乱

Delphi获取exe文件版本信息的函数

Delphi 抓屏技巧

Delphi firemonkey在画布上绘制 imagelist图像

Delphi xe5-android开发 目录结构

Delphi 生成指定范围和个数的不重复的随机整数

Delphi xe android-uri-管理联系人uri

Delphi android下拉刷新

Delphi 全局变量 hinstance 到底是在什么时候赋值的?

Delphi 遍历fdquery1所有结果

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



打赏

取消

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

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

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

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

评论

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