delphi怎么判断一个文本文件正在被使用？

使用CreateFile函数来判断文件是否打开，编写以下函数就可以判断文件是否已打开了，代码如下：\x0d\x0a\x0d\x0afunction IsFileInUse(AName: string): boolean\x0d\x0avar\x0d\x0a hFileRes: HFILE\x0d\x0abegin\x0d\x0a Result := False\x0d\x0a if not FileExists(AName) then exit\x0d\x0a hFileRes := CreateFile(PChar(AName), GENERIC_READ or GENERIC_WRITE, 0, nil, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0)\x0d\x0a Result := hFileRes = INVALID_HANDLE_VALUE\x0d\x0a if not Result then\x0d\x0aCloseHandle(hFileRes)\x0d\x0aend\x0d\x0a使用方式：\x0d\x0a if IsFileInUse('d:\test.txt') then\x0d\x0aShowMessage('文件在使用.')\x0d\x0a else\x0d\x0aShowMessage('文件没有使用.')\x0d\x0a\x0d\x0aCreateFile函数说明：\x0d\x0a\x0d\x0aHANDLE CreateFile(\x0d\x0a\x0d\x0aLPCTSTR lpFileName, //指向文件名的指针\x0d\x0a\x0d\x0aDWORD dwDesiredAccess, //访问模式（写/读）\x0d\x0a\x0d\x0aDWORD dwShareMode, //共享模式\x0d\x0a\x0d\x0aLPSECURITY_ATTRIBUTES lpSecurityAttributes, //指向安全属性的指针\x0d\x0a\x0d\x0aDWORD dwCreationDisposition, //如何创建\x0d\x0a\x0d\x0aDWORD dwFlagsAndAttributes, //文件属性\x0d\x0a\x0d\x0aHANDLE hTemplateFile //用于复制文件句柄\x0d\x0a\x0d\x0a)\x0d\x0a\x0d\x0a参数列表\x0d\x0a\x0d\x0alpFileName String 要打开的文件的名字\x0d\x0a\x0d\x0adwDesiredAccess Long 如果为 GENERIC_READ 表示允许对设备进行读访问；如果为\x0d\x0aGENERIC_WRITE 表示允许对设备进行写访问（可组合使用）；如果为零，表示只允许获取与一个设备有关的信息\x0d\x0a\x0d\x0adwShareMode Long， 零表示不共享； FILE_SHARE_READ 和/或 FILE_SHARE_WRITE\x0d\x0a表示允许对文件进行共享访问\x0d\x0a\x0d\x0alpSecurityAttributes SECURITY_ATTRIBUTES，\x0d\x0a指向一个SECURITY_ATTRIBUTES结构的指针，定义了文件的安全特性（如果 *** 作系统支持的话）\x0d\x0a\x0d\x0adwCreationDisposition Long，下述常数之一：\x0d\x0a\x0d\x0aCREATE_NEW 创建文件；如文件存在则会出错\x0d\x0a\x0d\x0aCREATE_ALWAYS 创建文件，会改写前一个文件\x0d\x0a\x0d\x0aOPEN_EXISTING 文件必须已经存在。由设备提出要求\x0d\x0a\x0d\x0aOPEN_ALWAYS 如文件不存在则创建它\x0d\x0a\x0d\x0aTRUNCATE_EXISTING 讲现有文件缩短为零长度\x0d\x0a\x0d\x0adwFlagsAndAttributes Long， 一个或多个下述常数\x0d\x0a\x0d\x0aFILE_ATTRIBUTE_ARCHIVE 标记归档属性\x0d\x0a\x0d\x0aFILE_ATTRIBUTE_COMPRESSED 将文件标记为已压缩，或者标记为文件在目录中的默认压缩方式\x0d\x0a\x0d\x0aFILE_ATTRIBUTE_NORMAL 默认属性\x0d\x0a\x0d\x0aFILE_ATTRIBUTE_HIDDEN 隐藏文件或目录\x0d\x0a\x0d\x0aFILE_ATTRIBUTE_READONLY 文件为只读\x0d\x0a\x0d\x0aFILE_ATTRIBUTE_SYSTEM 文件为系统文件\x0d\x0a\x0d\x0aFILE_FLAG_WRITE_THROUGH *** 作系统不得推迟对文件的写 *** 作\x0d\x0a\x0d\x0aFILE_FLAG_OVERLAPPED 允许对文件进行重叠 *** 作\x0d\x0a\x0d\x0aFILE_FLAG_NO_BUFFERING 禁止对文件进行缓冲处理。文件只能写入磁盘卷的扇区块\x0d\x0a\x0d\x0aFILE_FLAG_RANDOM_ACCESS 针对随机访问对文件缓冲进行优化\x0d\x0a\x0d\x0aFILE_FLAG_SEQUENTIAL_SCAN 针对连续访问对文件缓冲进行优化\x0d\x0a\x0d\x0aFILE_FLAG_DELETE_ON_CLOSE 关闭了上一次打开的句柄后，将文件删除。特别适合临时文件\x0d\x0a\x0d\x0a也可在Windows NT下组合使用下述常数标记：\x0d\x0a\x0d\x0aSECURITY_ANONYMOUS， SECURITY_IDENTIFICATION，\x0d\x0aSECURITY_IMPERSONATION， SECURITY_DELEGATION，\x0d\x0aSECURITY_CONTEXT_TRACKING， SECURITY_EFFECTIVE_ONLY\x0d\x0a\x0d\x0ahTemplateFile Long， 如果不为零，则指定一个文件句柄。新文件将从这个文件中复制扩展属性\x0d\x0a\x0d\x0a返回值\x0d\x0a\x0d\x0a如执行成功，则返回文件句柄。\x0d\x0a\x0d\x0aINVALID_HANDLE_VALUE表示出错，会设置GetLastError。即使函数成功，但若文件存在，且指定了CREATE_ALWAYS\x0d\x0a或 OPEN_ALWAYS，GetLastError也会设为ERROR_ALREADY_EXISTS

如果使用标准的文本文件读写，可以参考下：

http://blog.163.com/doleph@126/blog/static/3990173020080298016670/

另外还有一种简单的方法，就是放一个memo控件，可以设置为不可见，直接用

memo1.lines.LoadFromFile("d:\xty.txt")

memo1.Text := StringReplace(mmo1.Text,'xxxyyyzzz','zzzyyyxxx',[])//[rfReplaceAll]可替换所有

memo1.Lines.SaveToFile("d:\xty.txt")

就可以搞定了。

delphi 2010 以上版本支持 Unicode，TStrings 类自带有 SaveToFile 函数用于保存文本到文件，在保存时可以选择编码的版本，其原型定义如下：

procedure TStrings.SaveToFile(const FileName: string Encoding: TEncoding)

TEncoding 可以使用以下的编码格式：

以 utf8 格式保存文本文件的示例代码如下：

procedure TForm2.Button1Click(Sender: TObject)

begin

  Memo1.Lines.SaveToFile('e:\temp.txt',TEncoding.UTF8)

end

---