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

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:

zusammenfalten · markieren

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;