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 + word = 数据库 + 公文处理

Delphi中通过tclientsocket获取公网(wan)ip地址

Delphi dll 字符串传递例子

Delphi 利用sendinput模拟鼠标键盘

Delphi 获取国外格式日期时间

Delphi 安卓app在线升级

Delphi获取桌面图标

Delphi里的compile和build都能产生可执行文件，有什么区别啊？

Delphi屏蔽win、ctrl_esc、alt_tab、alt_f4等键(windows xp、windows 2003 server下测试通过)

Delphi 获取百度ai 获取token

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

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