sysunit.~pas

DELPHI 下远程控制源码

unit sysUnit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, ExtCtrls, StdCtrls, Buttons, Mask, IdBaseComponent,
  IdComponent, IdTCPConnection, IdTCPClient, Grids, DBGrids, IdSocks, Spin;

type
  TSysForm = class(TForm)
    Panel1: TPanel;
    PageControl1: TPageControl;
    TabSheet2: TTabSheet;
    BitBtn1: TBitBtn;
    BitBtn12: TBitBtn;
    BitBtn3: TBitBtn;
    TabSheet3: TTabSheet;
    TabSheet1: TTabSheet;
    TabSheet5: TTabSheet;
    CheckBox15: TCheckBox;
    RadioGroup2: TRadioGroup;
    SpeedButton11: TSpeedButton;
    CheckBox1: TCheckBox;
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Edit1: TEdit;
    Label2: TLabel;
    Edit2: TEdit;
    Edit3: TEdit;
    Label3: TLabel;
    Label4: TLabel;
    MaskEdit1: TMaskEdit;
    RadioGroup3: TRadioGroup;
    Image1: TImage;
    CheckBox2: TCheckBox;
    Edit7: TEdit;
    CheckBox3: TCheckBox;
    BitBtn4: TBitBtn;
    GroupBox2: TGroupBox;
    GroupBox3: TGroupBox;
    ListBox1: TListBox;
    ListBox2: TListBox;
    Panel2: TPanel;
    Panel3: TPanel;
    Panel4: TPanel;
    Panel5: TPanel;
    SpinEdit1: TSpinEdit;
    SpinEdit2: TSpinEdit;
    SpinEdit3: TSpinEdit;
    procedure BitBtn3Click(Sender: TObject);
    procedure CheckBox15Click(Sender: TObject);
    procedure CheckBox1Click(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
    procedure BitBtn12Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  SysForm: TSysForm;

implementation

uses Unit1;

{$R *.dfm}

procedure TSysForm.BitBtn3Click(Sender: TObject);
begin
   Close;
end;

procedure TSysForm.CheckBox15Click(Sender: TObject);
begin
   BitBtn12.Enabled:=True;
   RadioGroup2.Enabled:=CheckBox15.Checked;
   SpeedButton11.Enabled:=CheckBox15.Checked;
   BitBtn4.Enabled:=True;
end;

procedure TSysForm.CheckBox1Click(Sender: TObject);
begin
   BitBtn12.Enabled:=True;
   GroupBox1.Enabled:=CheckBox1.Checked;
   RadioGroup3.Enabled:=CheckBox1.Checked;
   BitBtn4.Enabled:=True;
end;

procedure TSysForm.BitBtn4Click(Sender: TObject);
begin
   Form1.MyConnectOpt.UseNagle:=False;
   CheckBox3.Checked:=False;
   Form1.MyConnectOpt.UseProxy:=False;
   RadioGroup3.itemIndex:=0;
   CheckBox1.Checked:=False;
   Form1.MyConnectOpt.UseIntercept:=False;
   CheckBox15.Checked:=False;
   BitBtn4.Enabled:=False;
end;

procedure TSysForm.BitBtn12Click(Sender: TObject);
begin
  BitBtn12.Enabled:=False;
  with Form1.MyConnectOpt do
  begin
   UseNagle:=CheckBox3.Checked;
   UseProxy:=CheckBox1.Checked;
   if not UseProxy then RadioGroup3.itemIndex:=0;
   UseIntercept:=CheckBox15.Checked;
   ProxyHost:=Edit1.Text;
   ProxyPort:=StrToInt(Edit2.Text);
   PUserID:=Edit3.Text;
   PPassWD:=MaskEdit1.Text;
   if RadioGroup3.itemIndex=0 then PVersion:=(svNoSocks);
   if RadioGroup3.itemIndex=1 then PVersion:=(svSocks4);
   if RadioGroup3.itemIndex=2 then PVersion:=(svSocks4A);
   if RadioGroup3.itemIndex=3 then PVersion:=(svSocks5);
   Form1.SetConnectOpt(Form1.IdFTCPClient,Form1.MyConnectOpt);
  end;
end;

procedure TSysForm.BitBtn1Click(Sender: TObject);
begin
   BitBtn12Click(Self);
   close;
end;

end.