Форум программистов
 
Регистрация на форуме тут, о проблемах пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail, а тут можно восстановить пароль.

Как купить рекламу на форуме


Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail


Ответ
 
Опции темы Поиск в этой теме
Старый 12.01.2008, 10:37   #1
delphin100
Он лайн
Форумчанин
 
Аватар для delphin100
 
Регистрация: 26.09.2007
Сообщений: 173
Сообщение Как атрибут поставить

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

FileSetAttr
faReadOnly : 1 :
faHidden : 2 :
faSysFile : 4 :
faVolumeID : 8 :
faDirectory : 16 :
faArchive : 32 :
faSymLink : 64 :
не помогло все пробовал кроме папки и ярлыка но файл спокойно удаляется. Вопрос такой как это сделать
delphin100 вне форума Ответить с цитированием
Старый 12.01.2008, 15:20   #2
Баламут
Баламучу слегка...
Участник клуба
 
Аватар для Баламут
 
Регистрация: 01.11.2006
Сообщений: 1,585
По умолчанию

Атрибутами этого не решить. Можно только правами NTFS. Кодом помочь не могу.
Баламут вне форума Ответить с цитированием
Старый 12.01.2008, 16:55   #3
GAGARIN-NEW
Познаю мир
Форумчанин Подтвердите свой е-майл
 
Аватар для GAGARIN-NEW
 
Регистрация: 05.10.2007
Сообщений: 387
По умолчанию

Поставь право на доступ к этому файлу только твоей программе , открыв файл на чтение/запись
---
GAGARIN-NEW вне форума Ответить с цитированием
Старый 12.01.2008, 17:11   #4
Alter
Старожил
 
Аватар для Alter
 
Регистрация: 06.08.2007
Сообщений: 2,236
Сообщение Строчка из моей проги

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

Типы переменных:
FLok :TFileStream;
APath :String; <- Путь к файлу
остальное атрибуты
так касп-ра можно блочить .
Alter вне форума Ответить с цитированием
Старый 14.01.2008, 14:16   #5
Air
Участник клуба
 
Аватар для Air
 
Регистрация: 30.04.2007
Сообщений: 1,298
По умолчанию

Цитата:
Сообщение от Баламут Посмотреть сообщение
Атрибутами этого не решить. Можно только правами NTFS. Кодом помочь не могу.
На основе этого.

В среде Windows, есть утилита "cacls", в командной строке откройте св-ва, изучите синтаксис, в своём программном коде выполняйте соответствуюшие команды для задания прав доступа.
Всё гениальное - просто!
Air вне форума Ответить с цитированием
Старый 14.01.2008, 14:22   #6
delphin100
Он лайн
Форумчанин
 
Аватар для delphin100
 
Регистрация: 26.09.2007
Сообщений: 173
Сообщение За два последних спасибо

Попробую оба варианта
delphin100 вне форума Ответить с цитированием
Старый 14.01.2008, 14:27   #7
JTG
я получил эту роль
Старожил
 
Аватар для JTG
 
Регистрация: 25.05.2007
Сообщений: 3,694
По умолчанию

SetNamedSecurityInfo Function
как пользоваться не знаю, так что это скорее пинок в нужную сторону
http://msdn2.microsoft.com/en-us/lib...79(VS.85).aspx
пыщь
JTG вне форума Ответить с цитированием
Старый 14.01.2008, 16:32   #8
delphin100
Он лайн
Форумчанин
 
Аватар для delphin100
 
Регистрация: 26.09.2007
Сообщений: 173
По умолчанию

Спс но оно вроде не для Delphi
delphin100 вне форума Ответить с цитированием
Старый 14.01.2008, 16:48   #9
mihali4
*
Старожил
 
Регистрация: 22.11.2006
Сообщений: 9,201
По умолчанию

Цитата:
Сообщение от delphin100 Посмотреть сообщение
Спс но оно вроде не для Delphi
Любая виндусовая функция может быть применена в Дельфи. Про АПИ слыхали когда-нибудь?
Если нет - зайдите в соответствующий раздел форума...
mihali4 вне форума Ответить с цитированием
Старый 14.01.2008, 23:15   #10
Air
Участник клуба
 
Аватар для Air
 
Регистрация: 30.04.2007
Сообщений: 1,298
По умолчанию

Цитата:
Сообщение от delphin100 Посмотреть сообщение
Спс но оно вроде не для Delphi
Подключите модуль "Aclapi".
Всё гениальное - просто!
Air вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме 20000 рублей в месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Как поставить оповещение в Access? xruss Microsoft Office Access 11 05.12.2008 10:27
ADO поставить метку в таблице... Roof БД в Delphi 5 16.08.2008 14:58
Подскажите, как поставить 2 ОС Красавчег))) Операционные системы общие вопросы 24 15.01.2008 21:28
как правильно поставить тип данных? RedWolf Помощь студентам 4 29.12.2007 11:18
Атрибут файла через Indy->IdFTP SOS!!! NovaC Работа с сетью в Delphi 1 14.11.2006 09:07


Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru
Пеллетный котёл Emtas
котлы EMTAS