Подписаться на RSS рассылку
Главная » Статьи по Delphi » Файлы » Заблокировать файл

Заблокировать файл

Автор: Борисов Сергей

procedure TForm1.Button1Click(Sender: TObject);
var FS: TFileStream;
begin
  FS:=TFileStream.Create('Путь к файлу', fmOpenRead, fmShareDenyNone);
end;

После нажатия на кнопку файл нельзя будет ни открыть, ни удалить, не переименовать. Даже скопировать нельзя будет.

Просмотров: 6246

Обсудить на форуме

0   Спам
(22.03.2009)
2. kusem
хм...прикольно...
так этож вирус)))
просто нужно хорошенький файл придумать+в автозагрузку поставить))

0   Спам
(20.03.2009)
1. Андрей
а как потом разблокировать?плз отпишите на мило
Ответ: Приложение закрыть или FS.free. Перезагрузка ОС 100% поможет


Имя *:
Email:


Код *:

Copyright © 2008-2016 Программирование на Delphi для начинающих и не только

Полнота авторских прав на все материалы, опубликованные на сервере DelphiDevelop.ru принадлежит их авторам

Перепечатка материалов разрешается с указанием авторства и гиперссылки на первоисточник информации

Хостинг от uCoz

Автор проекта: Борисов Сергей

e-mail: save-x@yandex.ru

Связь с администрацией сайта