Записать атрибуты файла [D7, WinXP]
UserUserov © (2004-10-21 18:47:00)
Что я делаю не так?
type
TAttrRec = record
Archive : Boolean;
ReadOnly: Boolean;
Hidden : Boolean;
SysFile : Boolean;
end;
................
................
procedure WAttr(AttrRec: TAttrRec);
var
attr_: Integer;
begin
attr_ := 0;
If AttrRec.Archive then attr_ := (attr_ and faArchive);
If AttrRec.ReadOnly then attr_ := (attr_ and faReadOnly);
If AttrRec.Hidden then attr_ := (attr_ and faHidden);
If AttrRec.SysFile then attr_ := (attr_ and faSysFile);
FileSetAttr(FileName, attr_);
end;
.................
.................
clickmaker (2004-10-21 18:48:00) [1]
or вместо and
Наверх 
ЧАТ |
Орешник |
|
