发信人: ygcan()
整理人: teleme(2000-12-06 17:30:48), 站内信件
|
在DELPHI中怎么判断一个FILE类型的变量已经处于关闭或打开状态,谢谢
-- ※ 来源:.月光软件站 http://www.moon-soft.com.[FROM: 61.128.152.52] 发信人: kingron (金龙), 信区: Delphi 标 题: Re: Delphi下的文件 发信站: 网易虚拟社区 (Wed Dec 6 13:06:31 2000), 站内信件
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;
【 在 ygcan (乖东东) 的大作中提到: 】
: 在DELPHI中怎么判断一个FILE类型的变量已经处于关闭或打开状态,谢谢
-- 四季可以安排得极为灿烂/如果太阳愿意/太阳愿意吗/太阳愿意/所以,是的,四季极为灿烂
人生可以安排得极为热闹/如果爱情愿意/爱情愿意吗/爱情愿意/所以,是的,人生极为热闹
我可以永远不再出现/如果你愿意/你愿意吗/你愿意/所以,是的,我永远不再出现
※ 来源:.月光软件站 http://www.moon-soft.com.[FROM: 202.103.102.58]
|
|