Schreibschutz von Dateien entfernen

[DeddyH]

Delphi-Quellcode:

var OldAttr, ErrCode: integer;
begin
  OldAttr := FileGetAttr(Dateiname);
  ErrCode := FileSetAttr(Dateiname,0);
  if ErrCode = 0 then
    begin
      //Datei verarbeiten
      FileSetAttr(Dateiname,OldAttr);
    end
  {else
     ErrorCode auswerten}
end;

So in der Art würde ich das machen.