荔园在线
荔园之美,在春之萌芽,在夏之绽放,在秋之收获,在冬之沉淀
[回到开始]
[上一篇][下一篇]
发信人: oopilix (优雅的), 信区: Visual
标 题: [zl]open a file in delphi
发信站: 荔园晨风BBS站 (Sun Jun 1 23:09:39 2003), 站内信件
open a file is using by another process.
//------------------------------------------------------------------------------
---------
// Procedure : FileCanOpen
// Purpose : Returns true if file can be opened
//------------------------------------------------------------------------------
---------
Function FileCanOpen(Const fname: String): Boolean;
Var
fhandle: Integer;
Begin
Result := False
try
fhandle := FileOpen(fname, fmOpenRead or fmShareExclusive );
If fhandle > 0 then Begin
Result := True;
FileClose(fhandle);
End;
except
end;
end;
--
※ 来源:·荔园晨风BBS站 bbs.szu.edu.cn·[FROM: 61.144.235.39]
[回到开始]
[上一篇][下一篇]
荔园在线首页 友情链接:深圳大学 深大招生 荔园晨风BBS S-Term软件 网络书店