Prüfen, ob eine Datei gerade in Benutzung ist...

[Redhair]

Über Google habe ich folgendes gefunden:
http://www.delphi-treff.de/tipps/dat...-in-benutzung/

Nun habe ich ein ganz simples Programm zum Testen geschrieben und je einmal unter XP und Windows 7 laufen lassen:

Delphi-Quellcode:

procedure TForm3.Timer1Timer(Sender: TObject);
begin
  if IsFileInUse('datei.txt') then
    Memo2.Lines.Add('in Benutzung')
  else
    Memo1.Lines.Add('frei');
end;

function TForm3.IsFileInUse(Path: string): boolean;
var
  hFile: THandle;

begin
  Result := False;
  if not FileExists(Path) then Exit;

  hFile := CreateFile(pchar(Path), GENERIC_READ or GENERIC_WRITE or GENERIC_EXECUTE,
                      0, nil, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0);
  Result := hFile = INVALID_HANDLE_VALUE;
  if not Result then CloseHandle(hFile);
end;

Es funktioniert unter XP einwandfrei, aber unter Windows 7 wird nie erkannt, dass die Datei benutzt wird.
Woran könnte das liegen?

[himitsu]

Von was wird denn die Datei genutzt/geöffnet?

Über das Dateihandle (CreateFile) zu prüfen erkennt zwar viele Zugriffe, aber leider nicht alle.

Für den kleinen Rest kenn ich aber auch keine Lösung "einfache", denn es ist garnicht so einfach (standardmäßig sogar unmöglich) alle Handles, des Systems aufzulisten und zu schauen welche Datei damit verknüpft ist.

[Redhair]

Zitat von himitsu:

Von was wird denn die Datei genutzt/geöffnet?

Sobald ich die Datei z. B. mit Notepad lade oder speichere, bringt mir beides unter XP eine Meldung, unter Windows 7 passiert dagegen überhaupt nichts.

[Neutral General]

Hallo,

Wofür brauchst dus denn?

Wenn du nur prüfen willst, ob du in die Datei schreiben kannst/könntest, dann ist es doch OK.
Selbst wenn die Datei geöffnet ist.. Wenn CreateFile ein Handle zurückgibt kannst du in die Datei schreiben... Dass sie doch schon geöffnet ist, ist dann quasi nicht dein Problem

[DeddyH]

Ansonsten einmal die SuFu zu IsFileInUse bzw. IsFileOpen anwerfen. Damit wird dann auch z.B. dieser Thread gefunden.

[Redhair]

Zitat von Neutral General:

Wofür brauchst dus denn?

Ich möchte eine Datei, die über ein externes Programm geupdatet wird, umbenennen, und zwar direkt nachdem das Update abgeschlossen ist. Wie soll ich aber herausfinden, ob die Datei noch geschrieben wird? Ich prüfe, ob die Datei sich geändert hat und danach, ob sie noch in Benutzung ist. Unter XP funktioniert es, da der Dateizugriff erkannt wird und sobald die Datei nicht (mehr) genutzt wird, wird die Datei umbenannt, genau so soll es sein. Unter Windows 7 wird die Datei aber "nie" benutzt, daher wird bereits umbenannt, sobald das Update gerade erst begonnen hat.

[zeras]

Zitat von Neutral General:

Wofür brauchst dus denn?

Ich nutze die gleiche Routine, um auf Daten eines lokalen FTP Server zuzugreifen.
Wenn der FTP Server Daten ablegt, muss ich so lange warten, bis ich die Datei öffnen kann, um die Daten auszulesen. Es kann aber sein, dass zwar schon Daten in der Datein drin sind, aber die Datei noch nicht geschlossen wurde. Dann darf ich noch nicht auswerten.
Zur Zeit läuft alles unter XP zufriedenstellend, wenn das Programm aber mal unter Win7 laufen soll, werde ich dann wohl ähnliche Probleme bekommen.
Gut zu wissen, vielleicht kommt ja hier noch die "Patentlösung".

[p80286]

Ab Vista(?) gibt es ja die virtuellen Dateien, da würde es mich nicht wundern, wenn Windows mehrere virtuelle Dateien nebeneinander anlegt und darum augenscheinlich parallele Zugriffe möglich sind. Hier bekommt "die selbe" und "die gleiche" wieder eine Bedeutung!

Gruß
K-H

[Union]

Ich verwende so ein Konstrukt dafür:

Delphi-Quellcode:

try
  strm := TFileStream.Create(FileName, fmOpenRead);
except
  on e : exception do
  begin
    result := false;
    Logg(e.Message);
 end;
end;

Und zwar genau auch um FTP Daten zu verarbeiten. e.Message enthält dann den Fehlertext vom deutschen Delphi und vom englischen OS (Die Backslashes wurden durch die Zitat-Funktion in Pipes geändert ).

Zitat von FTP-Import:

20.05.2011 06:38:13 Datei \\xxxx\boschftp\in\hu00002040.art kann nicht geöffnet werden. The process cannot access the file because it is being used by another process
20.05.2011 06:48:26 Datei \\xxxx\boschftp\in\hu00002040.art kann nicht geöffnet werden. The process cannot access the file because it is being used by another process
20.05.2011 06:58:39 Datei \\xxxx\boschftp\in\hu00002040.art kann nicht geöffnet werden. The process cannot access the file because it is being used by another process
20.05.2011 07:08:54 Importing \\xxxx\boschftp\in\hu00002040.art