unit2.~pas

文件管理系统模拟

unit Unit2;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, ComCtrls;

type
  TFormArr = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Image1: TImage;
    Edit1: TEdit;
    TabControl1: TTabControl;
    Label3: TLabel;
    Label4: TLabel;
    RadioGroup1: TRadioGroup;
    CheckBox1: TCheckBox;
    CheckBox2: TCheckBox;
    CheckBox3: TCheckBox;
    CheckBox4: TCheckBox;
    Label5: TLabel;
    Label6: TLabel;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FormArr: TFormArr;

implementation

{$R *.dfm}

procedure TFormArr.Button1Click(Sender: TObject);
var 
  SearchRec: TSearchRec;
  filename:string;
  attr:integer;
begin
  attr:=0;
  if CheckBox1.Checked then attr:=attr+1;
  if CheckBox2.Checked then attr:=attr+32;
  if CheckBox3.Checked then attr:=attr+16;
  if CheckBox4.Checked then attr:=attr+2;
    
  filename:=Label6.Caption+'\'+Edit1.Text;
  if FindFirst(ExpandFileName(FileName),  faAnyFile, SearchRec) = 0 then
  begin
  if filesetattr(filename,attr) = 0 then
  formarr.Close;
  end;

  
end;

end.