Скачать: CL | DM;

Подскажите как удалить файл с аттрибутами 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;

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.025 c