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

	ABA Picture Convert
	ABA Database Convert
	Viewer for MS Outlook Messages
	Paradox to Text converter
	Protected Storage Viewer
	Excel Reader (dll)
	Metafile Convert
	SMMsg suite
	ABA Spreadsheet Convert
	Database Information Manager

Contact to webmaster