📄 regunit.~pas

📁 DELPHI 下远程控制源码
💻 ~PAS
📖 第 1 页 / 共 4 页
字号:
上一页 1 2 34
    if RegTCPClient.Connected=False then exit;
    if TreeView2.Selected=nil then exit;
    if TreeView2.Selected.Parent=nil then exit;
    Screen.Cursor:=crAppStart;
    StatusBar1.Panels[1].Text:='正在接收数据.';
    TheNode:=TreeView2.Selected;
    TheRootNode:=TheNode;
    While TheRootNode.Parent.Parent<>nil do
             TheRootNode:=TheRootNode.Parent;
    TheKeyOpen:='';
    TheTempNode:=TheNode;
    While TheTempNode.Parent.Parent<>nil do
    begin
        TheKeyOpen:='\'+TheTempNode.Text+TheKeyOpen;
        TheTempNode:=TheTempNode.Parent;         
    end;
    if TheRootNode=TheNode then TheKeyOpen:=''; 
    
    GetRemoteSubNode(TreeView2,TheNode,ListView2,TheRootNode.Text,TheKeyOpen);
    TreeView2.Selected.Expand(True);
    Screen.Cursor:=crDefault;
    StatusBar1.Panels[1].Text:='数据处理完毕！';
end;

procedure TRegFm.MenuItem11Click(Sender: TObject);
var
   TheNode     : TTreeNode;
   TheRootNode : TTreeNode;
   TheKeyOpen  : String;
   TheTempNode : TTreeNode;
begin
    if ListView2.Selected=nil then exit;
    if TreeView2.Selected=nil then exit;
    if TreeView2.Selected.Parent=nil then exit;
    
    TheNode:=TreeView2.Selected;
    TheRootNode:=TheNode;
    While TheRootNode.Parent.Parent<>nil do  //获取根值
             TheRootNode:=TheRootNode.Parent;
    TheKeyOpen:='';
    TheTempNode:=TheNode;
    While TheTempNode.Parent.Parent<>nil do  //获取键值
    begin
        TheKeyOpen:='\'+TheTempNode.Text+TheKeyOpen;
        TheTempNode:=TheTempNode.Parent;         
    end;
    if TheRootNode=TheNode then TheKeyOpen:='';
    DoRemoteVModify(TheRootNode.Text,TheKeyOpen,ListView2.Selected);
end;

procedure TRegFm.ListView2DblClick(Sender: TObject);
begin
   MenuItem11Click(self);
end;

procedure TRegFm.MenuItem17Click(Sender: TObject);
var
   TheNode     : TTreeNode;
   TheRootNode : TTreeNode;
   TheKeyOpen  : String;
   TheTempNode : TTreeNode;
begin
    if ListView2.Selected=nil then exit;
    if TreeView2.Selected=nil then exit;
    if TreeView2.Selected.Parent=nil then exit;
    
    TheNode:=TreeView2.Selected;
    TheRootNode:=TheNode;
    While TheRootNode.Parent.Parent<>nil do  //获取根值
             TheRootNode:=TheRootNode.Parent;
    TheKeyOpen:='';
    TheTempNode:=TheNode;
    While TheTempNode.Parent.Parent<>nil do  //获取键值
    begin
        TheKeyOpen:='\'+TheTempNode.Text+TheKeyOpen;
        TheTempNode:=TheTempNode.Parent;         
    end;
    if TheRootNode=TheNode then TheKeyOpen:=''; 
    DoRemoteVDelete(TheRootNode.Text,TheKeyOpen,ListView2.Selected);
end;


procedure TRegFm.MenuItem18Click(Sender: TObject);
var
   TheNode     : TTreeNode;
   TheRootNode : TTreeNode;
   TheKeyOpen  : String;
   TheTempNode : TTreeNode;
begin
    if ListView2.Selected=nil then exit;
    if TreeView2.Selected=nil then exit;
    if TreeView2.Selected.Parent=nil then exit;
    
    TheNode:=TreeView2.Selected;
    TheRootNode:=TheNode;
    While TheRootNode.Parent.Parent<>nil do  //获取根值
             TheRootNode:=TheRootNode.Parent;
    TheKeyOpen:='';
    TheTempNode:=TheNode;
    While TheTempNode.Parent.Parent<>nil do  //获取键值
    begin
        TheKeyOpen:='\'+TheTempNode.Text+TheKeyOpen;
        TheTempNode:=TheTempNode.Parent;         
    end;
    if TheRootNode=TheNode then TheKeyOpen:=''; 
    DoRemoteVRename(TheRootNode.Text,TheKeyOpen,ListView2.Selected);
end;

procedure TRegFm.MenuItem13Click(Sender: TObject);
var
   TheNode     : TTreeNode;
   TheRootNode : TTreeNode;
   TheKeyOpen  : String; 
   TheTempNode : TTreeNode;  
begin
    if TreeView2.Selected=nil then exit;
    if TreeView2.Selected.Parent=nil then exit;
    
    TheNode:=TreeView2.Selected;
    TheRootNode:=TheNode;
    While TheRootNode.Parent.Parent<>nil do  //获取根值
             TheRootNode:=TheRootNode.Parent;
    TheKeyOpen:='';
    TheTempNode:=TheNode;
    While TheTempNode.Parent.Parent<>nil do  //获取键值
    begin
        TheKeyOpen:='\'+TheTempNode.Text+TheKeyOpen;
        TheTempNode:=TheTempNode.Parent;         
    end;
    if TheRootNode=TheNode then TheKeyOpen:='';
    DoRemoteNewStrV(TheRootNode.Text,TheKeyOpen);
end;

procedure TRegFm.MenuItem14Click(Sender: TObject);
var
   TheNode     : TTreeNode;
   TheRootNode : TTreeNode;
   TheKeyOpen  : String; 
   TheTempNode : TTreeNode;  
begin
    if TreeView2.Selected=nil then exit;
    if TreeView2.Selected.Parent=nil then exit;
    
    TheNode:=TreeView2.Selected;
    TheRootNode:=TheNode;
    While TheRootNode.Parent.Parent<>nil do  //获取根值
             TheRootNode:=TheRootNode.Parent;
    TheKeyOpen:='';
    TheTempNode:=TheNode;
    While TheTempNode.Parent.Parent<>nil do  //获取键值
    begin
        TheKeyOpen:='\'+TheTempNode.Text+TheKeyOpen;
        TheTempNode:=TheTempNode.Parent;         
    end;
    if TheRootNode=TheNode then TheKeyOpen:='';
    DoRemoteNewDWDV(TheRootNode.Text,TheKeyOpen);
end;

procedure TRegFm.MenuItem15Click(Sender: TObject);
var
   TheNode     : TTreeNode;
   TheRootNode : TTreeNode;
   TheKeyOpen  : String; 
   TheTempNode : TTreeNode;  
begin
    if TreeView2.Selected=nil then exit;
    if TreeView2.Selected.Parent=nil then exit;
    
    TheNode:=TreeView2.Selected;
    TheRootNode:=TheNode;
    While TheRootNode.Parent.Parent<>nil do  //获取根值
             TheRootNode:=TheRootNode.Parent;
    TheKeyOpen:='';
    TheTempNode:=TheNode;
    While TheTempNode.Parent.Parent<>nil do  //获取键值
    begin
        TheKeyOpen:='\'+TheTempNode.Text+TheKeyOpen;
        TheTempNode:=TheTempNode.Parent;         
    end;
    if TheRootNode=TheNode then TheKeyOpen:='';
    DoRemoteNewBINV(TheRootNode.Text,TheKeyOpen);
end;

procedure TRegFm.MenuItem2Click(Sender: TObject);
var
   TheNode     : TTreeNode;
   TheRootNode : TTreeNode;
   TheKeyOpen  : String; 
   TheTempNode : TTreeNode;  
begin
    if TreeView2.Selected=nil then exit;
    if TreeView2.Selected.Parent=nil then exit;
    
    TheNode:=TreeView2.Selected;
    TheRootNode:=TheNode;
    While TheRootNode.Parent.Parent<>nil do  //获取根值
             TheRootNode:=TheRootNode.Parent;
    TheKeyOpen:='';
    TheTempNode:=TheNode;
    While TheTempNode.Parent.Parent<>nil do  //获取键值
    begin
        TheKeyOpen:='\'+TheTempNode.Text+TheKeyOpen;
        TheTempNode:=TheTempNode.Parent;         
    end;
    if TheRootNode=TheNode then TheKeyOpen:='';
    DoRemoteNewKey(TheRootNode.Text,TheKeyOpen);
end;

procedure TRegFm.MenuItem4Click(Sender: TObject);
begin
   MenuItem13Click(self);
end;

procedure TRegFm.MenuItem5Click(Sender: TObject);
begin
  MenuItem14Click(self);
end;

procedure TRegFm.MenuItem6Click(Sender: TObject);
begin
     MenuItem15Click(self);
end;

procedure TRegFm.MenuItem9Click(Sender: TObject);
var
   TheNode     : TTreeNode;
   TheRootNode : TTreeNode;
   TheKeyOpen  : String; 
   TheTempNode : TTreeNode;  
begin
    if TreeView2.Selected=nil then exit;
    if TreeView2.Selected.Parent=nil then exit;
    
    TheNode:=TreeView2.Selected;
    TheRootNode:=TheNode;
    While TheRootNode.Parent.Parent<>nil do  //获取根值
             TheRootNode:=TheRootNode.Parent;
    TheKeyOpen:='';
    TheTempNode:=TheNode;
    While TheTempNode.Parent.Parent<>nil do  //获取键值
    begin
        TheKeyOpen:='\'+TheTempNode.Text+TheKeyOpen;
        TheTempNode:=TheTempNode.Parent;         
    end;
    if TheRootNode=TheNode then TheKeyOpen:='';
    DoRemoteKeyDelete(TheRootNode.Text,TheKeyOpen);
end;

procedure TRegFm.MenuItem10Click(Sender: TObject);
var
   TheNode     : TTreeNode;
   TheRootNode : TTreeNode;
   TheKeyOpen  : String; 
   TheTempNode : TTreeNode;  
begin
    if TreeView2.Selected=nil then exit;
    if TreeView2.Selected.Parent=nil then exit;
    
    TheNode:=TreeView2.Selected;
    TheRootNode:=TheNode;
    While TheRootNode.Parent.Parent<>nil do  //获取根值
             TheRootNode:=TheRootNode.Parent;
    TheKeyOpen:='';
    TheTempNode:=TheNode;
    While TheTempNode.Parent.Parent<>nil do  //获取键值
    begin
        TheKeyOpen:='\'+TheTempNode.Text+TheKeyOpen;
        TheTempNode:=TheTempNode.Parent;         
    end;
    if TheRootNode=TheNode then TheKeyOpen:='';
    DoRemoteKeyRename(TheRootNode.Text,TheKeyOpen);
end;


procedure TRegFm.TreeView1Click(Sender: TObject);
begin
    ToolButton1.Enabled:=False;
    ToolButton2.Enabled:=False;
    ToolButton3.Enabled:=False;
    ToolButton5.Enabled:=False;
    ToolButton6.Enabled:=False;
    ToolButton7.Enabled:=False;
    ToolButton9.Enabled:=False;
    ToolButton10.Enabled:=False;
    ToolButton11.Enabled:=False;

    N2.Enabled:=False;
    N3.Enabled:=False;
    N4.Enabled:=False;

    N6.Enabled:=False;
    N7.Enabled:=False;
    N8.Enabled:=False;
    
    if TreeView1.Selected=nil then exit;
    if TreeView1.Selected.Parent=nil then exit;
    ToolButton1.Enabled:=True;
    ToolButton9.Enabled:=True;
    ToolButton10.Enabled:=True;
    ToolButton11.Enabled:=True;
    N4.Enabled:=True;
    N6.Enabled:=True;
    N7.Enabled:=True;
    N8.Enabled:=True;
    
    if TreeView1.Selected.Parent.Parent=nil then exit;      
    ToolButton2.Enabled:=True;
    ToolButton3.Enabled:=True; 
        
    N2.Enabled:=True;
    N3.Enabled:=True;     
end;

procedure TRegFm.ListView1Click(Sender: TObject);
begin
    ToolButton1.Enabled:=False;
    ToolButton2.Enabled:=False;
    ToolButton3.Enabled:=False;
    ToolButton5.Enabled:=False;
    ToolButton6.Enabled:=False;
    ToolButton7.Enabled:=False;
    ToolButton9.Enabled:=False;
    ToolButton10.Enabled:=False;
    ToolButton11.Enabled:=False;

    N11.Enabled:=False;
    N12.Enabled:=False;
    N13.Enabled:=False;

    N18.Enabled:=False;
    N19.Enabled:=False;
    N20.Enabled:=False;
    
    if ListView1.Items.Count=0 then exit;    
    ToolButton9.Enabled:=True;
    ToolButton10.Enabled:=True;
    ToolButton11.Enabled:=True;

    N18.Enabled:=True;
    N19.Enabled:=True;
    N20.Enabled:=True;
    
    if ListView1.Selected=nil then exit;
    ToolButton5.Enabled:=True;
    ToolButton6.Enabled:=True;
    ToolButton7.Enabled:=True;
    N11.Enabled:=False;
    N12.Enabled:=True;
    N13.Enabled:=True;
end;

procedure TRegFm.TreeView2Click(Sender: TObject);
begin
    ToolButton12.Enabled:=False;
    ToolButton13.Enabled:=False;
    ToolButton14.Enabled:=False;
    ToolButton16.Enabled:=False;
    ToolButton17.Enabled:=False;
    ToolButton18.Enabled:=False;
    ToolButton20.Enabled:=False;
    ToolButton21.Enabled:=False;
    ToolButton22.Enabled:=False;

    MenuItem2.Enabled:=False;
    MenuItem9.Enabled:=False;
    MenuItem10.Enabled:=False;

    MenuItem4.Enabled:=False;
    MenuItem5.Enabled:=False;
    MenuItem6.Enabled:=False;
    
    if TreeView2.Selected=nil then exit;
    if TreeView2.Selected.Parent=nil then exit;
    ToolButton12.Enabled:=True;
    ToolButton20.Enabled:=True;
    ToolButton21.Enabled:=True;
    ToolButton22.Enabled:=True;
    MenuItem2.Enabled:=True;
    MenuItem4.Enabled:=True;
    MenuItem5.Enabled:=True;
    MenuItem6.Enabled:=True;
    if TreeView2.Selected.Parent.Parent=nil then exit;    
    ToolButton13.Enabled:=True;
    ToolButton14.Enabled:=True;      
    MenuItem9.Enabled:=True;
    MenuItem10.Enabled:=True;    
end;

procedure TRegFm.ListView2Click(Sender: TObject);
begin
    ToolButton12.Enabled:=False;
    ToolButton13.Enabled:=False;
    ToolButton14.Enabled:=False;
    ToolButton16.Enabled:=False;
    ToolButton17.Enabled:=False;
    ToolButton18.Enabled:=False;
    ToolButton20.Enabled:=False;
    ToolButton21.Enabled:=False;
    ToolButton22.Enabled:=False;

    MenuItem11.Enabled:=False;
    MenuItem17.Enabled:=False;
    MenuItem18.Enabled:=False;

    MenuItem13.Enabled:=False;
    MenuItem14.Enabled:=False;
    MenuItem15.Enabled:=False;
    
    if ListView2.Items.Count=0 then exit;    
    ToolButton20.Enabled:=True;
    ToolButton21.Enabled:=True;
    ToolButton22.Enabled:=True;
    MenuItem13.Enabled:=True;
    MenuItem14.Enabled:=True;
    MenuItem15.Enabled:=True;
    if ListView2.Selected=nil then exit;
    ToolButton16.Enabled:=True;
    ToolButton17.Enabled:=True;
    ToolButton18.Enabled:=True;
    MenuItem11.Enabled:=True;
    MenuItem17.Enabled:=True;
    MenuItem18.Enabled:=True;
end;

procedure TRegFm.SpeedButton2Click(Sender: TObject);
begin
   if RegTCPClient.Connected then RegTCPClient.Disconnect;
   StatusBar1.Panels[1].Text:=' 远程主机已经断开连接！';
end;

end.
上一页 1 2 34
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -