Атрибуты папки

[doniyor]

Здравствуйте!
У меня такой вопрос - Как можно установить/снять (программно) атрибут ТОЛЬКО ЧТЕНИЕ на папку. Но только так, чтобы никто больше не смог поменять его по своему усмотрению. Я по-моему такой прикол в папке Касперского видел.
Спасибо!

[Serge_Bliznykov]

Но только так, чтобы никто больше не смог поменять его по своему усмотрению. Я по-моему такой прикол в папке Касперского видел.

так не получится! у Касперыча за этим сам сервис следит...
Т.е. нужно писать программку (или сервис), которая будет постоянно активна (запущена) и будет следить за тем, чтобы аттрибуты указанных вами папок никто не трогал..

[Lime]

а просто установить аттрибуты функцией

function FileSetAttr(const FileName: string; Attr: Integer): Integer;

[Stilet]

Но только так, чтобы никто больше не смог поменять его по своему усмотрению

Ну тут нужно запретить по доступам смену атрибутов если конечно эти доступы настроены.

[hacknet]

Привет всем. Ребят подскажите если не трудно приведите код... Нужно снять атрибуты с папок, имеющехся к примеру на «с:\», выведеных в мемо... вот код

filesetattr(memo1.lines.text, 0)

снимаются атрибуты только если в мемо прописан путь к одной папке, если прописаны пути к еще имеющимся папкам, то код не работает?

[Пепел Феникса]

циклом по строкам.

[hacknet]

Сообщение от Пепел Феникса

циклом по строкам.

с циклами мало знаком, не могли бы привести код. Спасибо

[Пепел Феникса]

var i:integer;
//...
for i:=0 to Memo1.Lines.Count-1 do FileSetAttr(Memo1.Lines[i],0);

это основы, стоит поучить.