判断一个文件是否正在使用,或一个服务是否启动?

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; 
但是我测试一个DLL时候，提示正在使用，但事实上没使用