Изменение атрибута файла при нажатии на кнопку

[The Real Kos]

Всем доброго времени суток. Знаю, есть такая функция(команда) SetFileAttributes ей то и можно изменять атрибуты. Подскажите пожалуйста, как сделать так чтобы каждый раз при нажатии на "кнопку" происходила смена атрибута?

[Sciv]

Функция называется FileSetAttr

Нужно прописать ее вызов в обработчике события нажатия кнопки OnClick

[The Real Kos]

Сообщение от Sciv

Прописать SetFileAttributes в обработчике события нажатия кнопки OnClick

Возможно вопрос не правильно поставил. Нужно чтобы при каждом нажатии на кнопку атрибут менялся. Допустим сначала был FILE_ATTRIBUTE_NORMAL, затем стал faReadOnly и т.д. Или же, что лучше, чтобы случайным образом.

[Sciv]

Только один атрибут или набор?

Вообще атрибут файла в этой функции - целочисленный тип, поэтому для случайного выбора достаточно обычного Random.

Вот описание атрибутов:

aReadOnly	1	Read-only files	Current user does not have write access.
faHidden	2	Hidden files	File name begins with ".".
faSysFile	4	System files	File is socket, symbolic link, device file, or FIFO.
faVolumeID	8	Volume ID files	Not used.
faDirectory	16	Directory files	Directory.
faArchive	32	Archive files	Not used.
faSymLink	64	Symbolic link	File is a symbolic link.
faAnyFile	71	Any file	Any file.

Сделайте константой последовательный массив из них:

atr: array [1..8] of integer=(1,2,4,8,16,32,64,71);

А потом рандомом:

FileSetAttr(<Имя файла>,atr[Random(8)])

теперь я правильно понял?

[Sciv]

Сообщение от The Real Kos

Возможно вопрос не правильно поставил. Нужно чтобы при каждом нажатии на кнопку атрибут менялся. Допустим сначала был FILE_ATTRIBUTE_NORMAL, затем стал faReadOnly и т.д. Или же, что лучше, чтобы случайным образом.

А OnClick и срабатывает при каждом нажатии кнопки, разве нет?

[The Real Kos]

Сообщение от Sciv

Только один атрибут или набор?

Вообще атрибут файла в этой функции - целочисленный тип, поэтому для случайного выбора достаточно обычного Random.

Вот описание атрибутов:

aReadOnly	1	Read-only files	Current user does not have write access.
faHidden	2	Hidden files	File name begins with ".".
faSysFile	4	System files	File is socket, symbolic link, device file, or FIFO.
faVolumeID	8	Volume ID files	Not used.
faDirectory	16	Directory files	Directory.
faArchive	32	Archive files	Not used.
faSymLink	64	Symbolic link	File is a symbolic link.
faAnyFile	71	Any file	Any file.

Сделайте константой последовательный массив из них:

atr: array [1..8] of integer=(1,2,4,8,16,32,64,71);

А потом рандомом:

FileSetAttr(<Имя файла>,atr[Random(8)])

теперь я правильно понял?

Да. Спасибо большое. А можно описание всех атрибутов.

[Sciv]

Сообщение от The Real Kos

А можно описание всех атрибутов.

Так выше оно и есть, прямо с хелпа содрано, на аглицком только.

[The Real Kos]

Sciv, а как чтобы файлу присваивалось значение NORMAL

[Sciv]

Сообщение от The Real Kos

Sciv, а как чтобы файлу присваивалось значение NORMAL

Нет такого атрибута - NORMAL. В Виндах любой файл по-умолчанию имеет атрибут "Архивный" (faArchive). Так что думаю, он и будет эквивалентен Вашему "Нормалу". Либо faAnyFile - тут уж экспериментально.

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

http://msdn.microsoft.com/en-us/libr...(v=vs.85).aspx
нормальный файл имеет аттрибут 128

В Виндах любой файл по-умолчанию имеет атрибут "Архивный" (faArchive).

это ваше предположение.