Изменить атрибут файла "скрытый"

Автор: Борисов С. А.

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;

hid = true - сделать файл FileName скрытый;

hid = false - сделать файл FileName не скрытый.

Просмотров: 6992

Обсудить на форуме

Copyright © 2008 - 2018 Программирование на Delphi для начинающих и не только.

Полнота авторских прав на все материалы, опубликованные на сервере DelphiDevelop.ru принадлежит их авторам.

Перепечатка материалов разрешается с указанием авторства и гиперссылки на первоисточник информации.