isFileInUse???

Question

在Dephi里面的这个函数isFileInUse在VB里面有么？

Answer 1

在对象浏览器里搜索过了，没有这个函数，api里也没找见。

Answer 2

用open来打开该文件，如果出错，表示文件打开。否则没有打开

Answer 3

//用open来打开该文件，如果出错，表示文件打开。否则没有打开以可写方法打开，楼主说的是这个吗？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  {this  is  the  trick!},  nil,  OPEN_EXISTING,  FILE_ATTRIBUTE_NORMAL,  0);  
     Result  :=  (HFileRes  =  INVALID_HANDLE_VALUE);  
     if  not  Result  then  
     CloseHandle(HFileRes);  
end;