Datei überprüfen, ob löschbar

[Hawkeye219]

Hallo Fabian,

versuche es mal mit dieser Funktion:

Delphi-Quellcode:

function IsFileInUse (const aFileName: string): Boolean;
var
  hnd : THandle;
begin
  hnd := CreateFile(PChar(aFileName), GENERIC_WRITE, 0, nil, OPEN_EXISTING,
                                      FILE_ATTRIBUTE_NORMAL, 0);
  if (hnd = INVALID_HANDLE_VALUE) then
    Result := True
  else
    begin
      CloseHandle(hnd);
      Result := False;
    end;
end;

Ich weiß nicht, ob sie alle möglichen Fälle abdeckt. Vielleicht kann das mal einer der WinAPI-Experten prüfen.

Gruß Hawkeye