delphi文件是否正在使用

本文整理自网络，侵删。

  function IsFileInUse(fName : string ) : boolean; 
var
HFileRes : HFILE;
begin
Result := false;
if not FileExists(fName) then
exit;
HFileRes := CreateFile(pchar(fName), 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 pchar与string互转

Delphi 防止刷新时闪烁的终极解决办法

Delphi 不重启不注销不关explorer刷新注册表

Delphi里如何限制form的大小

[译]rad studio 10.4 新变化：面向控件的 vcl 样式管理

Delphi数组之菜鸟篇

delph i判断ip地址是否正确

Delphi xe4 for ios 谨慎处理字符串

Delphi 获取 cpu 使用率的单元

Delphi 四舍五入保留一位或两位小数

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

转载请注明出处：木庄网络博客 » delphi文件是否正在使用