如何判断目录中的一个文件是否被使用中或被写保护(即不可写)？

Question

有没这样的函数>？？
急啊

Answer 1

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;

Answer 2

用CreateFile带排他的访问参数尝试打开就知道的

Answer 3

到这个地址
http://www.fm201.com
的 “下载中心”   看看，希望有帮助

Answer 4

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;
好方法:-)
支持，并