//判断文件是否正在被使用。如果被使用 返回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;