[ApplicatiOn]

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

Код:

1	FileSetAttr(file, faReadOnly);

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

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

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

[ApplicatiOn]

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

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

Код:

1	FileSetAttr(file, not faReadOnly)

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

почему?

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

[:S.p.a.m.]

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

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

Код:

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

[ApplicatiOn]

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

FileSetHidden ругается

[ApplicatiOn]

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

[lmikle]

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

[:S.p.a.m.]

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

Код:

1 2 3 4 5 6 7 8 9 10 11 12

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. кстати зачем мутить

Код:

1 2 3 4 5 6 7 8 9 10 11 12

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;

это, если

Код:

1 2 3 4

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

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

[ApplicatiOn]

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

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

Код:

1	setfuileattr(filename,faReadOnly or faHidden);

Для снятия

Код:

1	setfuileattr(filename,0);

[ApplicatiOn]

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

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

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