delphi怎麽判斷壹個文本文件正在被使用？
使用CreateFile函數來判斷文件是否打開，編寫以下函數就可以判斷文件是否已打開了，代碼如下：\x0d\\x0d\function IsFileInUse(AName: string): boolean;\x0d\var\x0d\ hFileRes: HFILE;\x0d\begin\x0d\ Result := False;\x0d\ if not FileExists(AName) then exit;\x0d\ hFileRes := CreateFile(PChar(AName), GENERIC_READ or GENERIC_WRITE, 0, nil, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0);\x0d\ Result := hFileRes = INVALID_HANDLE_VALUE;\x0d\ if not Result then\x0d\ CloseHandle(hFileRes);\x0d\end;\x0d\使用方式：\x0d\ if IsFileInUse('d:\test.txt') then\x0d\ ShowMessage('文件在使用.');\x0d\ else\x0d\ ShowMessage('文件沒有使用.');\x0d\\x0d\CreateFile函數說明：\x0d\\x0d\HANDLE CreateFile(\x0d\\x0d\ LPCTSTR lpFileName, //指向文件名的指針\x0d\\x0d\ DWORD dwDesiredAccess, //訪問模式（寫/讀）\x0d\\x0d\ DWORD dwShareMode, //***享模式\x0d\\x0d\ LPSECURITY_ATTRIBUTES lpSecurityAttributes, //指向安全屬性的指針\x0d\\x0d\ DWORD dwCreationDisposition, //如何創建\x0d\\x0d\ DWORD dwFlagsAndAttributes, //文件屬性\x0d\\x0d\ HANDLE hTemplateFile //用於復制文件句柄\x0d\\x0d\ );\x0d\\x0d\ 參數列表\x0d\\x0d\ lpFileName String 要打開的文件的名字\x0d\\x0d\ dwDesiredAccess Long 如果為 GENERIC_READ 表示允許對設備進行讀訪問；如果為\x0d\GENERIC_WRITE 表示允許對設備進行寫訪問（可組合使用）；如果為零，表示只允許獲取與壹個設備有關的信息\x0d\\x0d\ dwShareMode Long， 零表示不***享； FILE_SHARE_READ 和/或 FILE_SHARE_WRITE\x0d\表示允許對文件進行***享訪問\x0d\\x0d\ lpSecurityAttributes SECURITY_ATTRIBUTES，\x0d\指向壹個SECURITY_ATTRIBUTES結構的指針，定義了文件的安全特性（如果操作系統支持的話）\x0d\\x0d\ dwCreationDisposition Long，下述常數之壹：\x0d\\x0d\ CREATE_NEW 創建文件；如文件存在則會出錯\x0d\\x0d\ CREATE_ALWAYS 創建文件，會改寫前壹個文件\x0d\\x0d\ OPEN_EXISTING 文件必須已經存在。由設備提出要求\x0d\\x0d\ OPEN_ALWAYS 如文件不存在則創建它\x0d\\x0d\ TRUNCATE_EXISTING 講現有文件縮短為零長度\x0d\\x0d\ dwFlagsAndAttributes Long， 壹個或多個下述常數\x0d\\x0d\ FILE_ATTRIBUTE_ARCHIVE 標記歸檔屬性\x0d\\x0d\ FILE_ATTRIBUTE_COMPRESSED 將文件標記為已壓縮，或者標記為文件在目錄中的默認壓縮方式\x0d\\x0d\ FILE_ATTRIBUTE_NORMAL 默認屬性\x0d\\x0d\ FILE_ATTRIBUTE_HIDDEN 隱藏文件或目錄\x0d\\x0d\ FILE_ATTRIBUTE_READONLY 文件為只讀\x0d\\x0d\ FILE_ATTRIBUTE_SYSTEM 文件為系統文件\x0d\\x0d\ FILE_FLAG_WRITE_THROUGH 操作系統不得推遲對文件的寫操作\x0d\\x0d\ FILE_FLAG_OVERLAPPED 允許對文件進行重疊操作\x0d\\x0d\ FILE_FLAG_NO_BUFFERING 禁止對文件進行緩沖處理。文件只能寫入磁盤卷的扇區塊\x0d\\x0d\ FILE_FLAG_RANDOM_ACCESS 針對隨機訪問對文件緩沖進行優化\x0d\\x0d\ FILE_FLAG_SEQUENTIAL_SCAN 針對連續訪問對文件緩沖進行優化\x0d\\x0d\ FILE_FLAG_DELETE_ON_CLOSE 關閉了上壹次打開的句柄後，將文件刪除。特別適合臨時文件\x0d\\x0d\ 也可在Windows NT下組合使用下述常數標記：\x0d\\x0d\ SECURITY_ANONYMOUS， SECURITY_IDENTIFICATION，\x0d\SECURITY_IMPERSONATION， SECURITY_DELEGATION，\x0d\SECURITY_CONTEXT_TRACKING， SECURITY_EFFECTIVE_ONLY\x0d\\x0d\ hTemplateFile Long， 如果不為零，則指定壹個文件句柄。新文件將從這個文件中復制擴展屬性\x0d\\x0d\返回值\x0d\\x0d\ 如執行成功，則返回文件句柄。\x0d\\x0d\ INVALID_HANDLE_VALUE表示出錯，會設置GetLastError。即使函數成功，但若文件存在，且指定了CREATE_ALWAYS\x0d\或 OPEN_ALWAYS，GetLastError也會設為ERROR_ALREADY_EXISTS