Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.04.18;
Скачать: CL | DM;

Вниз

Как сделать файл НЕ УДАЛЯЕМЫМ в определенный момент   Найти похожие ветки 

 
Petrovitch   (2004-02-16 11:38) [0]

Имеется сеть. Где-то на диске(HDD) укладываются файлы. Эти файлы можно удалять, но по истечении определенного времени нужно сделать так что бы файлы удалить с диска было невозможным.
Есть-ли у кого соображения. Я понимаю, что защиты от дурака нет, но все же...


 
DeadMeat ©   (2004-02-16 17:06) [1]

В это время, открыть их с "монопольным" доступом


 
clickmaker ©   (2004-02-16 18:10) [2]

Если на NTFS, сбросить право на удаление. См. SetFileSecurity


 
Александр1   (2004-02-16 19:13) [3]

А как это сделать на delphi? Открыть их с "монопольным" доступом????????


 
Zew ©   (2004-02-16 19:32) [4]

var
fs: TFileStream;

procedure TForm1.Button1Click(Sender: TObject);
begin
fs:=TFileStream.Create("C:\Zew.txt", fmOpenRead, fmShareDenyNone);//Ставим ограничение
end;

procedure TForm1.Button2Click(Sender: TObject; var Action: TCloseAction);
begin
 fs.Free;//Снимаем ограничение.
end


 
Petrovitch   (2004-02-17 17:12) [5]

Нет, братцы. Не то.
Отдельные файлы Windows держит под себя. И их никак не удалишь из под Windows. Как бы указать (и где) Windows"у что определенные файлы "типа его" ?
Мне нужно что бы определенные файлы с какого-то момента всегда были защищены от удаления....


 
Плохиш   (2004-02-17 17:17) [6]


> Petrovitch   (17.02.04 17:12) [5]
> Нет, братцы. Не то.
> Отдельные файлы Windows держит под себя. И их никак не удалишь
> из под Windows

Это файлы, которые используются вындовс в данный момент, т.е. открытые.


 
juicenman   (2004-02-18 21:59) [7]

какая система?



Страницы: 1 вся ветка

Текущий архив: 2004.04.18;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.034 c
4-1076290857
EcoloRa
2004-02-09 04:40
2004.04.18
Свое окно поверх окна диспетчера задач


3-1079527333
@lex
2004-03-17 15:42
2004.04.18
Кто как делает отчеты?


1-1079839256
PIA
2004-03-21 06:20
2004.04.18
Запуск программ написанных в Delphi 8


1-1080984736
Beginner1
2004-04-03 13:32
2004.04.18
FileListBox


14-1080040871
Igorek
2004-03-23 14:21
2004.04.18
Поможем сайту или "Собираем комманду кодеров (295 серия)"!