delphi中用什么函数可以判断一个文件是否正在被使用??
解决方案 »
- Delphi中消息处理的问题
- 请教,类似一个QQ登录框的下拉框删除QQ号码的功能,使用COMBOBOX
- 请教各位大侠,我想学下关于网络编程,大家能不能推荐一些相应的书籍
- 如何进行相同数据记录的检测?请不吝赐教!谢谢!!!!
- 线程里面自定的事件为什么不响应,使用idtcpclient文件传送中出现的问题:0
- 大家能介绍一下ERP和CRM和OA吗?
- 问题困我从学delphi到现在,都没办法搞定,请做过"进销库"的朋友进来看看,实现狠简单的事的query
- C++的DLL如何给DELPHI调用问题,分数大赠送!附送‘春宫图’一张
- 我是新手,谁能告诉我如何新建类?
- 请问如何用sql命令计算记录的行数?
- 求助,字符串问题
- Incompatible types: 'String' and 'PAnsiChar' 急!!
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, nil,OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0);
Result:=(HFileRes=INVALID_HANDLE_VALUE);
if not Result then
CloseHandle(HFileRes);
end;