Erkennen ob eine Datei gerade benutzt wird

[Dragon27]

Hallo,

ich habe das Problem, dass ich bei mehreren Dateien gleichzeitig Änderungen vornehmen muss. Nun würde
ich gerne irgendwie abfragen, ob die Dateien gerade benutzt werden. Gibt es da vielleicht eine
einfach Funktion die einen Booleanwert zurückgibt?

Danke!

[quendolineDD]

Mir würde nur einfallen, ebenso zu versuchen die Datei exklusiv zu öffnen und zu schauen, ob ein Fehler auftritt. Wenn jemand eine Datei nur lesend öffnet, wird dabei natürlich kein Fehler auftreten.

Edit: Die Forensuche lockte mich zu diesem Thread

[Moony]

Versuchs mal damit:

Delphi-Quellcode:

function IsFileInUse(const fName: TFileName): Boolean;
var HFileRes: HFILE;
begin
  if not FileExists(fName) then
  begin
    Result := false;
    Exit;
  end;

  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;