[:S.p.a.m.]

ничего сложного. Сейчас быстренько написал. Сделал по аналогии с функцией FileSetReadOnly.

Код:

function FileSetHidden(const FileName: string; hid: Boolean): Boolean;
var Flags: Integer;
begin
  Result := False;
  Flags := GetFileAttributes(PChar(FileName));
  if hid then
    Flags := Flags or faHidden
  else
    Flags := Flags and not faHidden;

  Result := SetFileAttributes(PChar(FileName), Flags);
end;