Можно написать прогу, которая будет постоянно сидеть в памяти и не выпускать файлы из-под своего контроля, не давая никакого доступа к ним другим программам, в том числе и копирующей. Делается это так:
// Естественно, вместо D:gigi.txt — твой файл. // Из конференции Expert_FAQ varForm1: 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
;