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

Posted 2023-04-24

使用CreateFile函数来判断文件是否打开，编写以下函数就可以判断文件是否已打开了，代码如下：

function IsFileInUse(AName: string): boolean;
var
hFileRes: HFILE;
begin
Result := False;
if not FileExists(AName) then exit;
hFileRes := CreateFile(PChar(AName), 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;
使用方式：
if IsFileInUse(\'d:\\test.txt\') then
ShowMessage(\'文件在使用.\');
else
ShowMessage(\'文件没有使用.\');

CreateFile函数说明：

HANDLE CreateFile(

　　LPCTSTR lpFileName, //指向文件名的指针

　　DWORD dwDesiredAccess, //访问模式（写/读）

　　DWORD dwShareMode, //共享模式

　　LPSECURITY_ATTRIBUTES lpSecurityAttributes, //指向安全属性的指针

　　DWORD dwCreationDisposition, //如何创建

　　DWORD dwFlagsAndAttributes, //文件属性

　　HANDLE hTemplateFile //用于复制文件句柄

　　);

　　参数列表

　　lpFileName String 要打开的文件的名字

　　dwDesiredAccess Long 如果为 GENERIC_READ 表示允许对设备进行读访问；如果为
GENERIC_WRITE 表示允许对设备进行写访问（可组合使用）；如果为零，表示只允许获取与一个设备有关的信息

　　dwShareMode Long， 零表示不共享； FILE_SHARE_READ 和/或 FILE_SHARE_WRITE
表示允许对文件进行共享访问

　　lpSecurityAttributes SECURITY_ATTRIBUTES，
指向一个SECURITY_ATTRIBUTES结构的指针，定义了文件的安全特性（如果操作系统支持的话）

　　dwCreationDisposition Long，下述常数之一：

　　CREATE_NEW 创建文件；如文件存在则会出错

　　CREATE_ALWAYS 创建文件，会改写前一个文件

　　OPEN_EXISTING 文件必须已经存在。由设备提出要求

　　OPEN_ALWAYS 如文件不存在则创建它

　　TRUNCATE_EXISTING 讲现有文件缩短为零长度

　　dwFlagsAndAttributes Long， 一个或多个下述常数

　　FILE_ATTRIBUTE_ARCHIVE 标记归档属性

　　FILE_ATTRIBUTE_COMPRESSED 将文件标记为已压缩，或者标记为文件在目录中的默认压缩方式

　　FILE_ATTRIBUTE_NORMAL 默认属性

　　FILE_ATTRIBUTE_HIDDEN 隐藏文件或目录

　　FILE_ATTRIBUTE_READONLY 文件为只读

　　FILE_ATTRIBUTE_SYSTEM 文件为系统文件

　　FILE_FLAG_WRITE_THROUGH 操作系统不得推迟对文件的写操作

　　FILE_FLAG_OVERLAPPED 允许对文件进行重叠操作

　　FILE_FLAG_NO_BUFFERING 禁止对文件进行缓冲处理。文件只能写入磁盘卷的扇区块

　　FILE_FLAG_RANDOM_ACCESS 针对随机访问对文件缓冲进行优化

　　FILE_FLAG_SEQUENTIAL_SCAN 针对连续访问对文件缓冲进行优化

　　FILE_FLAG_DELETE_ON_CLOSE 关闭了上一次打开的句柄后，将文件删除。特别适合临时文件

　　也可在Windows NT下组合使用下述常数标记：

　　SECURITY_ANONYMOUS， SECURITY_IDENTIFICATION，
SECURITY_IMPERSONATION， SECURITY_DELEGATION，
SECURITY_CONTEXT_TRACKING， SECURITY_EFFECTIVE_ONLY

　　hTemplateFile Long， 如果不为零，则指定一个文件句柄。新文件将从这个文件中复制扩展属性

返回值

　　如执行成功，则返回文件句柄。

　　INVALID_HANDLE_VALUE表示出错，会设置GetLastError。即使函数成功，但若文件存在，且指定了CREATE_ALWAYS
或 OPEN_ALWAYS，GetLastError也会设为ERROR_ALREADY_EXISTS 参考技术A 判断文本文件是否正在使用？
这个好像不行，多个记事本同时读写一个文本文件都没有问题，可见他们之间不是互斥的。
这也是文本文件的特殊性，都在内存里面操作，打开后与文件无关联了。

不知道你的原始需求是什么，如果是判断文件是否被修改，处理起来就比较简单了。 参考技术B 可以用以下方法来检查：
function IsFileInUse(FileName: TFileName): Boolean;
var
HFileRes: HFILE;
begin
Result := False;
if not FileExists(FileName) then Exit; // 如果文件不存在，返回false
HFileRes := CreateFile(PChar(FileName),
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;

// =》用法
procedure TForm1.Button1Click(Sender: TObject);
begin
if IsFileInUse('c:\Programs\delphi6\bin\delphi32.exe') then
ShowMessage('File is in use.');
else
ShowMessage('File not in use.');
end;本回答被提问者和网友采纳

如何判断delphi文本框输入的是数字

如何判断delphi文本框输入的是数字,或者说怎么能让文本框只允许输入数字

try
  StrToInt('abc');
  ShowMessage('正常');
except
  ShowMessage('异常，不是数字');
  Exit;
end;

参考技术A procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
var
a:integer;
begin
if not (key in ['0'..'9',#8]) then
begin
a:=Application.MessageBox('请输入数字','提示信息',MB_ok);
if a=6 then
begin
end
else
begin
end;
key:=#0;
end
else
begin
end;
end;