Подскажите как удалить файл с аттрибутами ReadOnly?

← →
Руслана (2004-12-13 11:37) [0]

Если у файла установлено "Только чтение" то
DeleteFile(S) не срабатывает. Как сбросить данный аттрибут?

← →
alekc (2004-12-13 11:48) [1]

SetFileAttributes()

← →
Bear (2004-12-13 15:17) [2]

Var
Attr : Integer;
FName : String
Begin
.........................
if FileExists(FName) then
begin
Attr := FileGetAttr(FName);
if (Attr and faReadOnly) <> 0 then // Файл Read Only
begin
FileSetAttr(FName, Attr - faReadOnly); //Обычный файл
..........................
FileSetAttr(FName, Attr or faReadOnly); // Опять Read Only
end;
end;

Подскажите как удалить файл с аттрибутами ReadOnly? Найти похожие ветки