Question

delphi 怎么删除正在使用中的文件

Answer 1

使用CreateFile函数来判断文件是否打开，编写以下函数就可以判断文件是否已打开了，代码如下：
function IsFileInUse(AName: string): boolean;
var
hFileRes: HFILE;
begin
Result := False;
if not FileExists(AName) then exit;