Prüfen, ob man in ein Verzeichnis schreiben kann

[r2c2]

Hab jetzt wieder etwas Zeit gefunden und bin mittlerweile so "weit":

Delphi-Quellcode:

function CanCreateFile(const ADir: string): Boolean;
var
  i, i2: Integer;
  i2: Integer;
  FileName: string;
  Found: Boolean;
  F: THandle;
begin
  FileName := IncludeTrailingBackslash(ADir) + 'TestFile';
  i := GetTickCount; 
  i2 := i;
  Found := False;
  // eindeutigen Dateinamen ermitteln:
  repeat
    if i - i2 > 10000 then
      raise Exception.Create('Temporäre Datei konnte nicht erstellt werden.');
    FileName := FileName + IntToHex(i, 8);
    if not FileExists(FileName) then
      Found := True;
    Inc(i);
  until Found;
  // Datei erstellen und automatisch löschen lassen:
  F := CreateFile(PChar(FileName), GENERIC_READ or GENERIC_WRITE, 0, nil,
    OPEN_ALWAYS, FILE_ATTRIBUTE_TEMPORARY or FILE_ATTRIBUTE_NOT_CONTENT_INDEXED
    or FILE_FLAG_DELETE_ON_CLOSE or FILE_FLAG_RANDOM_ACCESS, 0);
  Result := (F <> INVALID_HANDLE_VALUE);
  CloseHandle(F);
end;

(Bisher noch ungetestet)

Hab dann noch weitere Überlegungen angestellt:
Wenn ich jetzt noch zusätzlich Schreibrechte abfragen will, kommt es zu folgenden Problemen:
- Bei Win9x gibts keine Rechte
- Bei FAT-Dateisystemen IMHO auch nicht
- Auf ner CD auch nicht
- Schreibgeschützte Disketten und USB-Sticks gehören ebenfalls dazu

Wie nun das Problem lösen? :gruebel:

Überlegt hab ich mir folgendes(Pseudocode):

Delphi-Quellcode:

function TOptions.CanWrite(const ADir: string): Boolean;
begin
  if IsNT then
  begin
    if IsNTFS then
    begin
      if CheckUserRights then
      begin
        Result := CanCreateFile(ADir);
      end
      else
      begin
        Result := False;
      end;
    end
    else
    begin
      Result := CanCreateFiel(ADir);
    end;
  end
  else
  begin
    Result := CanCreateFile(ADir);
  end;
end;

Was sehen wir also:
- sehr viel Aufwand
- Es wird eh in (fast) jedem Fall CanCreateFile aufgerufen
- sieht irgendwie auch...ähm... umständlich bis sinnlos aus
- was, wenn WinFS kommt?

Andere Methode(Pseudocode):

Delphi-Quellcode:

function TOptions.CanWrite(const ADir: string): Boolean;
begin
  if IsNT and IsNTFS then
  begin
    if CheckUserRights then
    begin
      Result := True;
    end
    else
    begin
      Result := False;
    end;
  end
  else
  begin
    if IsCD then
    begin
      Result := False;
    end
    else if IsReadOnlyDevice then
    begin
      Result := False;
    end
    else
    begin
      Result := True;
    end;
  end;
end;

Was sehen wir also:
- noch mehr Aufwand
- kein CanCreateFile-Aufruf mehr
- sieht irgendwie auch...ähm... umständlich aus
- was, wenn WinFS kommt?
- kann ich mir sicher sein, dass ich nix vergessen hab?

Mir scheint also die Holzhammermethode doch angebrachter zu sein... :wall:

Oder hab ich irgendwas übersehen? Mach ichs komplizierter, als es ist? was meint ihr?

mfg

Christian

[toms]

Zitat:

Mir scheint also die Holzhammermethode doch angebrachter zu sein...

Ist sie auch.
Mal ehrlich: Wer hier im Forum ueberprueft vor dem Speichern die Rechte (ala IsCD, CheckUserRights etc) bevor z.B in eine Ini-Datei gespeichert wird?