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');
 

"Die Option Drucken funktioniert erst ab Netscape V4.0 bzw. I-Explorer 5.0 !"

[letzte Aktualisierung 06.12.2010]