Форум: "Основная";
Текущий архив: 2003.07.14;
Скачать: [xml.tar.bz2];
Вниз
ReadOnly Files Найти похожие ветки
← →
INCOGNITO (2003-07-02 00:43) [0]Здравствуйте, не подскажите, как определить, установлен ли атрибут ReadOnly у файла или нет, а если да, токак его, этот атрибут убрат.
Заранее fnx
← →
Almaz (2003-07-02 01:39) [1]
> INCOGNITO © (02.07.03 00:43)
> Здравствуйте, не подскажите, как определить, установлен
> ли атрибут ReadOnly у файла или нет, а если да, токак его,
> этот атрибут убрат.
Определить аттрибуты файла можно с помощью функции GetFileAttributes, а установить, соответственно, с помощью функции SetFileAttributes.
var
Attrs: Integer;
begin
Attrs := GetFileAttributes("MyFile.sys");
if Attrs and faReadOnly <> 0 then
SetFileAttributes("MyFile.sys", Attrs - faReadOnly);
end;
Удачи.
← →
INCOGNITO (2003-07-02 01:47) [2]Большое спасибо
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2003.07.14;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.013 c
