精华区 [关闭][返回]

当前位置:网易精华区>>讨论区精华>>编程开发>>● Delphi>>文件>>怎么知道文件变量已经处于打开状态?

主题:怎么知道文件变量已经处于打开状态?
发信人: 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]

[关闭][返回]