如何判断一个文件是否被使用?

[shuzai]

如何判断一个文件是否被使用?

[zuoansuifeng]

打开文件，如果失败，就是表示正在使用

ShellExecute() 用来打开文件的

ues引用shellapi单元~

列如:

ShellExecute(Self.Handle,'open',PChar('project.exe'),nil,nil,SW_NORMAL);

中间的PChar('project.exe')代表你要打开的文件~

[sxtdxvb]

呵呵。

function TForm1.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.Button1Click(Sender: TObject);
begin
if IsFileInUse(Edit1.Text) then
application.MessageBox('使用中','信息',MB_ok+mb_iconinformation)
else
application.MessageBox('未使用','信息',MB_ok+mb_iconinformation)
end;