Подписаться на RSS рассылку
Главная » Статьи по Delphi » Файлы » Изменить атрибут файла "скрытый"

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

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

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 не скрытый.

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

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


Имя *:
Email:


Код *:

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

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

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

Хостинг от uCoz

Автор проекта: Борисов Сергей

e-mail: save-x@yandex.ru

Связь с администрацией сайта