判断文件是否已被占用

1. function IsFileInUse(AName: string): boolean;
2. var
3. hFileRes: HFILE;
4. begin
5. Result := False;
6. if not FileExists(AName) then exit;
7. hFileRes := CreateFile(PChar(AName), GENERIC_READ or GENERIC_WRITE, 0,
8.     nil, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0);
9. Result   := hFileRes = INVALID_HANDLE_VALUE;
10. if not Result then
11.     CloseHandle(hFileRes);
12. end;