unit1.pas

DELPHI 下远程控制源码

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ImgList, Menus, ComCtrls, ToolWin, StdCtrls, Buttons,
  dbcgrids, DB, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient,
  DBClient, Gauges, Grids, DBGrids, ExtCtrls, jpeg,StrUtils,FileCtrl,
  IdAntiFreezeBase, IdAntiFreeze, IdSSLOpenSSL,
  IdSocks,IdGlobal,shellApi,APFUnit,SyncObjs;

type
  TForm1 = class(TForm)
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N4: TMenuItem;
    N6: TMenuItem;
    N7: TMenuItem;
    N8: TMenuItem;
    N9: TMenuItem;
    N11: TMenuItem;
    N12: TMenuItem;
    N13: TMenuItem;
    N17: TMenuItem;
    N18: TMenuItem;
    N19: TMenuItem;
    N20: TMenuItem;
    N21: TMenuItem;
    Panel4: TPanel;
    Panel6: TPanel;
    Splitter1: TSplitter;
    PageControl1: TPageControl;
    TabSheet2: TTabSheet;
    TabSheet3: TTabSheet;
    Panel11: TPanel;
    SpeedButton1: TSpeedButton;
    DataSource1: TDataSource;
    PopupMenu1: TPopupMenu;
    N22: TMenuItem;
    PopupMenu2: TPopupMenu;
    N30: TMenuItem;
    N31: TMenuItem;
    N32: TMenuItem;
    N33: TMenuItem;
    N34: TMenuItem;
    N36: TMenuItem;
    N39: TMenuItem;
    N40: TMenuItem;
    N42: TMenuItem;
    N37: TMenuItem;
    N49: TMenuItem;
    N50: TMenuItem;
    N68: TMenuItem;
    N70: TMenuItem;
    N71: TMenuItem;
    N72: TMenuItem;
    N74: TMenuItem;
    N77: TMenuItem;
    N78: TMenuItem;
    N79: TMenuItem;
    N80: TMenuItem;
    N81: TMenuItem;
    N84: TMenuItem;
    N85: TMenuItem;
    N86: TMenuItem;
    N87: TMenuItem;
    N88: TMenuItem;
    N89: TMenuItem;
    N90: TMenuItem;
    N92: TMenuItem;
    TabSheet5: TTabSheet;
    TabSheet7: TTabSheet;
    TabSheet9: TTabSheet;
    Panel20: TPanel;
    Splitter3: TSplitter;
    Panel22: TPanel;
    Panel19: TPanel;
    Panel21: TPanel;
    BitBtn6: TBitBtn;
    Panel25: TPanel;
    BitBtn11: TBitBtn;
    BitBtn12: TBitBtn;
    Panel43: TPanel;
    Panel44: TPanel;
    Panel45: TPanel;
    BitBtn5: TBitBtn;
    BitBtn7: TBitBtn;
    BitBtn8: TBitBtn;
    TreeView3: TTreeView;
    PageScroller4: TPageScroller;
    Panel36: TPanel;
    Panel37: TPanel;
    ComboBox2: TComboBox;
    Panel38: TPanel;
    Edit2: TEdit;
    Panel40: TPanel;
    Edit5: TEdit;
    Panel41: TPanel;
    Edit6: TEdit;
    Panel42: TPanel;
    Panel1: TPanel;
    Panel5: TPanel;
    Splitter2: TSplitter;
    Panel26: TPanel;
    Panel56: TPanel;
    TreeView1: TTreeView;
    UpCDS: TClientDataSet;
    DataSource2: TDataSource;
    ListView1: TListView;
    ImageList1: TImageList;
    PageScroller6: TPageScroller;
    Panel10: TPanel;
    Panel12: TPanel;
    PageScroller7: TPageScroller;
    IdFTCPClient: TIdTCPClient;
    Panel8: TPanel;
    Panel9: TPanel;
    Panel13: TPanel;
    Panel188: TPanel;
    Panel15: TPanel;
    Gauge3: TGauge;
    Image2: TImage;
    Label2: TLabel;
    Panel47: TPanel;
    Panel16: TPanel;
    ToolBar3: TToolBar;
    ToolButton2: TToolButton;
    ToolButton11: TToolButton;
    Animate1: TAnimate;
    UserCDS: TClientDataSet;
    PopupMenu3: TPopupMenu;
    N64: TMenuItem;
    N65: TMenuItem;
    N97: TMenuItem;
    N98: TMenuItem;
    N99: TMenuItem;
    Splitter4: TSplitter;
    DBGrid1: TDBGrid;
    DBGrid2: TDBGrid;
    UpCDSULoadFile: TStringField;
    UpCDSUSaveDir: TStringField;
    UpCDSULoadFileSize: TIntegerField;
    UpCDSULoadSize: TIntegerField;
    UpCDSRHostName: TStringField;
    UpCDSRHostIP: TStringField;
    UpCDSRHostPort: TIntegerField;
    UpCDSULoadBeginTime: TDateTimeField;
    UpCDSULoadEndTime: TDateTimeField;
    UpCDSUserName: TStringField;
    UpCDSPassword: TStringField;
    UpCDSULoadFromTime: TDateTimeField;
    UpCDSULoadToTime: TDateTimeField;
    Memo1: TMemo;
    Splitter5: TSplitter;
    CoolBar2: TCoolBar;
    ToolBar1: TToolBar;
    ImageList2: TImageList;
    ToolButton1: TToolButton;
    ToolButton3: TToolButton;
    ToolButton4: TToolButton;
    ToolButton5: TToolButton;
    ToolButton6: TToolButton;
    ToolButton7: TToolButton;
    ToolButton8: TToolButton;
    ToolButton9: TToolButton;
    ToolButton10: TToolButton;
    ToolButton12: TToolButton;
    ToolButton13: TToolButton;
    ToolButton14: TToolButton;
    ToolButton15: TToolButton;
    ToolButton16: TToolButton;
    ToolButton17: TToolButton;
    ToolButton18: TToolButton;
    ToolButton19: TToolButton;
    ToolButton20: TToolButton;
    ToolButton21: TToolButton;
    ToolButton23: TToolButton;
    ToolButton24: TToolButton;
    ToolButton25: TToolButton;
    TreeView2: TTreeView;
    Panel2: TPanel;
    Panel3: TPanel;
    Memo2: TMemo;
    Label4: TLabel;
    Panel7: TPanel;
    N10: TMenuItem;
    N14: TMenuItem;
    ImageList3: TImageList;
    ComboBox1: TComboBox;
    ImageList5: TImageList;
    ToolBar2: TToolBar;
    ToolButton26: TToolButton;
    ToolButton22: TToolButton;
    ToolButton28: TToolButton;
    ToolButton27: TToolButton;
    ToolButton29: TToolButton;
    ToolButton30: TToolButton;
    ToolButton31: TToolButton;
    ToolButton32: TToolButton;
    ToolButton33: TToolButton;
    ToolButton34: TToolButton;
    ToolButton36: TToolButton;
    ToolButton37: TToolButton;
    ToolButton38: TToolButton;
    ToolButton39: TToolButton;
    ToolButton40: TToolButton;
    IdAntiFreeze1: TIdAntiFreeze;
    N15: TMenuItem;
    N100: TMenuItem;
    Panel14: TPanel;
    Label5: TLabel;
    Label6: TLabel;
    ToolButton41: TToolButton;
    ToolButton42: TToolButton;
    ToolButton43: TToolButton;
    ToolButton44: TToolButton;
    ToolButton45: TToolButton;
    ToolButton46: TToolButton;
    N38: TMenuItem;
    Panel17: TPanel;
    OpenDialog1: TOpenDialog;
    ToolButton48: TToolButton;
    SpeedButton2: TSpeedButton;
    ToolButton47: TToolButton;
    N106: TMenuItem;
    N107: TMenuItem;
    N108: TMenuItem;
    N109: TMenuItem;
    N110: TMenuItem;
    N102: TMenuItem;
    N111: TMenuItem;
    ImageList4: TImageList;
    PopupMenu4: TPopupMenu;
    N43: TMenuItem;
    N113: TMenuItem;
    N114: TMenuItem;
    N115: TMenuItem;
    N116: TMenuItem;
    N117: TMenuItem;
    N118: TMenuItem;
    N122: TMenuItem;
    N123: TMenuItem;
    N44: TMenuItem;
    N120: TMenuItem;
    N24: TMenuItem;
    N121: TMenuItem;
    Bevel1: TBevel;
    N35: TMenuItem;
    TabSheet1: TTabSheet;
    ListView2: TListView;
    Panel18: TPanel;
    SpeedButton3: TSpeedButton;
    SpeedButton4: TSpeedButton;
    SpeedButton5: TSpeedButton;
    SpeedButton6: TSpeedButton;
    SpeedButton7: TSpeedButton;
    PopupMenu5: TPopupMenu;
    N124: TMenuItem;
    N125: TMenuItem;
    N126: TMenuItem;
    N127: TMenuItem;
    N128: TMenuItem;
    N129: TMenuItem;
    N130: TMenuItem;
    N131: TMenuItem;
    N132: TMenuItem;
    N133: TMenuItem;
    SpeedButton8: TSpeedButton;
    Panel23: TPanel;
    Panel24: TPanel;
    Panel27: TPanel;
    N112: TMenuItem;
    N119: TMenuItem;
    N134: TMenuItem;
    N135: TMenuItem;
    ListView3: TListView;
    ListView4: TListView;
    PopupMenu6: TPopupMenu;
    N136: TMenuItem;
    N137: TMenuItem;
    N138: TMenuItem;
    N139: TMenuItem;
    N140: TMenuItem;
    N141: TMenuItem;
    N142: TMenuItem;
    N143: TMenuItem;
    N144: TMenuItem;
    N145: TMenuItem;
    PopupMenu7: TPopupMenu;
    MenuItem1: TMenuItem;
    MenuItem2: TMenuItem;
    MenuItem3: TMenuItem;
    MenuItem4: TMenuItem;
    MenuItem5: TMenuItem;
    MenuItem6: TMenuItem;
    MenuItem7: TMenuItem;
    MenuItem8: TMenuItem;
    MenuItem9: TMenuItem;
    MenuItem10: TMenuItem;
    N16: TMenuItem;
    N148: TMenuItem;
    N29: TMenuItem;
    N47: TMenuItem;
    N48: TMenuItem;
    N51: TMenuItem;
    N52: TMenuItem;
    N53: TMenuItem;
    N54: TMenuItem;
    N55: TMenuItem;
    N56: TMenuItem;
    N57: TMenuItem;
    N58: TMenuItem;
    N59: TMenuItem;
    N60: TMenuItem;
    N62: TMenuItem;
    N63: TMenuItem;
    N66: TMenuItem;
    N67: TMenuItem;
    N75: TMenuItem;
    N76: TMenuItem;
    N93: TMenuItem;
    N94: TMenuItem;
    N95: TMenuItem;
    N96: TMenuItem;
    N150: TMenuItem;
    N151: TMenuItem;
    N152: TMenuItem;
    N153: TMenuItem;
    N154: TMenuItem;
    N155: TMenuItem;
    N156: TMenuItem;
    N157: TMenuItem;
    N149: TMenuItem;
    N61: TMenuItem;
    N91: TMenuItem;
    UserCDSParentName: TStringField;
    UserCDSMyName: TStringField;
    UserCDSMyID: TSmallintField;
    UserCDSImageID: TIntegerField;
    UserCDSStateImageID: TIntegerField;
    UserCDSSelectImageID: TIntegerField;
    UserCDSHostName: TStringField;
    UserCDSPort: TStringField;
    UserCDSUserName: TStringField;
    UserCDSPassword: TStringField;
    DownCDS: TClientDataSet;
    DownCDSDLoadFile: TStringField;
    DownCDSSaveDir: TStringField;
    DownCDSDLoadFileSize: TIntegerField;
    DownCDSDLoadSize: TIntegerField;
    DownCDSRHostName: TStringField;
    DownCDSRHostIP: TStringField;
    DownCDSRHostPort: TIntegerField;
    DownCDSDLoadBeginTime: TDateTimeField;
    DownCDSDLoadEndTime: TDateTimeField;
    DownCDSOPTimes: TSmallintField;
    DownCDSUserName: TStringField;
    DownCDSPassword: TStringField;
    DownCDSDLoadFromTime: TDateTimeField;
    DownCDSDLoadToTime: TDateTimeField;
    N3: TMenuItem;
    N5: TMenuItem;
    N69: TMenuItem;
    N73: TMenuItem;
    N82: TMenuItem;
    N83: TMenuItem;
    N147: TMenuItem;
    N158: TMenuItem;
    N159: TMenuItem;
    N160: TMenuItem;
    N161: TMenuItem;
    N162: TMenuItem;
    N163: TMenuItem;
    N164: TMenuItem;
    N165: TMenuItem;
    N166: TMenuItem;