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

ReadOnly Files   Найти похожие ветки 

← →
INCOGNITO ©   (2003-07-02 00:43) [0]

Здравствуйте, не подскажите, как определить, установлен ли атрибут ReadOnly у файла или нет, а если да, токак его, этот атрибут убрат.

Заранее fnx

---

← →
Almaz ©   (2003-07-02 01:39) [1]

> INCOGNITO © (02.07.03 00:43)
> Здравствуйте, не подскажите, как определить, установлен
> ли атрибут ReadOnly у файла или нет, а если да, токак его,
> этот атрибут убрат.

Определить аттрибуты файла можно с помощью функции GetFileAttributes, а установить, соответственно, с помощью функции SetFileAttributes.

var
Attrs: Integer;
begin
Attrs := GetFileAttributes("MyFile.sys");
if Attrs and faReadOnly <> 0 then
SetFileAttributes("MyFile.sys", Attrs - faReadOnly);
end;

Удачи.

---

← →
INCOGNITO ©   (2003-07-02 01:47) [2]

Большое спасибо

---

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

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



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