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

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

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

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

• Как скопировать все файлы вместе с подкаталогами
• Копирование файлов
• Удалить файл в корзину? Запросто!