Hat Benutzer Schreibrechte (lokal/LAN)?

[Luckie]

Man lese, was Nico dazu geschrieben hat:

Zitat:

Dazu sollte man noch anmerken, dass damit die 'lokalen' Zugriffsrechte überprüft werden.
Wenn man eine Datei im Netzwerk überprüfen möchte, muss zusätzlich die Sicherheitsbeschreibung der Freigabe beachtet werden.

[Helmi]

Zitat von Luckie:

Man lese, was Nico dazu geschrieben hat:

Zitat:

Dazu sollte man noch anmerken, dass damit die 'lokalen' Zugriffsrechte überprüft werden.
Wenn man eine Datei im Netzwerk überprüfen möchte, muss zusätzlich die Sicherheitsbeschreibung der Freigabe beachtet werden.

Ganz meine Rede!
Deswegen ja auch die Frage nach einer Funktion zur Schreibrecht-Prüfung für Lokal UND lan

[Dezipaitor]

Und dann wäre da noch die Sache mit >=Vista und SecurityLevel, das im Code auch nicht geprüft wird. Letztendlich muss man die Datei zum Schreiben öffnen, um kurz Gewissheit zu haben.

[p80286]

Ich hab den Beispielcode von Matze mal auf unser Netzwerk losgelassen, und er funktioniert so wie er soll. (XP)

Gruß
K-H

[Dezipaitor]

Zitat von p80286:

Ich hab den Beispielcode von Matze mal auf unser Netzwerk losgelassen, und er funktioniert so wie er soll.

Mal eben etwas ausprobieren reicht nicht aus, den Code als funktionsfähig zu deklarieren. Ich kenne die Grundlagen zu dem Thema und kann daher die Probleme am Code sehen. Die Fehler durch Tests zu finden ist, wie die Nadel im Heuhaufen. Dass der Code nicht unbedingt im Netzwerk funktionieren muss, findet man schließlich auch nicht so leicht durch Tests heraus. Die Labelsecurity in Vista kommt halt jetzt noch dazu. Die Funktion wird TRUE zurückliefern, wenn ein Objekt eine höheres Integritylabel besitzt als der Nutzer.

[Helmi]

Hallo,

wärs dann nicht einfacher/besser die dreckige Version zu verwenden, indem man versucht eine Datei zu erzeugen, schlägt dies fehl dann weiss man (vermutet man) dass man keine Schreibrechte hat.

[shmia]

Folgender Code prüft, ob eine bestehende Datei beschreibbar ist:

Delphi-Quellcode:

function FileIsWriteable(const filename:string):Boolean;
var
   hnd: THandle;
begin
   hnd := CreateFile(PChar(filename), GENERIC_WRITE, FILE_SHARE_READ or FILE_SHARE_WRITE, nil, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0);
   Result := hnd <> INVALID_HANDLE_VALUE;
   if Result then
      CloseHandle(hnd);
end;

Um zu prüfen, ob man in einem Verzeichnis eine neue Datei erzeugen kann,
also ob man Schreibrechte in einem Verzeichnis hat,
muss man einfach versuchen eine Datei zu schreiben.
Man sollte eine Dateiendung verwenden, die sonst nicht benützt wird (.tmp, .$$$).
Wenn man Pech hat, kann man die temporäre Datei erzeugen, aber danach nicht mehr löschen.
Das kommt aber relativ selten vor.

[Bernerbaer]

Zitat von Helmi:

Hallo,

wärs dann nicht einfacher/besser die dreckige Version zu verwenden, indem man versucht eine Datei zu erzeugen, schlägt dies fehl dann weiss man (vermutet man) dass man keine Schreibrechte hat.

Für mich ist das nicht "dreckig" sondern die _einzige_ praktikable Lösung. Man ist dann auch nicht auf Vermutungen angewiesen, sondern erhält Vom OS auch einen konkreten Grund weshalb es nicht funktioniert hat.

[Sir Rufo]

Zitat von Dezipaitor:

Und dann wäre da noch die Sache mit >=Vista und SecurityLevel, das im Code auch nicht geprüft wird. Letztendlich muss man die Datei zum Schreiben öffnen, um kurz Gewissheit zu haben.

Wenn du die Auswirkung der UAC meinst, dann kann ich das aber nicht nachvollziehen. (s. Anhang)