各位高手，怎样编写一个后台监视程序，判断一个文件是否正在被使用，若被使用弹出一个信息告诉用户说该文件正在被使用，否则一直监视。

Question

各位高手，怎样编写一个后台监视程序，判断一个文件是否正在被使用，若被使用弹出一个信息告诉用户说该文件正在被使用，否则一直监视。这个问题关系到俺的前途问题。请您多多关照吧。

Answer 1

HOOK API函数FileOpen，可以参考全局HOOK API的例子。

Answer 2

不用等了哦，我给你一个检测文件是否在使用的函数，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
end;出处: http://[email protected]