How to tell wether or not a file is in use? 1

[BobbaFet]

As above, how do you tell wether or not a file is in use? I can of course just use Sleep(5000); which is surely long enough but I don't find this a very charming solution.

BobbaFet

Everyone has a right to my opinion.
E-mail me at caswegkamp@hotmail.com
Great Delphi Websites faq102-5352

 

[DelphiAaron]

found this on the web

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;

Aaron Taylor
John Mutch Electronics

http://www.jme.com.au

 

[BobbaFet]

That's great man! Thanks!

BobbaFet

Everyone has a right to my opinion.
E-mail me at caswegkamp@hotmail.com
Great Delphi Websites faq102-5352