Scalabium Software
Knowledge for your independence'.
Home Delphi and C++Builder tips

#66: Is a file in use or not?

In some situations of your applications you must check: the file is locked for exclusive access or not. The next function you can use for this check:

function FileInUse(FileName: string): Boolean;
var hFileRes: HFILE;
begin
  Result := False;
  if not FileExists(FileName) then exit;
  hFileRes := CreateFile(PChar(FileName),
                                    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;

Published: February 16, 2000

See also

	Paradox Viewer
	SMMsg suite
	DBISAM Password Recovery
	Viewer for MS Outlook Messages
	DBISAM Viewer
	Fast Document Viewer
	DBExport tools
	ABA Spreadsheet Convert
	SMExport suite
	Mail parser (ActiveX)

Contact to webmaster