Форум: "Основная";
Текущий архив: 2002.04.11;
Скачать: [xml.tar.bz2];
ВнизВсем привет Найти похожие ветки
← →
Yu (2002-03-28 10:30) [0]Как снять к-н атрибут с файла? например - ReadOnly?
← →
PVOzerski (2002-03-28 10:43) [1]Посмотри WinAPI-функции SetFileAttributes и GetFileAttributes.
← →
Dok_3D (2002-03-28 10:46) [2]Ну есть же функция
FileSetAttr(const FileName: string; Attr: Integer): Integer;
В хелпе даже пример для нее есть.
От нее и пляши ...
← →
Yu (2002-03-28 10:51) [3]FileSetAttr устанавливает атрибуты, а нужно СНЯТЬ. Кстати, а что за атрибут VolumeID, не в курсе?
← →
PVOzerski (2002-03-28 11:13) [4]>Посмотри WinAPI-функции SetFileAttributes и GetFileAttributes.
>Ну есть же функция
> FileSetAttr(const FileName: string; Attr: Integer): Integer;
А это, по сути дела, без разницы, какой вариант использовать.
Внутренняя реализация:
function FileGetAttr(const FileName: string): Integer;
begin
Result := GetFileAttributes(PChar(FileName));
end;
>FileSetAttr устанавливает атрибуты, а нужно СНЯТЬ
Получаешь старое значение атрибутов, убираешь из него ненужный и устанавливаешь то, что осталось.
Способ "уборки" должен сработать такой:
if Attr and faReadOnly=faReadOnly then
dec(Attr,faReadOnly);
← →
I/O (2002-03-28 21:34) [5]Это где-то я видел:
At: Integer;
begin
At:= FileGetAttr(filelistbox1.FileName);
if At and faHidden <> 0 then
FileSetAttr( filelistbox1.FileName, At - faHidden);
end;
А раньше я делал так:
FileSetAttr(filelistbox1.FileName, faHidden-faHidden );
← →
I/O (2002-03-28 21:40) [6]faVolumeID - Идентификатор тома
← →
Anatoly Podgoretsky (2002-03-28 21:50) [7]I/O © (28.03.02 21:34)
Раньще ты делал неправильно!
FileSetAttr(filelistbox1.FileName, FileGetAttr(filelistbox1.FileName) and not faHidden );
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.04.11;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.008 c