[ApplicatiOn]

дада, файлы только пропадают внекуда когда я делаю "системный" и "архивный". А когда делаю скрытый он помечается некой маленькой "черной меткой" (если присмотреться то это часы (видимо временный файл))...

не совсем ясно...

p.s. кстати зачем мутить

Код:

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;

это, если

Код:

if Check.Checked then
 FileSetAttr(file, faHidden)
 else
 FileSetAttr(file, not faHidden)

совсем одинаково функционально?