Как запретить копирование конкретного файла или группы файлов

Delphi , Файловая система , Файлы

Можно написать прогу, которая будет постоянно сидеть в памяти и не выпускать файлы из-под своего контроля, не давая никакого доступа к ним другим программам, в том числе и копирующей. Делается это так:

// Естественно, вместо D:\gigi.txt — твой файл.
// Из конференции Expert_FAQ

var
  Form1: TForm1;
  // через этот поток мы будем работать с файлом.
  // Для нескольких файлов — несколько потоков.
  fs: TFileStream;

implementation
{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  // вешаем ограничение. Теперь никто не будет трогать файл
  fs:=TFileStream.Create('D:\gigi.txt', fmOpenRead, fmShareDenyNone);
end;

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

Статья Как запретить копирование конкретного файла или группы файлов раздела Файловая система Файлы может быть полезна для разработчиков на Delphi и FreePascal.

Комментарии и вопросы

:: 2010-10-14 14:52:29 :: re:Как запретить копирование конкретного файла или группы файлов

пользователь: Alfred.

не писал а дельфи потому сконвертировать сей модуль нечем да и после конверции куча библтиотек потянется. Было бы интересно создать резидента для эмуляции копирования. Так что б скопировалось но пустышки, пробела по размеру файла.
Помню был такой вирус, менял слова типа даректор, министр и т.д. на слова синонимы матом.
Жаль, что на дбэйс и фокс писал, там такое никак.

:: 2010-10-22 11:48:59 :: re:Как запретить копирование конкретного файла или группы файлов

пользователь: kan.

Резидентов в Windows нет, но есть сервисы и скрытые процессы. Cкомпилировать можно подобный код любой дельфей, даже можно сделать очень маленький исполняемый файл, не применяя VCL.

:: Главная :: Файлы ::