判断文件是否已被占用

1. functionIsFileInUse(AName:string):boolean;
2. var
3. hFileRes:HFILE;
4. begin
5. Result:=False;
6. ifnotFileExists(AName)thenexit;
7. hFileRes:=CreateFile(PChar(AName),GENERIC_READorGENERIC_WRITE,0,
8. nil,OPEN_EXISTING,FILE_ATTRIBUTE_NORMAL,0);
9. Result:=hFileRes=INVALID_HANDLE_VALUE;
10. ifnotResultthen
11. CloseHandle(hFileRes);
12. end;