File の アトリビュート取得と操作です。
Form に ボタンを２個
  IroBtn1: Caption=GetAttr
  IroBtn2: Caption =SetAttr
さらに CheckBox を６個置きます
  CheckBox1: Caption = '読み込みのみ', Tag = 1
  CheckBox2: Caption = '隠しファイル', Tag = 2
  CheckBox3: Caption = 'システム', Tag = 4
  CheckBox4: Caption = 'ボリューム', Tag = 8
  CheckBox5: Caption = 'ディレクトリ', Tag = 16
  CheckBox6: Caption = 'アーカイブ', Tag = 32
最後に OpenDialog を置きます


{ IroBtn1Click File Attr の取得}
procedure TForm1.IroBtn1Click(Sender: TObject);
Var
  ix, WAttr: Integer;
  WObj: TObject;
begin
  If OpenDialog1.Execute Then
  Begin
    WAttr := FileGetAttr(OpenDialog1.FileName);
    For ix := 1 To 6 Do
    Begin
      WObj := FindComponent('CheckBox' + IntToStr(ix));
      If WObj Is TCheckBox Then
        TCheckBox(WObj).Checked := ((WAttr and TCheckBox(WObj).Tag) <> 0);
    End;
  end;
end;

{ IroBtn2Click File Attr のセット}
procedure TForm1.IroBtn2Click(Sender: TObject);
Var
  ix, WAttr: Integer;
  WObj: TObject;
begin
  WAttr := 0;
  For ix := 1 To 6 Do
  Begin
    WObj := FindComponent('CheckBox' + IntToStr(ix));
    If WObj Is TCheckBox Then
      If TCheckBox(WObj).Checked Then
        WAttr := WAttr + TCheckBox(WObj).Tag;
  end;
  FileSetAttr(OpenDialog1.FileName, WAttr);
end;


             98/4/15(Wed) 06:04am  BYQ05322 らせん企画の佐々木

Original document by らせん企画      氏 ID:(BYQ05322)

ここにあるドキュメントは NIFTY SERVEの Delphi Users' Forum の16番会議室「玉石混淆みんなで作るSample蔵」に投稿されたサンプルです。これらのサンプルはボーランド株式会社がサポートする公式のものではありません。また、必ずしも動作が検証されているものではありません。これらのサンプルを使用したことに起因するいかなる損害も投稿者、およびフォーラムスタッフはその責めを負いません。使用者のリスクの範疇でご使用下さい。