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

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

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

// Естественно, вместо 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

;

Другое по теме:

Категории

Статьи

Советы

Copyright © 2022 - All Rights Reserved - www.delphirus.com