filetypeunit.~pas

DELPHI 下远程控制源码

unit FileTypeUnit;

interface

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

type
  TFileTypeFm = class(TForm)
    PageControl1: TPageControl;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    TabSheet1: TTabSheet;
    Bevel1: TBevel;
    Bevel2: TBevel;
    Label1: TLabel;
    Edit1: TEdit;
    Label2: TLabel;
    Edit2: TEdit;
    Label3: TLabel;
    Edit3: TEdit;
    Label4: TLabel;
    Edit4: TEdit;
    Label5: TLabel;
    Edit5: TEdit;
    Label6: TLabel;
    Edit6: TEdit;
    Bevel3: TBevel;
    CheckBox1: TCheckBox;
    CheckBox2: TCheckBox;
    CheckBox3: TCheckBox;
    Label7: TLabel;
    Edit7: TEdit;
    Label8: TLabel;
    CheckBox4: TCheckBox;
    Image1: TImage;
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure CheckBox1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FileTypeFm: TFileTypeFm;

implementation

{$R *.dfm}

procedure TFileTypeFm.BitBtn2Click(Sender: TObject);
begin
   Close;
end;

procedure TFileTypeFm.BitBtn3Click(Sender: TObject);
begin
  if BitBtn1.Enabled then BitBtn1Click(Self);
  Close;
end;

procedure TFileTypeFm.BitBtn1Click(Sender: TObject);
var
  NewFAttr:integer;
begin
  NewFAttr:=0;
  if CheckBox1.Checked then NewFAttr:=NewFAttr+faReadOnly;
  if CheckBox2.Checked then NewFAttr:=NewFAttr+faHidden;
  if CheckBox3.Checked then NewFAttr:=NewFAttr+faArchive; 
  if CheckBox4.Checked then NewFAttr:=NewFAttr+faSysFile; 
  
  if self.Tag=1 then //本地操作
  begin
   FileSetAttr(Edit2.Text+Edit7.Text,NewFAttr);
   BitBtn1.Enabled:=False;
  end;

  if Self.Tag=2 then //远程操作
  begin
  
    BitBtn1.Enabled:=False;
  end;
end;

procedure TFileTypeFm.CheckBox1Click(Sender: TObject);
begin
  BitBtn1.Enabled:=True;
end;

end.