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

Атрибуты файла   Найти похожие ветки 

← →
Koala ©   (2004-09-09 12:12) [0]

Как установить и снять програмно атрибут файла "Только для чтения"

---

← →
Игорь Шевченко ©   (2004-09-09 12:22) [1]

SetFileAttributes ?

---

← →
Александр1   (2004-09-09 12:58) [2]

procedure TForm1.Button1Click(Sender: TObject);
begin
FileSetAttr("C:\1.txt",sr.Attr+faReadOnly);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
FileSetAttr("C:\1.txt",sr.Attr+faHidden);
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
FileSetAttr("C:\1.txt",sr.Attr+faSysFile);
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
FileSetAttr("C:\1.txt",sr.Attr+faArchive);
end;
{----------------------------------------------}
procedure TForm1.Button5Click(Sender: TObject);
begin
FileSetAttr("C:\1.txt",sr.Attr-faReadOnly);
end;

procedure TForm1.Button6Click(Sender: TObject);
begin
FileSetAttr("C:\1.txt",sr.Attr-faHidden);
end;

procedure TForm1.Button7Click(Sender: TObject);
begin
FileSetAttr("C:\1.txt",sr.Attr-faSysFile);
end;

procedure TForm1.Button8Click(Sender: TObject);
begin
FileSetAttr("C:\1.txt",sr.Attr-faArchive);
end;
На вот разбирайся где какая процедура какие атрибуты ставит и убирает!

---

← →
XProger ©   (2004-09-11 04:13) [3]

Если столкнулся с проблемой Reset(F); для файла "только для чтения", то делай FileMode := 64; перед AssignFile :)

---

← →
Александр1   (2004-09-11 05:28) [4]

> XProger ©   (11.09.04 04:13) [3]
> Если столкнулся с проблемой Reset(F); для файла "только
> для чтения", то делай FileMode := 64; перед AssignFile :)

Зачем FileMode := 64;? Я же привёл выше там все атрибуты можно менять. И только чтение можно снимать. Ты по эксперементируй какая процедура чё делает.

---

← →
WinLamka ©   (2004-09-11 21:16) [5]

>Зачем FileMode := 64;? Я же привёл выше там все атрибуты можно
>менять. И только чтение можно снимать. Ты по эксперементируй
>какая процедура чё делает.

Как зачем? Например если файл на реадонли носителе (cd) =)

---

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

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



Память: 0.46 MB
Время: -0.964 c