Feststellen ob eine Datei unbenutzt ist

[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;