unit2.pas

用delphi编成的文件管理器

unit Unit2;

interface

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

type
  TForm2 = class(TForm)
    GroupBox1: TGroupBox;
    CheckBox1: TCheckBox;
    CheckBox2: TCheckBox;
    CheckBox3: TCheckBox;
    CheckBox4: TCheckBox;
    Bevel1: TBevel;
    Default: TButton;
    Save: TButton;
    Button3: TButton;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    procedure FormShow(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure DefaultClick(Sender: TObject);
    procedure SaveClick(Sender: TObject);
  private
    { Private declarations }
    attrByte:integer;
  public
    { Public declarations }
  end;

var
  Form2: TForm2;

implementation

{$R *.dfm}
uses Unit1;

procedure TForm2.FormShow(Sender: TObject);
var
  f:File of Byte;
begin
   AssignFile(f,form1.Filename);
   reset(f);
   label5.Caption:=extractFilename(form1.Filename);
   label6.Caption:=extractFilepath(form1.Filename);
   //label7.Caption:=inttostr(Filesize(f))+'  Byte.';
  // label8.Caption:=datetimetostr(Filedatetodatetime(Fileage((form1.Filename))));
   defaultClick(Sender);
   closeFile(f);

end;

procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Form2.Hide;
end;

procedure TForm2.DefaultClick(Sender: TObject);
begin
  attrByte:=Filegetattr(form1.Filename);
    if attrByte and Fareadonly= Fareadonly then
    checkbox1.Checked:=true
    else
    checkbox1.Checked:=false;
    if attrByte and fasysFile=fasysFile then
     checkbox2.Checked:=true
     else
     checkbox2.Checked:=false;
    if attrByte and fahidden=fahidden  then
    checkbox3.Checked:=true
    else
    checkbox3.Checked:=false;
    if attrByte and faarchive=faarchive then
    checkbox4.checked:=true
    else
    checkbox4.Checked:=false;
end;

procedure TForm2.SaveClick(Sender: TObject);
begin
      attrByte:=0;
      if checkbox1.Checked=true then
        attrByte:=attrByte or  Fareadonly;
         if checkbox2.Checked=true then
        attrByte:=attrByte or  FasysFile;
       if checkbox3.Checked=true then
       attrByte:=attrByte or  Fahidden;
        if checkbox4.Checked=true then
        attrByte:=attrByte or  Faarchive;
        Filesetattr(Form1.Filename,attrByte);
end;

end.