delphi 检测文件是否被占用

本文整理自网络，侵删。

 //delphi 检测文件是否被占用
function IsFileInUse(AName: string): boolean;
var
hFileRes: HFILE;
begin
Result := False;
if not FileExists(AName) then exit;
hFileRes := CreateFile(PChar(AName), GENERIC_READ or GENERIC_WRITE, 0,
nil, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0);
Result := hFileRes = INVALID_HANDLE_VALUE;
if not Result then
CloseHandle(hFileRes);
end; 

相关阅读 >>

Delphi screencap 截图

Delphi 搜索内存偏移函数

Delphi 文件路径获取文件名不带扩展名

Delphi xe6 读取android设备联系人

Delphi reset 以只读方式打开文件

Delphi比较两个位图是否相同

Delphi 获取北京时间

Delphi trimright 删除字符串右边的空格

Delphi使用json解析调用淘宝ip地址库rest api 示例

Delphi 判断上午还是下午

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

转载请注明出处：木庄网络博客 » delphi 检测文件是否被占用