判断文件是否打开

Question

我想判断一个EXCEL文件是否已经被打开,帮忙！！！！

Answer 1

在打开的时候设置一个BOOLEAN值TRUE,在关闭的时候设置FALSE,可以知道是否打开呀，

Answer 2

//from delphi helpprocedure OpenForShare(const FileName: String);var
  FileHandle : Integer;
begin
  FileHandle := FileOpen(FileName, fmOpenWrite or fmShareDenyNone);
  if FileHandle > 0 then
    {valid file handle}
  else
    {Open error: FileHandle = negative DOS error code}
end;