Как атрибут поставить

[delphin100]

Надо сделать так чтоб файл нельзя было удалить и нельзя переместить
пробовал так

FileSetAttr
faReadOnly : 1 :
faHidden : 2 :
faSysFile : 4 :
faVolumeID : 8 :
faDirectory : 16 :
faArchive : 32 :
faSymLink : 64 :
не помогло все пробовал кроме папки и ярлыка но файл спокойно удаляется. Вопрос такой как это сделать

[Баламут]

Атрибутами этого не решить. Можно только правами NTFS. Кодом помочь не могу.

[GAGARIN-NEW]

Поставь право на доступ к этому файлу только твоей программе , открыв файл на чтение/запись

[Alter]

FLok := TFileStream.Create(APath, fmOpenRead, fmShareDenyNone);

Типы переменных:
FLok :TFileStream;
APath :String; <- Путь к файлу
остальное атрибуты
так касп-ра можно блочить .

[Air]

Сообщение от Баламут

Атрибутами этого не решить. Можно только правами NTFS. Кодом помочь не могу.

На основе этого.

В среде Windows, есть утилита "cacls", в командной строке откройте св-ва, изучите синтаксис, в своём программном коде выполняйте соответствуюшие команды для задания прав доступа.

[delphin100]

Попробую оба варианта

[JTG]

SetNamedSecurityInfo Function
как пользоваться не знаю, так что это скорее пинок в нужную сторону
http://msdn2.microsoft.com/en-us/lib...79(VS.85).aspx

[delphin100]

Спс но оно вроде не для Delphi

[mihali4]

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

Спс но оно вроде не для Delphi

Любая виндусовая функция может быть применена в Дельфи. Про АПИ слыхали когда-нибудь?
Если нет - зайдите в соответствующий раздел форума...

[Air]

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

Спс но оно вроде не для Delphi

Подключите модуль "Aclapi".