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