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.

[Sir Rufo]

Zitat:

Zitat von bernau (Beitrag 1298548)

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.

Du prüfst doch indem du auf alle betroffenen Dateien eine Sperre legst. Nur so kannst du sicherstellen, dass dieses Prüfergebnis am Ende auch noch einen Sinn hat.

[bernau]

So. habe es jetzt so programmiert, daß jede Datei geprüft wird. Ging doch schneller als ich dachte. ;-)

Leider kann man nicht prüfen, ob eine EXE-Datei gestartet ist. Aber auch das bekomme ich hin.


Danke für euere Antworten.

[himitsu]

Zitat:

Zitat von bernau (Beitrag 1298571)

Leider kann man nicht prüfen, ob eine EXE-Datei gestartet ist.

Nicht?



Siehe CodeLib, SuFu oder Google :stupid:

[bernau]

Zitat:

Zitat von himitsu (Beitrag 1298572)

Zitat:

Zitat von bernau (Beitrag 1298571)

Leider kann man nicht prüfen, ob eine EXE-Datei gestartet ist.

Nicht?

Nicht mit dem Codeschnipsel vom zweiten Beitrag und auch nicht mit dem Öffnen eines Filestreams welcher im Exclusivmodus geöffnet wird.

Zitat:

Zitat von himitsu (Beitrag 1298572)

Siehe CodeLib, SuFu oder Google :stupid:

Das werde ich noch machen. Deshalb habe ich geschrieben "Auch das bekomme ich noch hin". :lol:

Aber dennoch anscheinend nicht so einfach, wenn die Exe-Datei sich auf einem Server befindet und nicht auf dem lokalen Rechner. Zu dem Thema ist die Sufu nicht so ergiebig.

[himitsu]

Es kommt auch darauf an, was du prüfen willst.

• Ist eine Anwendung gestartet? (EXE-Name, Caption oder anderer Marker, wie z.B. ein Mutex)
• In welcher gestarteten Anwendung ist die Datei geöffnet?

Und bei Extern brauchst du entweder jemanden, der das lokal prüft, oder einen Zugangspunkt der solche einen Status liefert. (in diesem Fall wohl eher Ersteres)

[bernau]

Zitat:

Zitat von himitsu (Beitrag 1298579)

Es kommt auch darauf an, was du prüfen willst.

Auf einem Fileserver liegen in einem Verzeichnis und weiteren Unterverzeichnissen verschiedene Programme und Daten. Die Programme und die Daten sollen in regelmäßigen Abständen aktualisiert werden. Die Programme werden direkt von den Arbeitsstationen gestartet. Ich muss nun prüfen, ob ein Programm gestartet ist, damit es ersetzt werden kann.

[mm1256]

In diesem Fall ist das Umbenennen des Verzeichnisses vor der Aktualisierung doch eine sehr elegante Lösung. 8-)

Wenn das Umbenennen funktioniert hast du gleichzeitig eine Sperre, dass während der Aktualisierung kein anderer User im Netz versucht ein Programm zu starten.

[himitsu]

http://www.pcwelt.de/tipps/Ordner_fr...7-7565841.html
Dort könnte man die Freigaben auch tennen, aber die offenen Programme knallen dann womöglich, wenn sie danach auf diese Datei zugreifen wollen und im Zielsystem der Teil nicht mehr im Cache liegt.

Man kann Dateien auch umbenennen (z.B.

Delphi-Quellcode:

.del

anhängen) und dann die neue Datei an diese Stelle legen.
Auch das knallt natürlich, wenn ein noch geöffnetes Programm auf die neue Datei zugreift und nicht kompatibel damit ist (z.B. bei BPLs).