[ApplicatiOn]

устанавливаю файлу атрибут "только для чтения":

Код:

FileSetAttr(file, faReadOnly);

всё прекрасно получилось..

но проблема в снятии именно этого атрибута..

как его снять?

[ApplicatiOn]

да, самое важное забыл...

при установке:

Код:

FileSetAttr(file, not faReadOnly)

файл исчезает (удаляется наверное)

почему?

p.s. он не удаляется, он опять появляется когда его из скрытого возвращают... странно очень...

[:S.p.a.m.]

Помойму он просто становится системным. (ну типа скрытый только еще круче ) )
Так что удаляй файлы.

так снять атрибут только для чтения

Код:

FileSetReadOnly('путь', false);

[ApplicatiOn]

а как для скрытого файла?

FileSetHidden ругается

[ApplicatiOn]

ну так никто не знает?

[lmikle]

Возми функцию API и сделай сам. Если не ошибаюсь, то тебе нужны GetFileAttr и SetFileAttr. Там все просто.

[: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;

[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)

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

[ApplicatiOn]

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

[M.A.D.M.A.N.]

Код:

setfuileattr(filename,faReadOnly or faHidden);

Для снятия

Код:

setfuileattr(filename,0);

[ApplicatiOn]

во.. ) спасибо.. только - filesetattr() а не setfuileattr()

[M.A.D.M.A.N.]

Главное что суть понятна