Атрибуты файла

← →
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;? Я же привёл выше там все атрибуты можно менять. И только чтение можно снимать. Ты по эксперементируй какая процедура чё делает.

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

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

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