SetAttributes(Path: String; Attributes: FileAttributes);
Path - каталог, для которого необходимо изменить атрибуты.
Attributes - атрибуты, которые необходимо установить. Для указания атрибутов используйте значения перечислимого типа FileAttributes. Значения в списке разделяются с помощью логической операции Or.
Метод SetAttributes устанавливает указанные атрибуты для указанного в параметре Path каталога.
Sub UserProc(sPath: String);
Begin
If Directory.Exists(sPath) Then
Directory.SetAttributes(sPath,
FileAttributes.ReadOnly Or FileAttributes.Hidden);
End If;
End Sub UserProc;
При выполнении примера осуществляется проверка наличия в файловой системе каталога, указанного в параметре «sPath». Если каталог существует, то для него будут установлены атрибуты «Только для чтения» и «Скрытый».
См.также: