Delphi判断文件是否正在被使用.docx
《Delphi判断文件是否正在被使用.docx》由会员分享，可在线阅读，更多相关《Delphi判断文件是否正在被使用.docx（18页珍藏版）》请在冰豆网上搜索。
Delphi判断文件是否正在被使用
Delphi判断文件是否正在被使用
首先,我们先来认识下CreateFile函数，它的原型如下HANDLECreateFile（LPCTSTRpFileName,DWORDwDesiredAccess,DWORDwShareModeLPSECURITYATTRIBUTE
DWORdWCreationDisposition,//如何创建
DWORdWFlagsAndAttributes,//文件属性
HANDLE^TemplateFile//用于复制文件句柄
）;下面是参数的说明lpFileName
指向一个空结尾字符串。
该参数指定了用于创建或打开句柄的对象。
如果lpFileName的对象是一个路径，则有一个最大字符数的限制。
不能超过常量（MAX_PATH这个限制指示了CreateFile函数如何解析路径.
dwDesiredAccess
指定对象的访问方式，程序可以获得读访问权，写访问权,读写访问权或者是询问设备（"devicequery"）访问权.
这个参数可以是下列值的任意组合0
指定询问访问权.程序可以在不直接访问设备的情况下查询设
备的属性.GENERIC_READ
指定读访问权.可以从文件中读取数据，并且移动文件指针.可
以和GENERIC_WRITS合成为"读写访问权".GENERIC_WRITE
指定写访问权.可以从文件中写入数据，并且移动文件指针.可以和GENERIC_READ合成为"读写访问权".dwShareMode设置位标志
指明对象如何共享.如果参数是0,对象不能够共享.后续的打开对象的操作将会失败,直到该对象的句柄关闭.使用一个或多个下列值的组合来共享
一个对象.FILE_SHARE_DELETE
WINDOWSNT:
续的仅仅请求删除访问权的打开操作将会成
功.FILE_SHARE_READ
后续的仅仅请求读访问权的打开操作将会成
功.FILE_SHARE_WRITE
后续的仅仅请求写访问权的打开操作将会成功.
IpSecurityAttributes
指向一个SECURITY_ATTRIBUTE结构的指针用于确定如何在子进程中继承这个句柄.如果这个参数是NULL则该句柄不可继承.
CREATE_ALWAYS
创建一个新文件.如果该文件已经存在，函数将覆盖已存在的文
件并清除已存在的文件属性OPEN_EXISTING
打开一个文件，如果文件不存在函数将会失败•
如查你使用CreateFile函数为设备装载控制台.请查看批注中
的"为什么使用OPEN_EXISTIN标志"的部分.
OPEN_ALWAYS
如果文件存在，打开文件.如果文件不存在，并且参数中有
CREATE—NE标志,贝U创建文件.TRUNCATE_EXISTING
打开一个文件，每次打开,文件将被截至0字节.调用进程必须
用GENERIC_WRIT访问模式打
开文件.如果文件不存在则函数就会失败.
dwFlagsAndatributes
为文件指定属性和标志位该参数可以接收下列属性的任意组合.除非
其它所有的文件属性忽略FILE_ATTRIBUTE_NORMAL.FILE_ATTRIBUTE_ARCHIVE
文件将被存档,程序使用此属性来标志文件去备份或移除
FILE_ATTRIBUTE_HIDDEN
文件被隐藏,它不会在一般文件夹列表中被装
载.FILE_ATTRIBUTE_NORMAL
文件没有被设置任何属性.
FILE_ATTRIBUTE_OFFLINE
文件的数据没有被立即用到。
指出正在脱机使用该文件。
FILE_ATTRIBUTE_READONLY
这个文件只可读取.程序可以读文件，但不可以在上面写入内容，也不
可删除.FILE_ATTRIBUTE_SYSTEM
文件是系统的一部分,或是系统专用的.FILE_ATTRIBUTE_TEMPORARY
文件被使用后，文件系统将努力为（文件的）所有数据的迅迅访问保
持一块
内存。
临时文件应当在程序不用时及时删除。
dwFlagAndAttributes
可以接受下列标志的任意组合。
FILE_FLAG_WRITE_THROUGH
指示系统通过快速缓存直接写入磁
盘.FILE_FLAG_OVERLAPPED
指示系统初始化对象，此操作将对进程设置一个引用计数并返回ERROR_IO_PENDING理完成后,指定对象将被设置为信号状态.当你指定FILE_FLAG_OVERLAPPSD读写文件的函数必须指定一个OVERLAPPED勾.并且.当FILE_FLAG_OVERLAPP被指定,程序必须执行重叠参数（指向OVERLAPPED构）去进行文件的读写.这个标志也可以有超过一个操作去执
行.FILE_FLAG_NO_BUFFERING
指示系统不使用快速缓冲区或缓存，当和
FILE_FLAG_OVERLAPP组合，该标志给出最大的异步操作量,因为I/O不依赖内
存管理器的异步操作•然而,一些I/O操作将会运行得长一些，因为数据没有控制在缓存中•当使用FILE_FLAG_NO_BUFFERI打开文件进行工作时,程序必须达到下列要求：
1.文件的存取开头的字节偏移量必须是扇区尺寸的整倍数.
2.文件存取的字节数必须是扇区尺寸的整倍数.例如,如果扇区尺寸是512字节程序就可以读或者写512,1024或者2048字节，但不能够是335,981或者7171字节.
3.进行读和写操作的地址必须在扇区的对齐位置，在内存中对齐的地址是扇区尺寸的整倍数.
4.一个将缓冲区与扇区尺寸对齐的途径是使用VirtualAlloc函
数.它分配与操作系统内存页大小的整倍数对齐的内存地址.因为内存页
尺寸和扇区尺寸--2都是它们的幕.
5.这块内存在地址中同样与扇区尺寸大小的整倍数对
齐•
6.程序可以通过调用GetDiskFreeSpace来确定扇区的尺寸.
FILE_FLAG_RANDOM_ACCESS
指定文件是随机访问，这个标志可以使系统优化文件的缓冲.
FILE_FLAG_SEQUENTIAL_SCAN
指定文件将从头到尾连续地访问.这个标志可以提示系统优化文件缓冲.如果程序在随机访问文件中移动文件指针，优化可能不会发生；然而,正确的操作仍然可以得到保证
指定这个标志可以提高程序以顺序访问模式读取大文件的性能性能的提高在许多程序读取一些大的顺序文件时是异常明显的•但是可能会有小
范围的字节遗漏.
FILE_FLAG_DELETE_ON_CLOSE
指示系统在文件所有打开的句柄关闭后立即删除文件.不只有你可以指定FILE_FLAG_DELETE_ON_CLOSE没有使用FILE_SHARE_DELET后,续的打开文件的请求将会失败.FILE_FLAG_BACKUP_SEMANTICS
WINDOWSNT!
示系统为文件的打开或创建执行一个备份或恢复操作.系统保证调用进程忽略文件的安全选项，倘若它必须有一个特权.则相关的特权则是SE_BACKUP_NA和ESE_RESTORE_NAME.你也可以使
用这个标志获得一个文件夹的句柄，一个文件夹句柄能够象一个文件句柄一样传给某些Win32函数。
FILE_FLAG_POSIX_SEMANTICS
指明文件符合POSIX标准.这是在MS-DOS!
16位Windows下的标准.FILE_FLAG_OPEN_REPARSE_POINT
指定这个标志制约NTFS分区指针.该标志不能够和
CREAT_ALWA一起使用.FILE_FLAG_OPEN_NO_RECALL
指明需要文件数据，但是将继续从远程存储器中接收•它不会将数据存放在本地存储器中.
这个标志由远程存储系统或等级存储管理器系统使用.
hTemplateFile
为GENERIC_READ问的模式指定一个句柄到模板文件.模板文件在文件开始创建后提供文件属性和扩展属性.ReturnValues
返回值如果函数成功，返回一个打开的指定文件的句柄.如果指
定文件在函数调用前已经存在并且dwCreation参数是CREATE_ALWAY或者OPEN_ALWAY调用GetLastError就会返回ERROR_ALREADY_EXIS表示函数成功）.如果函数文件在调用前不存在则会返回0.如果函数失败，返会值
会是INVALID_HANDLE_VALU更多的错误信息可以调用GetLastError来获得.
好了上面唧唧歪歪这么多主要就是要大家在看下面的这个“判断文件是否正在被使用”的函数更容易理解一些，函数如下：
functionIsFileInUse（fName:
string）:
boolean;
var
HFileRes:
HFILE;
begin
Result:
=false;//返回值为假（即文件不被使用）
ifnotFileExists（fName）thenexit;//如果文件不存在则退出
HFileRes:
=CreateFile（pchar（fName）,GENERIC_READGENERIC_WRITE,0{thisisthetrick!
},nil,OPEN_EXISTING,FILE_ATTRIBUTE_NORMAL,0）;
Result:
=（HFileRes=INVALID_HANDLE_VALUE）;//女口果CreateFile返
回失败那么Result为真（即文件正在被使用）
ifnotResultthen//如果CreateFile函数返回是成功
CloseHandle（HFileRes）;//那么关闭句柄
end;函数的调用方法：
IsFileInUse（要判断的文件路径）;如果函数返回True则正在使用,False则文件现在没被使用
例句：
出处：
本站整理作者：
佚名日期：
2008-07-25评论（0）条
functionIsFileInUse（fName:
string）:
boolean;
var
HFileRes:
HFILE;
begin
Result:
=false;
ifnotFileExists（fName）then〃如果文件不存在判断文件是否存在
exit;
HFileRes:
=CreateFile（pchar（fName）,GENERIC_READorGENERIC_WRITE,0{thisisthetrick!
},nil,OPEN_EXISTING,FILE_ATTRIBUTE_NORMAL,0）;Result:
=（HFileRes=INVALID_HANDLE_VALUE）;
ifnotResultthen
CloseHandle（HFileRes）;
end;
调用
procedureTForm1.Button1Click（Sender:
TObject）;
begin
ifOpenDialog1.Executethen
begin
ifIsFileInUse（OpenDialog1.FileName）=truethen
showmessage（文件正在使用'）
else
showmessage（文件没有使用'）;
end;
end;
F面是古文鉴赏，不需要的朋友可以下载后编辑删除！
！
谢谢！
！
九歌•湘君屈原朗诵：
路英
君不行兮夷犹，蹇谁留兮中洲。
美要眇兮宜修，沛吾乘兮桂舟。
令沅湘兮无波，使江水兮安流。
望夫君兮未来，吹参差兮谁思。
驾飞龙兮北征，邅吾道兮洞庭。
薜荔柏兮蕙绸，荪桡兮兰旌。
望涔阳兮极浦，横大江兮扬灵。
扬灵兮未极，女婵媛兮为余太息。
横流涕兮潺湲，隐思君兮陫侧。
桂棹兮兰枻，斫冰兮积雪。
米薜荔兮水中，搴芙蓉兮木末。
心不同兮媒劳，恩不甚兮轻绝。
石濑兮浅浅，飞龙兮翩翩。
交不忠兮怨长，期不信兮告余以不闲。
朝骋骛兮江皋，夕弭节兮北渚。
她含着笑，切着冰屑悉索的萝卜，
她含着笑，用手掏着猪吃的麦糟，
她含着笑，扇着炖肉的炉子的火，
她含着笑，背了团箕到广场上去
晒好那些大豆和小麦,大堰河，为了生活，
在她流尽了她的乳液之后，
她就用抱过我的两臂，劳动了。
大堰河，深爱着她的乳儿；
在年节里，为了他，忙着切那冬米的糖，为了他，常悄悄地走到村边的她的家里去,为了他，走到她的身边叫一声"妈"，大堰河，把他画的大红大绿的关云长贴在灶边的墙上，
大堰河，会对她的邻居夸口赞美她的乳儿;大堰河曾做了一个不能对人说的梦：
在梦里，她吃着她的乳儿的婚酒，
坐在辉煌的结彩的堂上，
而她的娇美的媳妇亲切的叫她“婆婆”大堰河，深爱她的乳儿！
大堰河，在她的梦没有做醒的时候已死了。
她死时，乳儿不在她的旁侧，
她死时，平时打骂她的丈夫也为她流泪，五个儿子，个个哭得很悲，
她死时，轻轻地呼着她的乳儿的名字，大堰河，已死了，
她死时，乳儿不在她的旁侧。
大堰河，含泪的去了！
同着四十几年的人世生活的凌侮，同着数不尽的奴隶的凄苦，同着四块钱的棺材和几束稻草，同着几尺长方的埋棺材的土地，同着一手把的纸钱的灰，大堰河，她含泪的去了。
这是大堰河所不知道的：
她的醉酒的丈夫已死去，大儿做了土匪，第二个死在炮火的烟里，第三，第四，第五而我，我是在写着给予这不公道的世界的咒语。
当我经了长长的飘泊回到故土时，在山腰里，田野上，
兄弟们碰见时，是比六七年鸟次兮屋上，水周兮堂下。
捐余玦兮江中，遗余佩兮澧浦。
采芳洲兮杜若，将以遗兮下女。
时不可兮再得，聊逍遥兮容与。
注释
1湘君：
湘水之神，男性。
一说即巡视南方时死于苍梧的舜。
2君：
指湘君。
夷犹：
迟疑不决。
3蹇（jian3简）：
发语词。
洲：
水中陆地。
_
4要眇（miao3秒）:
美好的样子。
宜修：
恰到好处的修饰。
5沛：
水大而急。
桂舟：
桂木制成的船。
6沅湘：
沅水和湘水，都在湖南。
无波：
不起波浪。
7夫：
语助词。
8参差：
高低错落不齐，此指排箫，相传为舜所造。
9飞龙：
雕有龙形的船只。
北征：
北行。
10邅（zhan1沾）：
转变。
洞庭：
洞庭湖。
（11）薜荔：
蔓生香草。
柏（bo2伯）：
通“箔”，帘子。
蕙：
香草名。
绸：
帷帐。
（12）荪：
香草，即石菖蒲。
桡（rao2饶）:
短桨。
兰：
兰草：
旌：
旗杆顶上的饰物。
（13）涔（cen2岑）阳：
在涔水北岸，洞庭湖西北。
极浦：
遥远的水边。
（18）陫（pei2培）侧：
即“悱恻”，内心悲痛的样子。
（19）櫂（zhao4棹）
同“棹”，长桨。
枻（yi4弈）：
短桨。
］
（20）斲（zhuo2琢）
（21）搴（qian1千）
砍。
拔取。
芙蓉：
荷花。
木末：
树梢。
（22）媒：
媒人。
劳：
徒劳。
（23）甚：
深厚。
轻绝：
轻易断绝。
（24）石濑：
石上急流。
浅（jian1间）浅：
水流湍急的样子。
（25）翩翩：
轻盈快疾的样子。
（26）交：
交往。
（27）期：
相约。
不闲：
没有空闲。
（28）鼂（zhaol招）:
同“朝”，早晨。
骋骛（wu4务）：
急行。
皋：
水旁高地。
（29）弭（mi3米）：
停止。
节：
策，马鞭。
渚：
水边。
（30）次：
止息。
（31）周：
周流。
（32）捐：
抛弃。
玦（jue1决）：
环形玉佩。
（33）遗（yi2仪）：
留下。
佩：
佩饰。
醴（li3里）：
澧水，在湖南，流入洞庭湖。
_（34）芳洲：
水中的芳草地。
杜若：
香草名。
（35）遗（wei4味）：
赠予。
下女：
指身边侍女。
（36）聊：
暂且。
容与：
舒缓放松的样子。
译文
君不行兮夷犹，
神君迟疑犹豫徘徊不肯向前，
蹇谁留兮中洲？
你为谁滞留在水中的岛上呢？
美要眇兮宜修，
我容颜妙丽装饰也恰倒好处，
JI夕?
V人口MAQIJIJWv'HI_I口IP7J?
沛吾乘兮桂舟。
急速地乘坐上我那桂木小舟。
令沅、湘兮无波，叫沅湘之水柔媚得波澜不生，
使江水兮安流。
让长江之水平静地缓缓前行。
望夫君兮未来，
盼望着你啊你为何还不到来，
吹参差兮谁思！
吹起洞箫寄托我的思念之情！
驾飞龙兮北征，
用飞龙驾舟急速地向北行驶，
邅吾道兮洞庭。
改变我的道路引舟直达洞庭。
薜荔柏兮蕙绸，
用薜荔做门帘用蕙草做床帐，
荪桡兮兰旌。
以香荪装饰船桨以兰草为旗。
望涔阳兮极浦，
遥望涔阳啊在那辽远的水边，
横大江兮扬灵。
大江横陈面前彰显你的威灵。
扬灵兮未极，
难道你的威灵彰显还没终止？
女婵媛兮为余太息！
我心中为你发出长长的叹息。
横流涕兮潺湲，
眼中的清泪似小溪潺潺流下，
隐思君兮陫侧。
暗地里思念你心中充满悲伤。
桂棹兮兰枻，
想用桂木作成桨兰木作成舵，
斫冰兮积雪。
劈开你坚冰积雪也似的情怀。
米薜荔兮水中，
却似在水中采集陆生的薜荔，
搴芙蓉兮木末。
更似爬树梢采摘水生的芙蓉。
心不同兮媒劳，
两心不相通让媒妁徒劳无功，
恩不甚兮轻绝。
恩爱不深切就会轻易的断绝。
石濑兮浅浅，
留连着沙石滩上浅浅的流水，［
飞龙兮翩翩。
等待着你驾着飞龙翩然降临。
交不忠兮怨长，
你交情不忠徒增我多少幽怨，
期不信兮告余以不间。
既相约又失信却说没有时间。
朝骋骛兮江皋，
早辰我驾车在江边急急奔驰，
夕弭节兮北渚。
晚间我停鞭在北岸滩头休息。
鸟次兮屋上，
众鸟栖息在这空闲的屋顶上，
水周兮堂下。
空屋的四周有流水迂缓围绕。
捐余玦兮江中，
将你赠的玉制扳指置于江中，
遗余佩兮澧浦。
将你赠的玉佩放在澧水岸边。
采芳洲兮杜若，
采来香草装饰这芬芳的洲渎，
将以遗兮下女。
这一切都是你留给我的信物。
时不可兮再得，
难道那往昔的时光不可再得，
聊逍遥兮容与。
暂且慢步洲头排除心中烦恼。
赏析
在屈原根据楚地民间祭神曲创作的《九歌》中，《湘君》和《湘夫人》是两首最富生活情
趣和浪漫色彩的作品。
人们在欣赏和赞叹它们独特的南国风情和动人的艺术魅力时，却对湘
君和湘夫人的实际身份迷惑不解，进行了长时间的探讨、争论。
从有关的先秦古籍来看，尽管《楚辞》的《远游》篇中提到“二女”和“湘灵”，《山海
经•中山经》中说“洞庭之山……帝之二女居之，是常游于江渊”，但都没有像后来的注释
把湘君指为南巡道死的舜、把湘夫人说成追赶他而溺死湘水的二妃娥皇和女英的迹象。
最初
把两者结合在一起的是《史记•秦始皇本纪》。
书中记载秦始皇巡游至湘山（即今洞庭湖君山）时，“上问博士曰：
’湘君何神？
’博士对曰：
’闻之，尧女，舜之妻，而葬此。
’”后来刘向的《列女传》也说舜“二妃死于江、湘之间，俗谓之湘君”。
这就明确指出湘君就是舜的两
个妃子，但未涉及湘夫人。
到了东汉王逸为《楚辞》作注时，鉴于二妃是女性，只适合于湘夫人，于是便把湘君另指为“湘水之神”。
对于这种解释。
唐代韩愈并不满意，他在《黄陵
庙碑》中认为湘君是娥皇，因为是正妃故得称“君”；女英是次妃，因称“夫人”。
以后宋代
洪兴祖《楚辞补注》、朱熹《楚辞集注》皆从其说。
这一说法的优点在于把湘君和湘夫人分属两人，虽避免了以湘夫人兼指二妃的麻烦，但仍没有解决两人的性别差异，从而为诠释作
品中显而易见的男女相恋之情留下了困难。
有鉴于此，明末清初的王夫之在《楚辞通释》中
采取了比较通脱的说法，即把湘君说成是湘水之神，把湘夫人说成是他的配偶，而不再拘泥
于按舜与二妃的传说一一指实。
应该说这样的理解，比较符合作品的实际，因而也比较可取。
虽然舜和二妃的传说给探求湘君和湘夫人的本事带来了不少难以自圆的穿凿附会，但是
如果把这一传说在屈原创作《九歌》时已广为流传、传说与创作的地域完全吻合、《湘夫人》
中又有“帝子”的字样很容易使人联想到尧之二女等等因素考虑在内，则传说的某些因子如
舜与二妃飘泊山川、会合无由等，为作品所借鉴和吸取也并不是没有可能的。
因此既注意到
传说对作品可能产生的影响，又不拘泥于传说的具体人事，应该成为我们理解和欣赏这两篇作品的基点。
由此出发，不难看出作为祭神歌曲，《湘君》和《湘夫人》是一个前后相连的整体，甚
至可以看作同一乐章的两个部分。
这不仅是因为两篇作品都以“北渚”相同的地点暗中衔接，
而且还由于它们的末段，内容和语意几乎完全相同，以至被认为是祭祀时歌咏者的合唱（见
姜亮夫《屈原赋校注》）。
这首《湘君》由女神的扮演者演唱，表达了因男神未能如约前来而产生的失望、怀疑、哀伤、埋怨的复杂感情。
第一段写美丽的湘夫人在作了一番精心的打扮后，乘着小船兴致勃
勃地来到与湘君约会的地点，可是却不见湘君前来，于是在失望中抑郁地吹起了哀怨的排箫。
首二句以问句出之，一上来就用心中的怀疑揭出爱而不见的事实，为整首歌的抒情作了明确
的铺垫。
以下二句说为了这次约会，她曾进行了认真的准备，把本已姣好的姿容修饰得恰到
好处，然后才驾舟而来。
这说明她十分看重这个见面的机会，内心对湘君充满了爱恋。
正是
在这种心理的支配下，她甚至虔诚地祈祷沅湘的江水风平浪静，能使湘君顺利赴约。
然而久
望之下，仍不见他到来，便只能吹起声声幽咽的排箫，来倾吐对湘君的无限思念。
这一段的
描述，让人看到了一幅望断秋水的佳人图。
第二段接写湘君久等不至，湘夫人便驾着轻舟向北往洞庭湖去寻找，忙碌地奔波在湖中
江岸，结果依然不见湘君的踪影。
作品在这里把对湘夫人四出寻找的行程和她的内心感受紧
密地结合在一起。
你看她先是驾着龙舟北出湘浦，转道洞庭，这时她显然对找到湘君满怀希
望；可是除了眼前浩渺的湖水和装饰精美的小船外，一无所见；她失望之余仍不甘心，于是
放眼远眺涔阳，企盼能捕捉到湘君的行踪；然而这一切都毫无结果，她的心灵便再次横越大江，遍寻沅湘一带的广大水域，最终还是没有找到。
如此深情的企盼和如此执着的追求，使
得身边的侍女也为她叹息起来。
正是旁人的这种叹息，深深地触动和刺激了湘夫人，把翻滚
在她内心的感情波澜一下子推向了汹涌澎湃的高潮，使她止不住泪水纵横，一想起湘君的失
约就心中阵阵作痛。
第三段主要是失望至极的怨恨之情的直接宣泄。
首二句写湘夫人经多方努力不见湘君之
后，仍漫无目的地泛舟水中，那如划开冰雪的船桨虽然还在摆动，但给人的感觉只是她行动
的迟缓沉重和机械重复。
接着用在水中摘采薜荔和树上收取芙蓉的比喻，既总结以上追求不
过是一种徒劳而已，同时也为后面对湘君“心不同”、“恩不甚”、“交不忠”、“期不信”的一
连串斥责和埋怨起兴。
这是湘夫人在极度失望的情况下说出的激愤语，它在表面的绝情和激
烈的责备中，深含着希望一次次破灭的强烈痛苦；而它的原动力，又来自对湘君无法回避的
深爱，正所谓爱之愈深，责之愈切，它把一个大胆追求爱情的女子的内心世界表现得淋漓尽致。
第四段可分二层。
前四句为第一层，补叙出湘夫人浮湖横江从早到晚的时间，并再次强
调当她兜了一大圈仍回到约会地“北渚”时，还是没有见到湘君。
从“捐余
升级会员 