这种功能是不是使用api函数来实现的?用哪些Api?急于等待中啊

解决方案 »

  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 {this is the trick!}, nil, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0);
      Result := (HFileRes = INVALID_HANDLE_VALUE);
      if not Result then
        CloseHandle(HFileRes);
    end;对于某些类型的文件来说,这种方式判断不起作用,挺复杂的
      

  2.   

    我想要的格式是这样的:
    文件名、引用的进程名
    用createfile能做到这样的效果吗?
      

  3.   

    http://www.codeproject.com/shell/OpenedFileFinder/OpenedFileFinder_src_vc6.zip