判断文件是否在使用

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;

上一篇:阿里云Serverless应用引擎(SAE)3大核心优势全解析


下一篇:解决nagios报警不发邮件通知一例[技术]