delphi怎么判断一个文本文件正在被使用？

Question

如题所述

Answer 1

使用CreateFile函数来判断文件是否打开，编写以下函数就可以判断文件是否已打开了，代码如下：\x0d\x0a\x0d\x0afunction IsFileInUse(AName: string): boolean;\x0d\x0avar\x0d\x0a hFileRes: HFILE;\x0d\x0abegin\x0d\x0a Result := False;\x0d\x0a if not FileExists(AName) then exit;\x0d\x0a hFileRes := CreateFile(PChar(AName), GENERIC_READ or GENERIC_WRITE, 0, nil, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0);\x0d\x0a Result := hFileRes = INVALID_HANDLE_VALUE;\x0d\x0a if not Result then\x0d\x0a CloseHandle(hFileRes);\x0d\x0aend;\x0d\x0a使用方式：\x0d\x0a if IsFileInUse('d:\test.txt') then\x0d\x0a ShowMessage('文件在使用.');\x0d\x0a else\x0d\x0a ShowMessage('文件没有使用.');\x0d\x0a\x0d\x0aCreateFile函数说明：\x0d\x0a\x0d\x0aHANDLE CreateFile(\x0d\x0a\x0d\x0a　　LPCTSTR lpFileName, //指向文件名的指针\x0d\x0a\x0d\x0a　　DWORD dwDesiredAccess, //访问模式（写/读）\x0d\x0a\x0d\x0a　　DWORD dwShareMode, //共享模式\x0d\x0a\x0d\x0a　　LPSECURITY_ATTRIBUTES lpSecurityAttributes, //指向安全属性的指针\x0d\x0a\x0d\x0a　　DWORD dwCreationDisposition, //如何创建\x0d\x0a\x0d\x0a　　DWORD dwFlagsAndAttributes, //文件属性\x0d\x0a\x0d\x0a　　HANDLE hTemplateFile //用于复制文件句柄\x0d\x0a\x0d\x0a　　);\x0d\x0a\x0d\x0a　　参数列表\x0d\x0a\x0d\x0a　　lpFileName String 要打开的文件的名字\x0d\x0a\x0d\x0a　　dwDesiredAccess Long 如果为 GENERIC_READ 表示允许对设备进行读访问；如果为\x0d\x0aGENERIC_WRITE 表示允许对设备进行写访问（可组合使用）；如果为零，表示只允许获取与一个设备有关的信息\x0d\x0a\x0d\x0a　　dwShareMode Long， 零表示不共享； FILE_SHARE_READ 和/或 FILE_SHARE_WRITE\x0d\x0a表示允许对文件进行共享访问\x0d\x0a\x0d\x0a　　lpSecurityAttributes SECURITY_ATTRIBUTES，\x0d\x0a指向一个SECURITY_ATTRIBUTES结构的指针，定义了文件的安全特性（如果操作系统支持的话）\x0d\x0a\x0d\x0a　　dwCreationDisposition Long，下述常数之一：\x0d\x0a\x0d\x0a　　CREATE_NEW 创建文件；如文件存在则会出错\x0d\x0a\x0d\x0a　　CREATE_ALWAYS 创建文件，会改写前一个文件\x0d\x0a\x0d\x0a　　OPEN_EXISTING 文件必须已经存在。由设备提出要求\x0d\x0a\x0d\x0a　　OPEN_ALWAYS 如文件不存在则创建它\x0d\x0a\x0d\x0a　　TRUNCATE_EXISTING 讲现有文件缩短为零长度\x0d\x0a\x0d\x0a　　dwFlagsAndAttributes Long， 一个或多个下述常数\x0d\x0a\x0d\x0a　　FILE_ATTRIBUTE_ARCHIVE 标记归档属性\x0d\x0a\x0d\x0a　　FILE_ATTRIBUTE_COMPRESSED 将文件标记为已压缩，或者标记为文件在目录中的默认压缩方式\x0d\x0a\x0d\x0a　　FILE_ATTRIBUTE_NORMAL 默认属性\x0d\x0a\x0d\x0a　　FILE_ATTRIBUTE_HIDDEN 隐藏文件或目录\x0d\x0a\x0d\x0a　　FILE_ATTRIBUTE_READONLY 文件为只读\x0d\x0a\x0d\x0a　　FILE_ATTRIBUTE_SYSTEM 文件为系统文件\x0d\x0a\x0d\x0a　　FILE_FLAG_WRITE_THROUGH 操作系统不得推迟对文件的写操作\x0d\x0a\x0d\x0a　　FILE_FLAG_OVERLAPPED 允许对文件进行重叠操作\x0d\x0a\x0d\x0a　　FILE_FLAG_NO_BUFFERING 禁止对文件进行缓冲处理。文件只能写入磁盘卷的扇区块\x0d\x0a\x0d\x0a　　FILE_FLAG_RANDOM_ACCESS 针对随机访问对文件缓冲进行优化\x0d\x0a\x0d\x0a　　FILE_FLAG_SEQUENTIAL_SCAN 针对连续访问对文件缓冲进行优化\x0d\x0a\x0d\x0a　　FILE_FLAG_DELETE_ON_CLOSE 关闭了上一次打开的句柄后，将文件删除。特别适合临时文件\x0d\x0a\x0d\x0a　　也可在Windows NT下组合使用下述常数标记：\x0d\x0a\x0d\x0a　　SECURITY_ANONYMOUS， SECURITY_IDENTIFICATION，\x0d\x0aSECURITY_IMPERSONATION， SECURITY_DELEGATION，\x0d\x0aSECURITY_CONTEXT_TRACKING， SECURITY_EFFECTIVE_ONLY\x0d\x0a\x0d\x0a　　hTemplateFile Long， 如果不为零，则指定一个文件句柄。新文件将从这个文件中复制扩展属性\x0d\x0a\x0d\x0a返回值\x0d\x0a\x0d\x0a　　如执行成功，则返回文件句柄。\x0d\x0a\x0d\x0a　　INVALID_HANDLE_VALUE表示出错，会设置GetLastError。即使函数成功，但若文件存在，且指定了CREATE_ALWAYS\x0d\x0a或 OPEN_ALWAYS，GetLastError也会设为ERROR_ALREADY_EXISTS