Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Атрибуты файла [D6]

Koala © (2004-09-09 12:12:00)
Как установить и снять програмно атрибут файла "Только для чтения"

WinLamka (2004-09-11 21:16:00) [1]
>Зачем FileMode := 64;? Я же привёл выше там все атрибуты можно
>менять. И только чтение можно снимать. Ты по эксперементируй
>какая процедура чё делает.

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

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

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

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

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

Александр1 (2004-09-09 12:58:00) [4]
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;
На вот разбирайся где какая процедура какие атрибуты ставит и убирает!

Игорь Шевченко (2004-09-09 12:22:00) [5]
SetFileAttributes ?

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »