Aplikasi Operasi File

unit u_pert4_AppOperasiFile;

interface

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, StdCtrls, Buttons, ExtCtrls, FileCtrl;

type

  TForm4 = class(TForm)

    lbl1: TLabel;

    lbl2: TLabel;

    edt_nmFile: TEdit;

    dirlst_1: TDirectoryListBox;

    Fllst_1: TFileListBox;

    drvcbb1: TDriveComboBox;

    bvl1: TBevel;

    btn_ok: TBitBtn;

    btn_save: TBitBtn;

    btn_close: TBitBtn;

    grp1: TGroupBox;

    chk_ReadOnly: TCheckBox;

    chk_Hidden: TCheckBox;

    chk_System: TCheckBox;

    procedure btn_okClick(Sender: TObject);

    procedure btn_saveClick(Sender: TObject);

    procedure btn_closeClick(Sender: TObject);

    procedure Fllst_1Change(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  Form4: TForm4;

implementation

var

  NmFile:string;

  Atribut:Integer;

{$R *.dfm}

procedure TForm4.btn_okClick(Sender: TObject);

begin

NmFile:=edt_nmFile.Text;

Atribut:=FileGetAttr(NmFile);

if Atribut and faReadOnly = faReadOnly then

  chk_ReadOnly.Checked:=True

else

  chk_ReadOnly.Checked:=False;

if Atribut and faHidden = faHidden then

  chk_Hidden.Checked:=True

else

  chk_Hidden.Checked:=False;

if Atribut and faSysFile = faSysFile then

  chk_System.Checked:=True

else

  chk_System.Checked:=False;

end;

procedure TForm4.btn_saveClick(Sender: TObject);

begin

if chk_ReadOnly.Checked=True then

  Atribut:=Atribut or faReadOnly

else

  Atribut:=Atribut and not faReadOnly;

if chk_Hidden.Checked=True then

  Atribut:=Atribut or faHidden

else

  Atribut:=Atribut and not faHidden;

if chk_System.Checked=True then

  Atribut:=Atribut or faSysFile

else

  Atribut:=Atribut and not faSysFile;

FileSetAttr(NmFile,Atribut);

end;

procedure TForm4.Fllst_1Change(Sender: TObject);

begin

btn_okClick(Self);

end;

procedure TForm4.btn_closeClick(Sender: TObject);

begin

  Application.Terminate;

end;

end.