Текущий архив: 2003.07.14;
Скачать: CL | DM;
Вниз
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;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.021 c
