Scalabium Software

SMReport Autogenerated
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
 
Database Information Manager
Viewer for TNEF-files (winmail.dat)
Metafile Convert
Protected Storage Viewer
Paradox Password Recovery
Paradox ActiveX
ABA Spreadsheet Convert
ABA Picture Convert
DBISAM Viewer
SMReport
 
 


Contact to webmaster

 

Borland Software Code Gear Scalabium Delphi tips

Copyright© 1998-2018, Scalabium Software. All rights reserved.
webmaster@scalabium.com

SMExport advertising