А как программно запретить доступ к файлу

[Стелс]

вопрос был поставлен о конкретной задачи а вы опять показываете что здесь самый умный

[JUDAS]

Ну наподобие того как работают антивирусы а точнее не к файлу а к папке

Попробуй зашифровать содержимое всей папки собственноручным шифратором.
Например:

procedure Coder(файл_в_секретной_папке);
var Str : TFileStream;
   i, len : integer;
   Passw : string;
   Dump : array of char;
begin
  Str:=TFileStream.Create('файл_в_секретной_папке', fmOpenReadWrite);
  Passw := 'пароль';
  len  :=  LenGth(Passw);
  SetLenGth(Dump,len);
  while Str.Positon<Str.Count-len do
  begin
   Str.Read(Dump[0], len);
   for i:=0 to len-1
   Dump[i]:=dump[i] xor Passw[i+1]; // можно добавить чтото своё 
   Str.Write(Dump[0], len);
  end;
  Finalize(Dump);
  Str.Free;
end;

Поверь мне, ниодин кулкацер которій "висит на должности" и ворует чужие идеи, не вальнёт твои файлы, если конешно не станет подбирать пароль, который ты можешь сделать в 100-200 символов.
--------
теперь по сути защиты папки.
Есть куча примочек в интернете, которые защищают папки от внешних глаз НО
Антивирусное ПО, попрой стандартные программи проверки диска или дефрагментации, легко делают видимыми эти самые папки. Кроме того, если за тобой пасёт админ который ворует идеи, поверь мне, она найдёт десятки способов своровать у тебя их, вплоть до покластерного просмотра файлов и папок используя HexEdit-ы HexWork Uneraser-ы и unformater-ы тогда, когда тебя не будет на рабочем месте
---
Автору темы - а этот http://programmersforum.ru/showthread.php?t=59492 случайно не той админ ? )))