Tech-ecke Delphi

Tech-Ecke / Delphi Inhalt / Schreibrechte auf ein Verzeichnis prüfen

Schreibrechte auf ein Verzeichnis prüfen

Am einfachsten prüft man dies, indem man versucht eine Datei zu erstellen und fragt dann ab ob es geklappt hat oder nicht. Das ganze zusammengepackt in eine Funktion kann dann so aussehen:

function WriteAccess(Path: string): boolean;
var
      Handle: Integer;
begin
   if length(Path) = 3 then Path := copy(Path,1,2);
   Handle := filecreate(Path +'\tryout');
   if (Handle) > 0 then
   begin
      FileClose(Handle);
      result := true
   end
else result := false;
end;

Aufgerufen wird das ganze dann so:

if WriteAccess('C:\') = true then showmessage('Sie haben Schreibzugriff')
else showmessage('Sie haben kein Schreibzugriff');