Schreibzugriff auf Verzeichnis/Datei

[gkoeder]

Hallo!

Wie kann man denn testen, ob das eigene Programm schreibzugriff auf ein bestimmtes Verzeichnis bzw. eine Datei hat?
Ich meine damit nicht die NTFS-Berechtigungen/ACL's sondern z.B. den Zugriff auf einen Remote-Datenträger. Bei einem USB-Stick z.B. kann ich per Userrechte Vollzugriff haben, mittels kleinem Schalter am Stick das Ding dann aber auf ReadOnly stellen...

Thanks und viele Grüße
Gerald

[Bernhard Geyer]

Dann Probier doch einfach ob du schreiben darst.
Bei bestehender Datei einfach mit TFileStream und Schreibrechte anfordern und das gesammte in einer try..except-Schleife einpacken:

Delphi-Quellcode:

function CanWrite(FileName: String): Boolean;
var
  Stream: TFileStream;
begin
  try
    Stream := TFileStream.Create(FileName, Mitschreibrechten); <- genauen Parameter bitte in Delphi-Hilfe nachschauen
    result := True
    Stream.Free;
  except
    result := False;
  end;
end;