Delphi Windows API判断文件共享锁定状态

一、概述 
锁是操作系统为实现数据共享而提供的一种安全机制,它使得不同的应用程序,不同的计算机之间可以安全有效地共享和交换数据。要保证安全有效地操作共享数据,必须在相应的操作前判断锁的类型,然后才能确定数据是否可读或可写,从而为开发出健壮的程序提供切实依据。   
同样,在Windows中,文件可以共享模式打开,它也涉及到锁的操作问题。根据Windows中文件共享时加锁范围的大小,锁可分为全局锁和局部锁;全局锁以锁定文件全部内容为特征,而局部锁以锁定文件的局部内容为特征,且文件的锁定区域不可重复。根据Windows中文件共享时锁的操作权限分类,锁可分为:读锁,写锁,读写锁(可读可写,全局锁)。

利用上述文件中锁的区域不可重复的特性,我们可尝试给指定文件加一全局锁。若加锁成功,说明指定文件未被其它进程锁定;否则,说明有其它进程锁定了该文件。这里,我们利用两个Windows   Api文件操作函数:OpenFile和CreateFile来实现锁定状态的判断。

二、实现方法

1.   OpenFile函数使用说明   
函数原型:function   OpenFile(const   lpFileName:   LPCSTR;   var   lpReOpenBuff:   TOFStruct;   
uStyle:   UINT):   HFILE;   stdcall;   
函数功能:以不同方式打开文件的操作(为兼容16位Windows程序保留的函数)。建议   
Windows下使用CreateFile函数。   
参数说明:lpFileName:   要打开文件的名称   
lpReOpenBuff:   变量指针,用于存储文件被首次打开时接收信息。   
UStyle:   打开文件的常量类型。   
常量名   
意义

Of_Create   
创建文件

Of_Delete   
删除指定文件

Of_Exist   
打开文件以验证其存在否?存在,返回一无效句柄;否则,返回负数

Of_Parse   
填充lpReOpenBuff内容,但不进行任何操作

Of_Prompt   
如存在不存在,则显示一有重试和取消按钮的消息框

Of_Read   
只读方式打开

Of_ReadWrite   
读写方式打开

Of_ReOpen   
打开lpReOpenBuff内指定的文件,而不依据lpFileName

Of_Search   
强迫Windows查找文件---即使指定了文件路径

Of_Share_Compat   
文件可由多个程序多次打开

Of_Share_Deny_None   
共享打开

Of_Share_Deny_Read   
禁止其它程序读该文件

Of_Share_Deny_Write   
禁止其它程序写该文件

Of_Share_Exclusive   
独占方式打开文件,其它程序不得再打开该文件

Of_Write   
只写方式打开

返回值:成功,返回值为文件句柄(但可能无效,如:Of_Exist);出错,返回HFile_Error。   
2.   CreateFile函数使用说明   
函数原型:function   CreateFile(lpFileName:   PChar;   
dwDesiredAccess,   dwShareMode:   DWORD;   
lpSecurityAttributes:   PSecurityAttributes;   
dwCreationDisposition,   dwFlagsAndAttributes:   DWORD;   
hTemplateFile:   THandle):   THandle;   stdcall;   
函数功能:以不同方式打开文件的操作,还可操作管道、邮槽、通信服务、设备以及控   
制台等。   
参数说明:   lpFileName:   要打开文件的名称   
dwDesiredAccess:期望存取模式   
取值   0:只允许获取一个设备的相关信息。   
Generic_Read:只允许读设备   
Generic_Write:只允许写设备(二者可组合使用)。   
dwShareMode:共享模式。   
取值   0:   不共享。   
File_Share_Read和/或File_Share_Write:共享读和/或写。   
lpSecurityAttributes:   定义文件安全特性的指针(前提:操作系统支持)。   
DwCreationDisposition:   打开和创建文件方式。   
取值   Create_New:   总创建新文件,如文件已存在,则出错。   
Create_Always:   总创建新文件(会覆盖旧文件)。   
Open_Existing:   打开已存在的文件,若文件不存在,则出错。   
Open_Always:   总打开文件,如不存在,则创建。   
dwFlagsAndAttributes:   要打开文件的标志和属性(如:隐藏,系统等)。   
一般用File_Attribute_Normal,默认属性。   
hTemplateFile::模板文件句柄。   
若非0则指定一个文件句柄;否则,新文件将从这个文件复制   
扩展属性。   
返回值:成功,返回值为文件句柄;出错,返回Invalid_Handle_Value。

3。程序实现   
利用上述两个函数,我们可编写程序判断某文件是否正在被其它进程锁定,以下为详细代码。   
//利用OpenFile   Api函数判断   
function   FileLocked(Fn:   string):   Boolean;   
var   
I   :   Integer;   
Struct:   TOfStruct;   
Style:   Cardinal;   
Hdl:   Hfile;   
Drive:   String;   
begin   
Style   :=   OF_Share_Exclusive;   //排它方式打开   
Drive   :=   UpperCase(Fn[1]);   
Struct.fFixedDisk   :=   Ord(Drive   <>   ’A’);   //判断是否是硬盘   
Struct.cBytes   :=   SizeOf(Struct);   
For   I   :=   1   to   Length(Fn)   do   
Struct.szPathName[I-1]   :=   Fn[I];   
Struct.szPathName[I]   :=   Chr(0);   //填充文件名   
Hdl   :=   OpenFile(Pchar(Fn),   Struct,   Style);   
if   Hdl   =   HFILE_ERROR   then   
begin   
Result   :=   True;   //文件被锁定   
Showmessage(SysErrorMessage(GetLastError));   //显示错误原因   
end   
else   
Result   :=   False;   
end;

//利用CreateFile   Api函数判断   
function   LockedFile(Fn:   string):   Boolean;   
var   
AFile:   THandle;   
SecAtrrs:   TSecurityAttributes;   
begin   
FillChar(SecAtrrs,   SizeOf(SecAtrrs),   #0);   
SecAtrrs.nLength   :=   SizeOf(SecAtrrs);   //结构体长度   
SecAtrrs.lpSecurityDescriptor   :=   nil;   //安全描述   
SecAtrrs.bInheritHandle   :=   True;   //继承标志   
AFile   :=   CreateFile(PChar(Fn),   GENERIC_READ   or   GENERIC_WRITE,   
FILE_SHARE_Read,   @SecAtrrs,   OPEN_EXISTING,   
FILE_ATTRIBUTE_Normal,   0);   
if   AFile   =   INVALID_HANDLE_VALUE   then   
begin   
Result   :=   True;   //文件被锁定   
showmessage(SysErrorMessage(GetLastError));   
end   
else   
Result   :=   False;   
end;

4。程序的测试   
在Delphi中新建一Application,在Form1的OnCreate事件中写入:   
if   Not   FileLocked(‘c:\windows\desktop\a.txt’)   then   Showmessage(‘Cannot   Open   1’);   
或   
if   Not   LockedFile   (‘c:\windows\desktop\a.txt’)   then   Showmessage(‘Cannot   Open   2’);   
再新建一批处理文件保存到桌面上,内容为:   
dir   c:\*.*/s> c:\windows\desktop\a.txt’   
运行此批处理文件,然后运行上述Delphi程序。这时候会出现消息框“其他进程正使用该文件,   因此现在无法访问。”。当批处理命令运行完毕后,再运行此程序则不会出现此信息。此时,再双击a.txt文档,记事本程序将无法打开该文档,说明加锁成功。

三、结束语   
以上用两种方法实现了如何判断一个文件是否正被其它进程锁定。其中,方法一实现较为简单,但兼容性不好;而方法二为Windows推荐的方法,且功能强大。   
利用以上实现方法,较好地解决了Windows下文件锁定状态判断的问题。为避免发生共享冲突和提高文件操作程序的健壮性提供了很好的参考依据。

http://blog.csdn.net/yanjiaye520/article/details/7880967

时间: 2024-10-04 22:24:12

Delphi Windows API判断文件共享锁定状态的相关文章

关于windows的锁定状态

本来以为要在项目里用上的,现在看来不需要了,把相关的函数列一下吧,以后如果用到了,再写详细点 锁定计算机 : LockWorkStation 注册Windows状态变化的监听函数: BOOL WTSRegisterSessionNotification( __in HWND hWnd, __in DWORD dwFlags );  调用这个函数后,hWnd所代表的窗口会收到WM_WTSSESSION_CHANGE消息,关于这个消息的细节可以查看MSDN,这个消息很有用的. 关于windows的锁

Delphi - Windows系统下,Delphi调用API函数和7z.dll动态库,自动把文件压缩成.tar.gz格式的文件

项目背景 应欧美客户需求,需要将文件压缩成.tar.gz格式的文件,并上传给客户端SFTP服务器. 你懂的,7-Zip软件的显著特点是文件越大压缩比越高,在Linux系统上相当于我们Windows系统上WinRAR或者好压软件一样的存在. 7-Zip软件下载与安装 网上下载相关安装包并完成安装,找到安装目录,复制7z.dll文件到D盘. .bat文件的制作 通过7-Zip软件使用手册了解到,通过动态命令行调用7z.dll可以把文件压缩成.tar.gz格式的,实际上是先将文件压缩成.tar格式的文

delphi 常用api

Delphi 常用API 函数 AdjustWindowRect 给定一种窗口样式,计算获得目标客户区矩形所需的窗口大小 AnyPopup 判断屏幕上是否存在任何弹出式窗口 ArrangeIconicWindows 排列一个父窗口的最小化子窗口 AttachThreadInput 连接线程输入函数 BeginDeferWindowPos 启动构建一系列新窗口位置的过程 BringWindowToTop 将指定的窗口带至窗口列表顶部 CascadeWindows 以层叠方式排列窗口 ChildWi

Delphi 常用API 函数

Delphi 常用API 函数 AdjustWindowRect 给定一种窗口样式,计算获得目标客户区矩形所需的窗口大小 AnyPopup 判断屏幕上是否存在任何弹出式窗口 ArrangeIconicWindows 排列一个父窗口的最小化子窗口 AttachThreadInput 连接线程输入函数 BeginDeferWindowPos 启动构建一系列新窗口位置的过程 BringWindowToTop 将指定的窗口带至窗口列表顶部 CascadeWindows 以层叠方式排列窗口 ChildWi

Windows API 大全

常用Windows API1. API之网络函数WNetAddConnection 创建同一个网络资源的永久性连接WNetAddConnection2 创建同一个网络资源的连接WNetAddConnection3 创建同一个网络资源的连接WNetCancelConnection 结束一个网络连接WNetCancelConnection2 结束一个网络连接WNetCloseEnum 结束一次枚举操作WNetConnectionDialog 启动一个标准对话框,以便建立同网络资源的连接WNetDis

DELPHI下API简述(1800个API)

DELPHI下API简述 http://zero.cnbct.org/show.asp?id=144 auxGetDevCaps API 获取附属设备容量 auxGetNumDevs API 返回附属设备数量 auxGetVolume API 获取当前卷设置 auxOutMessage API 向输出设备发送消息 auxSetVolume API 设置附属设备卷 AbortDoc API 终止一项打印作业 AbortPath API 终止或取消DC中的一切路径 AbortPrinter API

Windows API教程文件系统

本篇文章主要介绍了"Windows API教程文件系统",主要涉及到Windows API教程文件系统方面的内容,对于Windows API教程文件系统感兴趣的同学可以参考一下. 索引 概念简介 文件对象 文件流 文件句柄 文件指针 文件系统操作 常见 API 高级文件操作 本讲程序功能列表 CreateFile 具体参数 返回值 DeleteFile 参数 返回值 CopyFile.MoveFile.FindFirstFile ReadFile GetCurrentDirectory

Windows API参考大全新编

书名:新编Windows API参考大全 作者:本书编写组 页数:981页 开数:16开 字数:2392千字 出版日期:2000年4月第二次印刷 出版社:电子工业出版社 书号:ISBN 7-5053-5777-8 定价:98.00元 内容简介 作为Microsoft 32位平台的应用程序编程接口,Win32 API是从事Windows应用程序开发所必备的.本书首先对Win32 API函数做完整的概述:然后收录五大类函数:窗口管理.图形设备接口.系统服务.国际特性以及网络服务:在附录部分,讲解如何

WINDOWS API函数说明

Windows API函数大全,从事软件开发的朋友可以参考下 1. API之网络函数 WNetAddConnection 创建同一个网络资源的永久性连接 WNetAddConnection2 创建同一个网络资源的连接 WNetAddConnection3 创建同一个网络资源的连接 WNetCancelConnection 结束一个网络连接 WNetCancelConnection2 结束一个网络连接 WNetCloseEnum 结束一次枚举操作 WNetConnectionDialog 启动一个