远程控制编程

开发平台：

Delphi

untProcessList.dfm：源码内容

							object Form5: TForm5
  Left = 633
  Top = 105
  Width = 401
  Height = 269
  Caption = 'miniRAT - Process List'
  Color = clBtnFace
  Constraints.MinHeight = 269
  Constraints.MinWidth = 327
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  OldCreateOrder = False
  OnClose = FormClose
  DesignSize = (
    393
    242)
  PixelsPerInch = 96
  TextHeight = 13
  object TreeView1: TTreeView
    Left = 0
    Top = 0
    Width = 393
    Height = 225
    Anchors = [akLeft, akTop, akRight, akBottom]
    Constraints.MinHeight = 225
    Constraints.MinWidth = 297
    Indent = 19
    PopupMenu = PopupMenu1
    ReadOnly = True
    RowSelect = True
    TabOrder = 0
  end
  object StatusBar1: TStatusBar
    Left = 0
    Top = 225
    Width = 393
    Height = 17
    Panels = <
      item
        Text = '0'
        Width = 70
      end
      item
        Text = '127.0.0.1:0000'
        Width = 150
      end
      item
        Text = '0 Processes'
        Width = 90
      end
      item
        Text = '0 Modules'
        Width = 90
      end>
    SimplePanel = False
  end
  object PopupMenu1: TPopupMenu
    Left = 8
    Top = 8
    object Refresh1: TMenuItem
      Caption = '&Refresh'
      OnClick = Refresh1Click
    end
    object ListModules1: TMenuItem
      AutoCheck = True
      Caption = 'List Modules'
      Checked = True
    end
    object N1: TMenuItem
      Caption = '-'
    end
    object EndProcess1: TMenuItem
      Caption = 'End Process'
      OnClick = EndProcess1Click
    end
  end
end

						