Feststellen ob eine Datei unbenutzt ist

[Helmi]

Hallo,

wie kann ich feststellen, ob eine Datei, jeglicher Art, unbenutzt ist?

Bei den Schweizern gibt es zwar einen Code, aber ich musste schon feststellen,
dass dieser Code einmal funktioniert und einmal nicht - nicht zuverlässig!

Schweizer-Link

[sh17]

Delphi-Quellcode:

function IsFileInUse(const 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;

[Helmi]

na genau diesen code meinte ich ja, dass der nicht so richtig geht - siehe meinem posting und dem link

[SirThornberry]

Der Source funktioniert schon, allerdings wird da nur versucht die Datei exclusiv zu öffnen. Wenn dies durch die bereits geöffnete instanz erlaubt ist komme aber auch kein Fehler.

[sh17]

Und wenn die andere Instanz das zulässt, dann sollte es für Dich doch kein Problem sein. Die andere Instanz muss ja wissen, was sie macht. Du könntest ihr ja die Datei "unterm Hintern" weglöschen.

[ichbins]

Du könntest ja einfach versuchen die File mit vollen schreibzugriffsrechten zu öffnen:

Delphi-Quellcode:

function fileinuse(filename:string):boolean;
var
  f:file;
begin
  result:=true;
  try begin
    assignfile(f,filename);
    filemode:=2;
    reset(f);
    result:=false;
    closefile(f);  
  except end;
end;

[Helmi]

Ich hab festgestellt, dass der Code bei mir ned so richtig funktioniert!

Ich kopiere in meinem Programm eine Datei von einem Rechner in einen Ordner eines anderen Rechners. Bevor ich dies aber mache, prüfe ich ob 1. schon diese Datei auf dem zweiten Rechner vorhanden ist und falls ja dann wird 2. geprüft ob diese Datei unbenutzt ist.
Dies mach ich eben mit dem oben stehenden Code, bzw. mit dem Code von den Schweizern (was ja der gleiche ist).

Ich stelle immer wieder fest, dass die function eine Datei als benutzt meldet, obwohl es aber möglich ist, diese Datei im Windows-Explorer ohne jegliche Probleme zu kopieren, bzw. zu überschreiben.

[ichbins]

schau mal den Code, den ich geschrieben hab. Der überprüft einfach, ob die Datei für den Schreibzugriff geöffnet werden kann, egal an was es jetzt liegt, dass sie nicht geöffnet werden kann, ob sie nicht existiert, geöffnet ist usw...

Delphi-Quellcode:

function fileinuse(filename:string):boolean;
var
  f:file;
begin
  result:=true;
  try begin
    assignfile(f,filename);
    filemode:=2;
    reset(f);
    result:=false;
    closefile(f); 
  except end;
end;

[Helmi]

na ja - ich weiss nicht
die "Prüfung" auf eine Exception zu stützen
ob das so gut ist? :gruebel:

[SirThornberry]

@Helmi: Dein Source macht doch auch nix anderes. Wenn die Datei nicht exlusiv geöffnet werden konnte wird 0 zurück gegeben was einem Fehler entspricht. Also wird da auch nur versucht ob etwas funktioniert ohne einen Fehler zu werfen

[Helmi]

oki
danke

dann werd ich mal schauen was ich ändern kann

[Delphi-Freak]

Auch wenn das Topic schon einige Zeit her ist...
Ich finde, dass die erste Version (mit CreateFile) eigentlich zuverlässiger arbeitet, ich habe keine Probleme mit einmal schon, einmal nicht. Ein Test, wo ich eine 70MB-Datei mit meinem eigenen Editor geöffnet habe (via FileStream mit fmOpenRead or fmShareDenyNone), ergibt mit dieser Version auch True, mit der anderen aber false...
Außerdem hat sie den Vorteil, dass man nicht mit Exceptions arbeiten muss, die im Debugger trotz try...except angezeigt werden...

LG, ich

[Mackhack]

Hi,

vielleicht hilft dir das weiter...

FindNextChangeNotification

[Delphi-Freak]

Irgendwie check ich da den Zusammenhang nicht... habe ich eine Frage gestellt, eigentlich hätte ich keine stellen wollen :gruebel:

[zeras]

Zur Info, wenn jemand Probleme mit dieser Funktion unter Win98 hat.

Ich hatte Probleme mit dieser Funktion, wenn das Programm unter Win98 läuft.

Aber das wissen die Win-Experten besser, warum.

Delphi-Quellcode:

function IsFileInUse(const FileName: String): Boolean;
var
  HFileRes : HFILE;
begin
  Result := false;
  if not FileExists(FileName) then exit;

  //Probleme mit Win98, aber unter XP OK
  //HFileRes := CreateFile(PChar(FileName), GENERIC_READ or GENERIC_WRITE,0, nil, OPEN_EXISTING,FILE_ATTRIBUTE_NORMAL, 0);
 
  //läuft offensichtlich unter 98 und XP
  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;