Delphi 判断文件是否存在，是否正在使用

Delphi 判断文件是否存在，是否正在使用
2007-07-06 10:39
function IsFileInUse(fName: string): boolean;
var
    HFileRes: HFILE;
begin
    Result := false;
    if not FileExists(fName) then //如果文件不存在
      exit;
    HFileRes := CreateFile(pchar(fName), GENERIC_READ or GENERIC_WRITE,
      0 {this is the trick!}, 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 OpenDialog1.Execute then
   begin
     if IsFileInUse(OpenDialog1.FileName) = true then
       showmessage('文件正在使用')
     else
       showmessage('文件没有使用');
   end;
end;

文章来自: 本站原创
引用通告: 查看所有引用 | 我要引用此文章
Tags: DELPHIDELPHI 文件文件