dirtypeunit.~pas

DELPHI 下远程控制源码

unit DirTypeUnit;

interface

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

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

var
  DirTypeFm: TDirTypeFm;

implementation

uses Unit1;

{$R *.dfm}

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

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

procedure TDirTypeFm.BitBtn1Click(Sender: TObject);
var
  NewFAttr:integer;
  RemoteACK:String;
begin
  NewFAttr:=faDirectory;
  if CheckBox1.Checked then NewFAttr:=NewFAttr+faReadOnly;
  if CheckBox2.Checked then NewFAttr:=NewFAttr+faHidden;
  if CheckBox3.Checked then NewFAttr:=NewFAttr+faArchive;  
  if self.Tag=1 then //本地操作
  begin
   FileSetAttr(Edit2.Text+Edit6.Text+'\',NewFAttr);
   BitBtn1.Enabled:=False;
  end; 
  if Self.Tag=2 then //远程操作
  begin
    Form1.IdFTCPClient.Write('目录属性更改'+EOL); //发送命令
    Form1.IdFTCPClient.Write(Edit2.Text+Edit6.Text+'\'+EOL);//发送目录名
    Form1.IdFTCPClient.WriteInteger(NewFAttr);
    BitBtn1.Enabled:=False;
    RemoteACK:=Form1.IdFTCPClient.ReadLn(EOL);
    Application.MessageBox(PChar(RemoteACK),
		    '远程属性更改信息反馈：',MB_OK+MB_ICONEXCLAMATION);    
  end;
end;

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

end.