| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Подскажите как удалить файл с аттрибутами ReadOnly? [D7, WinXP]
Руслана © (2004-12-13 11:37:00)Если у файла установлено "Только чтение" то
DeleteFile(S) не срабатывает. Как сбросить данный аттрибут?
Bear (2004-12-13 15:17:00) [1]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;
alekc (2004-12-13 11:48:00) [2]SetFileAttributes()
| |
