Tutorial cara mengecek attribut sebuah file menggunakan delphi 7

Tutorial kali ini adalah cara mengecek atribut sebuah file menggunakan delphi 7. Atribut sebuah file berupa readonly, hidden, archive, dan system.

1. Readonly
   bila suatu file diset readonly maka artinya file tersebut hanya bisa digunakan untuk dibaca dan tidak bisa di edit selama tidak mengubah atribut ini.
2. Hidden
   bila suatu file diset hidden maka file tersebut disembunyikan dan tidak akan muncul di File Explorer atau Dir pada MS-DOS
3. Archive
   bila suatu file ediset archive maka file tersebut menunjukkan telah berubah setelah backup terakhir, jadi setiap file diset atribut ini jika file tesebut telah berubah
4. System
   Bila suatu file diset ini maka file tersebut merupakan file yang penting bagi berjalannya komputer dengan baik. MS-DOS dan Microsoft Windows menggunakannya untuk menandai file tersebut sangat penting. Perintah MS-DOS seperti dir dan aplikasi Windows seperti File Explorer tidak menampilkan file tersebut secara default bahkan ketika file tersembunyi ditampilkan, kecuali diminta untuk melakukannya.

Untuk demo kali ini saya tunjukkan script sederhana untuk menngeset attribute suatu file

Demo Cara mengeset attribut file menggunakan Delphi 7

procedure TForm1.Edit1Change(Sender: TObject);
var Attr : Integer;
begin
  Attr := FileGetAttr(Edit1.Text);

  if Attr > 0 then
    begin
      if (Attr and faReadOnly) > 0 then
        CheckBoxRead.Checked := true       // Read Only
      else CheckBoxRead.Checked := false;

      if (Attr and faHidden) > 0 then
        CheckBoxHidden.Checked := true     // Hidden
      else CheckBoxHidden.Checked := false;

      if (Attr and faArchive) > 0 then
        CheckBoxArc.Checked := true        // Archive
      else CheckBoxArc.Checked := false;

      if (Attr and faSysFile) > 0 then
        CheckBoxSys.Checked := true        //System File
      else CheckBoxSys.Checked := false;
    end
  else
    begin
      CheckBoxRead.Checked := false;
      CheckBoxHidden.Checked := false;
      CheckBoxArc.Checked := false;
      CheckBoxSys.Checked := false;
    end;
end;