判断文件是否正在被使用
2008-10-23 23:07
309 查看
//判断文件是否正在被使用。如果被使用 返回1 ,否则返回0
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;
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
if IsFileInUse('D:/py/a walk to remember.doc') then
showmessage('file in use');
end;
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;
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
if IsFileInUse('D:/py/a walk to remember.doc') then
showmessage('file in use');
end;
相关文章推荐
- 判断一个文件是否正在被使用
- Delphi判断文件是否正在被使用
- 判断文件是否正在使用
- 判断文件是否正在使用
- C# 判断文件是否正在被使用
- Delphi判断文件是否正在被使用
- linux下判断一个文件是否正在被使用
- C# 判断一个文件是否正在被使用。
- 判断一个文件是否正在被使用
- 判断文件是否正在被使用的JS代码
- 判断文件是否正在被使用
- c# 判断一个文件是否正在被使用
- 判断一个文件是否正在被使用
- 判断文件是否正在被使用
- C#判断文件是否正在被使用
- Delphi判断文件是否正在被使用
- Delphi判断文件是否正在被使用
- Delphi判断文件是否正在被使用
- C# 判断一个文件是否正在被使用。
- C# 判断文件是否正在被使用