一、概述 
锁是操作系统为实现数据共享而提供的一种安全机制,它使得不同的应用程序,不同的计算机之间可以安全有效地共享和交换数据。要保证安全有效地操作共享数据,必须在相应的操作前判断锁的类型,然后才能确定数据是否可读或可写,从而为开发出健壮的程序提供切实依据。   
同样,在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

Delphi Windows API判断文件共享锁定状态(使用OpenFile来判断)的更多相关文章

  1. Delphi Windows API判断文件共享锁定状态(OpenFile和CreateFile两种方法)

    一.概述 锁是操作系统为实现数据共享而提供的一种安全机制,它使得不同的应用程序,不同的计算机之间可以安全有效地共享和交换数据.要保证安全有效地操作共享数据,必须在相应的操作前判断锁的类型,然后才能确定 ...

  2. c# 判断窗体是否永在最前(TopMost),调用windows API

    许多程序都可以把自身的窗体设为最前显示状态,这个可以参考博客c#让窗体永在最前 调用windows api 将窗体设为topmost.那么如何判断桌面上的一个窗体是否为最前显示状态呢,不光是自己的程序 ...

  3. 浅议Delphi中的Windows API调用(举的两个例子分别是String和API,都不错,挺具有代表性)

    浅议Delphi中的Windows API调用http://tech.163.com/school • 2005-08-15 10:57:41 • 来源: 天极网为了能在Windows下快速开发应用程 ...

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

    项目背景 应欧美客户需求,需要将文件压缩成.tar.gz格式的文件,并上传给客户端SFTP服务器. 你懂的,7-Zip软件的显著特点是文件越大压缩比越高,在Linux系统上相当于我们Windows系统 ...

  5. Delphi 常用API 函数

    Delphi 常用API 函数 AdjustWindowRect 给定一种窗口样式,计算获得目标客户区矩形所需的窗口大小 AnyPopup 判断屏幕上是否存在任何弹出式窗口 ArrangeIconic ...

  6. Delphi 常用API 函数列表

    Delphi 常用API 函数 AdjustWindowRect 给定一种窗口样式,计算获得目标客户区矩形所需的窗口大小AnyPopup 判断屏幕上是否存在任何弹出式窗口ArrangeIconicWi ...

  7. Windows API 函数列表 附帮助手册

    所有Windows API函数列表,为了方便查询,也为了大家查找,所以整理一下贡献出来了. 帮助手册:700多个Windows API的函数手册 免费下载 API之网络函数 API之消息函数 API之 ...

  8. DELPHI下API简述(1800个API)

    DELPHI下API简述 http://zero.cnbct.org/show.asp?id=144 auxGetDevCaps API 获取附属设备容量 auxGetNumDevs API 返回附属 ...

  9. Windows API Finishing

    input { font-size: 14px; height: 26px } td { border-style: none; border-color: inherit; border-width ...

随机推荐

  1. SMTP命令 发送邮件 DOS命令

    1.实例:从qq邮箱 发送到其他地址的邮箱 >telnet smtp.qq.com 25 >helo qq.com >auth login >NzI3MTU0MTg3QHFxL ...

  2. checkbox探究

    介绍checkbox checkbox: A check box. You must use the value attribute to define the value submitted by ...

  3. 配置nexus仓库

    Nexus有许多默认仓库:Central,Releases,Snapshots,和3rd Party 1.配置central仓库 Nexus内置了Maven中央代理仓库Central.选择仓库列表中的 ...

  4. USB基础简介

    一.USB2.0 Universal Serial Bus (通用串行总线)  符合USB总线数据通信要求的通信协议 1.意义 1.易用(热插拔.即插即用) 2.易扩充(USBHub可同时操作127个 ...

  5. PHP学习之-1.2 认识PHP脚本标识

    想在代码中实现PHP代码非常简单,如下面代码 <?php echo "和我一起学习php吧"; ?> 就像你在编写javascript脚本中需要写<script& ...

  6. (android高仿系列)今日头条 --新闻阅读器 (三) 完结 、总结 篇

    从写第一篇今日头条高仿系列开始,到现在已经过去了1个多月了,其实大体都做好了,就是迟迟没有放出来,因为我觉得,做这个东西也是有个过程的,我想把这个模仿中一步一步学习的过程,按照自己的思路写下来,在根据 ...

  7. Effective C++_笔记_条款01_视C++为一个语言联邦

    (整理自Effctive C++,转载请注明.整理者:华科小涛@http://www.cnblogs.com/hust-ghtao/) C++的各种能力和特性使它成为一个无可匹敌的工具,但也可能引发某 ...

  8. smartforms客制页格式

    smartforms需要打印非A4纸时需要手动创建页格式:创建事务代码:spad, 操作的时候需要 把所有步骤都做一遍方可正常打印,不然只能停留在预览界面无法打印.

  9. Servlet的学习之Session(5)

    在上一篇中我们介绍了如果使用Session来做一个简单的用户登录案例,在本篇中我们继续使用Session技术来做一个防止表单重复提交的案例. 这是一个很重要的知识点,在很多框架中都有防止表单重复提交的 ...

  10. HDU2504 又见GCD

    又见GCD Time Limit: 1000/1000 MS (Java/Others)    Memory Limit: 32768/32768 K (Java/Others) Total Subm ...