Schreibzugriff auf Verzeichnis/Datei

[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;