Mengeset Atribut File

Function : FileSetAttr(const FileName:String; Attr:Integer):Integer

Pada program Delphi, untuk merubah atribut file, kita dapat menggunakan fungsi FileSetAttr(const FileName:String; Attr:Integer):Integer

Contoh:

Buat 1 buah komponen Edit, 2 buah Button,1 buah komponen OpenDialog, dan 2 buah Check Box (seperti pada gambar listing program berikut pada Button1 event on click dan Button2 event on click

procedure TF_MerubahAtributFile.Button1Click(Sender: TObject);

var mAtribut:Integer;

begin

if OpenDialog1.Execute then begin

Edit1.Text:=OpenDialog1.FileName;

mAtribut:=FileGetAttr(Edit1.Text);

if mAtribut > 0 then begin

if (mAtribut and faReadOnly)>0 then

CheckBoxRead.Checked:=True

else CheckBoxRead.Checked:=False;

if (mAtribut and faHidden)>0 then

CheckBoxHidden.Checked:=True

else CheckBoxHidden.Checked:=False;

end else begin

CheckBoxRead.Checked:=False;

CheckBoxHidden.Checked:=False;

end;

end;

end;

procedure TF_MerubahAtributFile.Button2Click(Sender: TObject);

var mAtrSet:Integer;

begin

if CheckBoxRead.Checked=True then begin

if CheckBoxHidden.Checked=True

then mAtrSet:=faReadOnly or faHidden

else mAtrSet:=faReadOnly;

end else begin

if CheckBoxHidden.Checked=True

then mAtrSet:=faHidden

else mAtrSet:=0;

end;

if FileSetAttr(Edit1.Text,mAtrSet)=0

then showmessage(‘Berhasil mengeset atribut’)

else showmessage(‘Gagal mengeset atribut’);

end;