Datei im Verzeichnis geöffnet/gesperrt?

[bernau]

Ich möchte testen, ob Dateien in einem Verzeichnis "nicht" von einem anderen Programm gesperrt sind. (z.B. wegen bearbeitung der Datei).

Der einfachste Weg, wäre das Verzeichnis kurzfristig umzubenennen. Ist eine Datei geöffnet, dann kann ich das Verzeichnis nicht umbenennen. Allerdings finde ich diese Methode nicht sehr elegant. Gibt es eine andere Procedure/Funktion die für so etwas geeignet ist?

[milos]

Delphi-Quellcode:

function IsFileInUse(FileName: TFileName): 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;

procedure TForm1.FormCreate(Sender: TObject);
begin
  if IsFileInUse('./test.csv') then
    ShowMessage('In Use');
end;

Quelle:
http://www.swissdelphicenter.com/tor...ode.php?id=104

Freundliche Grüsse

[bernau]

Habe mich vieleicht nicht wirklich wirklich gut ausgedrückt.

Das Verzeichnis hat ggf. mehrere hundert Dateien oder auch Verzeichnisse, in dem Verzeichnis geöffnet sind.

Ich wollte es vermeiden, alle Dateien einzeln zu testen.

[Sir Rufo]

Die Frage ist, was du eigentlich machen möchtest, bzw. warum es interessant ist, ob die Datei (oder eine von vielen) gerade verwendet wird oder nicht.

Danach richtet sich dann die Vorgehensweise ...

[bernau]

Für ein Updateprozess muss ich Daten aus diesem Verzeichnis sichern, Dateien aktualisieren und sonst noch so zwei drei Sachen machen.

Damit brauche ich erst gar nicht anzufangen, wenn in dem Verzeichnis noch irgendetwas geöffnet ist.

[milos]

Dann ist es wahrscheinlich trotzdem nicht schlecht versuchen den Order umzubenennen.

Wenn du einzelne Dateien überprüfen müsstest könnte man einfach bei der 1000. Datei einfach wieder die 1. aufmachen und die ganze Prüfung ist für nichts zu gebrauchen ^^

Freundliche Grüsse

[Der schöne Günther]

Ich würde die Dateien einfach der Reihe nach auf machen und für jede Datei die nicht zu öffnen ist kriegt der Benutzer einen "Wiederholen / Abbrechen"-Dialog.

Und am Schluss die Dateien natürlich wieder zu machen ;-)

[himitsu]

Und wenn man nun die Datei erst öffnet, nachdem du geprüft hast?

Wenn es unbedingt nötigt ist, dann erstell eine Transaktion.

[Sir Rufo]

Zitat:

Zitat von bernau (Beitrag 1298535)

Für ein Updateprozess muss ich Daten aus diesem Verzeichnis sichern, Dateien aktualisieren und sonst noch so zwei drei Sachen machen.

Damit brauche ich erst gar nicht anzufangen, wenn in dem Verzeichnis noch irgendetwas geöffnet ist.

Kannst du denn gewährleisten, dass alle geöffneten Dateien auch wirklich "korrekt" gesperrt sind, also z.B. die Flags

Delphi-Quellcode:

fmShareExclusive

,

Delphi-Quellcode:

fmShareDenyWrite

, ... verwenden? Sonst bringt das nix.

Wenn diese Zugriffe alle korrekt gehandhabt werden, dann kannst du auf alle Dateien so einen Zugriff machen mit

Delphi-Quellcode:

fmShareExclusive

und wenn du für alle Dateien diesen Zugriff erhalten hast, dann kannst du mit der Arbeit loslegen. Ansonsten gibts du den Zugriff wieder frei und versuchst es später erneut.

[bernau]

Ich kann natürlich nicht sicherstellen, ob die Dateien korrekt gesperrt sind.

Aber erst mal wollte ich auf die schnelle testen, ob noch Dateien geöffnet sind. Das mit dem Verzeichnis umbenennen war nur so eine Idee. Nicht wirklich gut.

Dann muss ich wohl doch mal jede Datei testen. Schade. Dachte es gibt eine einfach "schnelle" Möglichkeit.