开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Windows编程 > 控制台编程 > 查看源码
Main.pas
资源名称：计算机远程监控.rar　[点击查看]
上传用户：rickyhu
上传日期：2007-05-27
资源大小：842k
文件大小：35k
源码类别：

控制台编程

开发平台：

Delphi

Main.pas：源码内容
  1. ////////////////////////////////////////////////////////////////////////////////
  2. //
  3. // 2004 (C) Copyrights Reserved
  4. // Author:Aureala
  5. //
  6. ////////////////////////////////////////////////////////////////////////////////
  8. unit Main;
  10. interface
  12. uses
  13.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  14.   Dialogs, About, Menus, ToolWin, ComCtrls, StdCtrls, ExtCtrls,
  15.   jpeg, ImgList, IdIOHandler, IdIOHandlerSocket, IdTCPConnection,
  16.   IdTCPClient, IdAntiFreezeBase, IdAntiFreeze, IdIntercept, IdTCPServer,
  17.   IdComponent, IdServerIOHandler, IdServerIOHandlerSocket, IdBaseComponent,
  18.   IdThreadMgr, IdThreadMgrDefault, ShellApi, ValEdit, Grids, TeEngine,
  19.   Series, TeeProcs, Chart, UtilTools, DateUtils;
  21. const
  22.   MON_ITEM = [$4,$5,$10,$20,$21,$30..$33,$80,$81];
  23.   TRAYMSG = WM_USER + 1;
  25. type
  27.   TMainForm = class;
  28.   
  29.   TScanThread = class(TThread)
  30.   private
  31.     OwnerForm:TMainForm;
  32.   protected
  33.     procedure Execute();override;
  34.   public
  35.     constructor Create(TheForm:TMainForm);reintroduce;
  36.     function  IsValidClient(TmpAddr:String):Boolean;
  37.     procedure ScanClient();
  38.   end;
  40.   TMainForm = class(TForm)
  41.     MainMenu: TMainMenu;
  42.     PMSysOp: TPopupMenu;
  43.     ToolBar: TToolBar;
  44.     TBSysSetting: TToolButton;
  45.     TBManClient: TToolButton;
  46.     TBViewClient: TToolButton;
  47.     TBMonCpu: TToolButton;
  48.     TBMonMem: TToolButton;
  49.     TBMonProc: TToolButton;
  50.     TBMonFile: TToolButton;
  51.     TBMonNet: TToolButton;
  52.     StatusBar: TStatusBar;
  53.     M2: TMenuItem;
  54.     MManClient: TMenuItem;
  55.     MViewClient: TMenuItem;
  56.     M1: TMenuItem;
  57.     MMonHide: TMenuItem;
  58.     M1S: TMenuItem;
  59.     MExit: TMenuItem;
  60.     MSysSetting: TMenuItem;
  61.     M3: TMenuItem;
  62.     MMonCpu: TMenuItem;
  63.     MMonMem: TMenuItem;
  64.     MMonProc: TMenuItem;
  65.     MMonFile: TMenuItem;
  66.     MMonNet: TMenuItem;
  67.     M4: TMenuItem;
  68.     MManProc: TMenuItem;
  69.     MSendMsg: TMenuItem;
  70.     MSysOp: TMenuItem;
  71.     MShutdownOs: TMenuItem;
  72.     MRebootOs: TMenuItem;
  73.     MLogout: TMenuItem;
  74.     M5: TMenuItem;
  75.     MHelp: TMenuItem;
  76.     MAbout: TMenuItem;
  77.     PanelLeft: TPanel;
  78.     PanelRight: TPanel;
  79.     TBS1: TToolButton;
  80.     TBS2: TToolButton;
  81.     TBS4: TToolButton;
  82.     TreeView: TTreeView;
  83.     PanelSR: TPanel;
  84.     TBS3: TToolButton;
  85.     TBHelp: TToolButton;
  86.     PanelSL: TPanel;
  87.     PanelSB: TPanel;
  88.     ImageListMenu: TImageList;
  89.     ImageListToolbar: TImageList;
  90.     PageWork: TPageControl;
  91.     TSSysSetting: TTabSheet;
  92.     TSManClient: TTabSheet;
  93.     TSPanelShow: TTabSheet;
  94.     TSProc: TTabSheet;
  95.     TSClient: TTabSheet;
  96.     IdThreadMgrDefault1: TIdThreadMgrDefault;
  97.     IdServerIOHandlerSocket1: TIdServerIOHandlerSocket;
  98.     TCPReceiver: TIdTCPServer;
  99.     IdConnectionIntercept1: TIdConnectionIntercept;
  100.     IdAntiFreeze1: TIdAntiFreeze;
  101.     TCPSender: TIdTCPClient;
  102.     IdIOHandlerSocket1: TIdIOHandlerSocket;
  103.     LabelTop: TLabel;
  104.     PanelST: TPanel;
  105.     Label4: TLabel;
  106.     Splitter: TSplitter;
  107.     PMShutdownOs: TMenuItem;
  108.     PMLogout: TMenuItem;
  109.     PMRebootOs: TMenuItem;
  110.     Label6: TLabel;
  111.     Image3: TImage;
  112.     Label7: TLabel;
  113.     CBSaveToLog: TCheckBox;
  114.     GroupBox1: TGroupBox;
  115.     CBCpuMon: TCheckBox;
  116.     CBMemMon: TCheckBox;
  117.     CBProcMon: TCheckBox;
  118.     CBFileMon: TCheckBox;
  119.     CBNetMon: TCheckBox;
  120.     CBPeriodMon: TCheckBox;
  121.     DTEndMon: TDateTimePicker;
  122.     BtnMon: TButton;
  123.     BtnRefresh: TButton;
  124.     BtnViewLog: TButton;
  125.     Label11: TLabel;
  126.     Image6: TImage;
  127.     Label13: TLabel;
  128.     PMManProc: TMenuItem;
  129.     N20: TMenuItem;
  130.     PMSendMsg: TMenuItem;
  131.     CBViewItem: TComboBox;
  132.     Label14: TLabel;
  133.     Image10: TImage;
  134.     TSConsole: TTabSheet;
  135.     MConsole: TMenuItem;
  136.     PMConsole: TMenuItem;
  137.     Label8: TLabel;
  138.     Image4: TImage;
  139.     MemoConsole: TMemo;
  140.     CBClientMC: TComboBox;
  141.     Label16: TLabel;
  142.     CBClientC: TComboBox;
  143.     Label9: TLabel;
  144.     OpenDialog: TOpenDialog;
  145.     SaveDialog: TSaveDialog;
  146.     Label18: TLabel;
  147.     Image14: TImage;
  148.     LVUnderMon: TListView;
  149.     BtnAddClient: TButton;
  150.     BtnDeleteClient: TButton;
  151.     EditIpAdd: TEdit;
  152.     Image8: TImage;
  153.     Label19: TLabel;
  154.     Label22: TLabel;
  155.     CBClientP: TComboBox;
  156.     BtnTerminateProc: TButton;
  157.     LVProc: TListView;
  158.     BtnViewProc: TButton;
  159.     TBManProc: TToolButton;
  160.     TBConsole: TToolButton;
  161.     TBS5: TToolButton;
  162.     TBSendMsg: TToolButton;
  163.     Label15: TLabel;
  164.     Label23: TLabel;
  165.     BtnSaveSetting: TButton;
  166.     Image11: TImage;
  167.     EditScanInterval: TEdit;
  168.     CBCpuMonS: TCheckBox;
  169.     CBMemMonS: TCheckBox;
  170.     CBProcMonS: TCheckBox;
  171.     CBFileMonS: TCheckBox;
  172.     CBNetMonS: TCheckBox;
  173.     EditInterval: TEdit;
  174.     EditConsoleMaxLine: TEdit;
  175.     CBSaveToLogS: TCheckBox;
  176.     PMMon: TMenuItem;
  177.     Label3: TLabel;
  178.     MonTimer: TTimer;
  179.     MonBoard: TListView;
  180.     VLClient: TValueListEditor;
  181.     Image1: TImage;
  182.     Label1: TLabel;
  183.     BtnConsoleConn: TButton;
  184.     MemoConsoleShow: TMemo;
  185.     PopMemuTray: TPopupMenu;
  186.     PMShowForm: TMenuItem;
  187.     PMAbout: TMenuItem;
  188.     PMExitSys: TMenuItem;
  189.     N4: TMenuItem;
  190.     PMHelp: TMenuItem;
  191.     ImageTray: TImage;
  192.     procedure FormCreate(Sender: TObject);
  193.     procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
  194.     procedure FormClose(Sender: TObject; var Action: TCloseAction);
  195.     procedure FormHide(Sender: TObject);
  196.     procedure FormShow(Sender: TObject);
  197.     procedure FormActivate(Sender: TObject);
  198.     procedure FormDeactivate(Sender: TObject);
  199.     procedure MSysSettingClick(Sender: TObject);
  200.     procedure MMonHideClick(Sender: TObject);
  201.     procedure MExitClick(Sender: TObject);
  202.     procedure MManClientClick(Sender: TObject);
  203.     procedure MViewClientClick(Sender: TObject);
  204.     procedure MMonCpuClick(Sender: TObject);
  205.     procedure MMonMemClick(Sender: TObject);
  206.     procedure MMonProcClick(Sender: TObject);
  207.     procedure MMonFileClick(Sender: TObject);
  208.     procedure MMonNetClick(Sender: TObject);
  209.     procedure MMonKeyboardMouseClick(Sender: TObject);
  210.     procedure MManProcClick(Sender: TObject);
  211.     procedure MLogoutClick(Sender: TObject);
  212.     procedure MShutdownOsClick(Sender: TObject);
  213.     procedure MRebootOsClick(Sender: TObject);
  214.     procedure MConsoleClick(Sender: TObject);
  215.     procedure MSendMsgClick(Sender: TObject);
  216.     procedure MHelpClick(Sender: TObject);
  217.     procedure MAboutClick(Sender: TObject);
  218.     procedure TBSysSettingClick(Sender: TObject);
  219.     procedure TBManClientClick(Sender: TObject);
  220.     procedure TBViewClientClick(Sender: TObject);
  221.     procedure TBMonCpuClick(Sender: TObject);
  222.     procedure TBMonMemClick(Sender: TObject);
  223.     procedure TBMonProcClick(Sender: TObject);
  224.     procedure TBMonFileClick(Sender: TObject);
  225.     procedure TBMonNetClick(Sender: TObject);
  226.     procedure TBManProcClick(Sender: TObject);
  227.     procedure TBConsoleClick(Sender: TObject);
  228.     procedure TBSendMsgClick(Sender: TObject);
  229.     procedure TBHelpClick(Sender: TObject);
  230.     procedure PMMonClick(Sender: TObject);
  231.     procedure PMManProcClick(Sender: TObject);
  232.     procedure PMConsoleClick(Sender: TObject);
  233.     procedure PMSendMsgClick(Sender: TObject);
  234.     procedure PMLogoutClick(Sender: TObject);
  235.     procedure PMShutdownOsClick(Sender: TObject);
  236.     procedure PMRebootOsClick(Sender: TObject);
  237.     procedure TreeViewDblClick(Sender: TObject);
  238.     procedure EditScanIntervalKeyUp(Sender: TObject; var Key: Word;
  239.       Shift: TShiftState);
  240.     procedure EditIntervalKeyUp(Sender: TObject; var Key: Word;
  241.       Shift: TShiftState);
  242.     procedure EditConsoleMaxLineKeyUp(Sender: TObject; var Key: Word;
  243.       Shift: TShiftState);
  244.     procedure BtnSaveSettingClick(Sender: TObject);
  245.     procedure BtnAddClientClick(Sender: TObject);
  246.     procedure BtnDeleteClientClick(Sender: TObject);
  247.     procedure CBClientMCChange(Sender: TObject);
  248.     procedure CBViewItemChange(Sender: TObject);
  249.     procedure BtnMonClick(Sender: TObject);
  250.     procedure BtnRefreshClick(Sender: TObject);
  251.     procedure BtnViewLogClick(Sender: TObject);
  252.     procedure CBPeriodMonClick(Sender: TObject);
  253.     procedure CBClientPChange(Sender: TObject);
  254.     procedure BtnViewProcClick(Sender: TObject);
  255.     procedure BtnTerminateProcClick(Sender: TObject);
  256.     procedure BtnConsoleConnClick(Sender: TObject);
  257.     procedure CBClientCChange(Sender: TObject);
  258.     procedure MemoConsoleKeyUp(Sender: TObject; var Key: Word;
  259.       Shift: TShiftState);
  260.     procedure TSSysSettingShow(Sender: TObject);
  261.     procedure TSSysSettingHide(Sender: TObject);
  262.     procedure TSManClientShow(Sender: TObject);
  263.     procedure TSManClientHide(Sender: TObject);
  264.     procedure TSPanelShowShow(Sender: TObject);
  265.     procedure TSPanelShowHide(Sender: TObject);
  266.     procedure TSFileShow(Sender: TObject);
  267.     procedure TSFileHide(Sender: TObject);
  268.     procedure TSProcShow(Sender: TObject);
  269.     procedure TSProcHide(Sender: TObject);
  270.     procedure TSClientShow(Sender: TObject);
  271.     procedure TSClientHide(Sender: TObject);
  272.     procedure TSSCreenShow(Sender: TObject);
  273.     procedure TSSCreenHide(Sender: TObject);
  274.     procedure TSConsoleShow(Sender: TObject);
  275.     procedure TSConsoleHide(Sender: TObject);
  276.     procedure MonTimerTimer(Sender: TObject);
  277.     procedure ExeTreeView();
  278.     procedure UpdateData(Addr:String;StrMsg:TStrings);
  279.     procedure BroadMessage(StrMsg:TStrings);
  280.     procedure SendCommand(StrCmd:TStrings;Addr:String);
  281.     procedure TCPReceiverConnect(AThread: TIdPeerThread);
  282.     procedure TCPReceiverDisconnect(AThread: TIdPeerThread);
  283.     procedure TCPReceiverExecute(AThread: TIdPeerThread);
  284.     procedure PMShowFormClick(Sender: TObject);
  285.     procedure PMAboutClick(Sender: TObject);
  286.     procedure PMExitSysClick(Sender: TObject);
  287.     procedure PMHelpClick(Sender: TObject);
  289.   private
  290.     ScanThread:TScanThread;
  291.     procedure TrayMessage(var message:TMessage); message TRAYMSG;
  292.   public
  293.     { Public declarations }
  294.   end;
  296. var
  297.   MainForm: TMainForm;
  298.   //parasm依次为：0-是否监视cpu,1-是否内存,2-是否进程,3-是否文件
  299.   //4-是否监视网络,5-扫描时间间隔，6-cpu、内存监视时间间隔
  300.   //7-控制台允许最大行数，8-监视时是否保存日志
  301.   Params:TStrings;
  302.   NotifyData:NOTIFYICONDATA;
  304. implementation
  306. uses Input, ShowLog;
  308. var
  309.   hnd:THandle;
  311. {$R *.dfm}
  313. procedure TMainForm.FormCreate(Sender: TObject);
  314. var
  315.   Count:Integer;
  316. begin
  317.   Count:=0;
  318.   while (Count<PageWork.PageCount) do
  319.   begin
  320.     PageWork.Pages[Count].TabVisible:=false;
  321.     Count:=Count+1;
  322.   end;
  323.   TSClient.Show;
  324.   LoadClientView(VLClient);
  325.   UpdateClient(CBClientMC);
  326.   CBClientMC.Items.Strings[0]:='全部';
  327.   CBClientMC.ItemIndex:=0;
  328.   UpdateClient(CBClientP);
  329.   UpdateClient(CBClientC);
  330.   Params:=LoadConfig();
  331.   CBCpuMon.Checked:=StrToBool(Params[0]);
  332.   CBMemMon.Checked:=StrToBool(Params[1]);
  333.   CBProcMon.Checked:=StrToBool(Params[2]);
  334.   CBFileMon.Checked:=StrToBool(Params[3]);
  335.   CBNetMon.Checked:=StrToBool(Params[4]);
  336.   CBSaveToLog.Checked:=StrToBool(Params[8]);
  337.   ScanThread:=TScanThread.Create(MainForm);
  338. end;
  340. procedure TMainForm.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
  341. begin
  342.   CanClose:=false;
  343.   MMonHide.Click;
  344. end;
  346. procedure TMainForm.FormClose(Sender: TObject; var Action: TCloseAction);
  347. begin
  348.   ;
  349. end;
  351. procedure TMainForm.FormHide(Sender: TObject);
  352. begin
  353.   ;
  354. end;
  356. procedure TMainForm.FormShow(Sender: TObject);
  357. begin
  358.   ;
  359. end;
  361. procedure TMainForm.FormActivate(Sender: TObject);
  362. begin
  363.   ;
  364. end;
  366. procedure TMainForm.FormDeactivate(Sender: TObject);
  367. begin
  368.   ;
  369. end;
  371. procedure TMainForm.MSysSettingClick(Sender: TObject);
  372. begin
  373.   TSSysSetting.Show;
  374. end;
  376. procedure TMainForm.MMonHideClick(Sender: TObject);
  377. begin
  378.   NotifyData.cbSize:=SizeOf(NotifyIconData);
  379.   NotifyData.Wnd:=Handle;
  380.   NotifyData.uID:=0;
  381.   NotifyData.uFlags:=NIF_MESSAGE or NIF_ICON or NIF_TIP;
  382.   NotifyData.uCallbackMessage:=TRAYMSG;
  383.   NotifyData.hIcon:=ImageTray.Picture.Icon.Handle;
  384.   StrPLCopy(NotifyData.szTip,'计算机远程监控系统'+#10#13+'SPYHOLE - IVISIONAL',63);
  385.   Shell_NotifyIcon(NIM_ADD,@NotifyData);
  386.   Hide;
  387. end;
  389. procedure TMainForm.MExitClick(Sender: TObject);
  390. var
  391.   ResId:Integer;
  392. begin
  393.   ResId:=MessageDlg('确实退出监控？',mtConfirmation,[mbYes,mbNo],0);
  394.   if(ResId=mrYes) then
  395.   begin
  396.     try
  397.       Hide;
  398.       TCPReceiver.Active:=false;
  399.       TCPSender.Disconnect;
  400.       ScanThread.Terminate;
  401.       Shell_NotifyIcon(NIM_DELETE,@NotifyData);
  402.     except
  403.       ;
  404.     end;
  405.     Application.Terminate;
  406.   end
  407.   else if(ResId=mrNo) then
  408.     MMonHide.Click;
  409. end;
  411. procedure TMainForm.MManClientClick(Sender: TObject);
  412. begin
  413.   TSManClient.Show;
  414. end;
  416. procedure TMainForm.MViewClientClick(Sender: TObject);
  417. begin
  418.   TSClient.Show;
  419. end;
  421. procedure TMainForm.MMonCpuClick(Sender: TObject);
  422. begin
  423.   CBViewItem.ItemIndex:=1;
  424.   TSPanelShow.Show;
  425.   MonBoard.Items.Clear;
  426. end;
  428. procedure TMainForm.MMonMemClick(Sender: TObject);
  429. begin
  430.   CBViewItem.ItemIndex:=2;
  431.   TSPanelShow.Show;
  432.   MonBoard.Items.Clear;
  433. end;
  435. procedure TMainForm.MMonProcClick(Sender: TObject);
  436. begin
  437.   CBViewItem.ItemIndex:=3;
  438.   TSPanelShow.Show;
  439.   MonBoard.Items.Clear;
  440. end;
  442. procedure TMainForm.MMonFileClick(Sender: TObject);
  443. begin
  444.   CBViewItem.ItemIndex:=4;
  445.   TSPanelShow.Show;
  446.   MonBoard.Items.Clear;
  447. end;
  449. procedure TMainForm.MMonNetClick(Sender: TObject);
  450. begin
  451.   CBViewItem.ItemIndex:=5;
  452.   TSPanelShow.Show;
  453.   MonBoard.Items.Clear;
  454. end;
  456. procedure TMainForm.MMonKeyboardMouseClick(Sender: TObject);
  457. begin
  458.   CBViewItem.ItemIndex:=6;
  459.   TSPanelShow.Show;
  460.   MonBoard.Items.Clear;
  461. end;
  463. procedure TMainForm.MManProcClick(Sender: TObject);
  464. begin
  465.   TSProc.Show;
  466. end;
  468. procedure TMainForm.MLogoutClick(Sender: TObject);
  469. var
  470.   StrCmd:TStrings;
  471. begin
  472.   if(PageWork.ActivePage<>TSClient) then
  473.   begin
  474.     TSClient.Show;
  475.   end;
  476.   if(VLClient.Row<=0) then
  477.   begin
  478.     ShowMessage('请选择你要注销登陆的计算机。');
  479.     exit;
  480.   end;
  481.   if(MessageDlg(PAnsiChar('警告！确实要注销位于'+VLClient.Cells[0,VLClient.Row]
  482.     +'当前用户登陆吗?'),mtConfirmation,[mbYes,mbNo],0)=mrNo) then
  483.   begin
  484.     exit;
  485.   end;
  486.   StrCmd:=TStringList.Create;
  487.   StrCmd.Add('8');
  488.   SendCommand(StrCmd,VLClient.Cells[0,VLClient.Row]);
  489. end;
  491. procedure TMainForm.MShutdownOsClick(Sender: TObject);
  492. var
  493.   StrCmd:TStrings;
  494. begin
  495.   if(PageWork.ActivePage<>TSClient) then
  496.   begin
  497.     TSClient.Show;
  498.   end;
  499.   if(VLClient.Row<=0) then
  500.   begin
  501.     ShowMessage('请选择你要关闭的计算机。');
  502.     exit;
  503.   end;
  504.   if(MessageDlg(PAnsiChar('警告！确实要关闭计算机'+VLClient.Cells[0,VLClient.Row]
  505.     +'吗?'),mtConfirmation,[mbYes,mbNo],0)=mrNo) then
  506.   begin
  507.     exit;
  508.   end;
  509.   StrCmd:=TStringList.Create;
  510.   StrCmd.Add('7');
  511.   SendCommand(StrCmd,VLClient.Cells[0,VLClient.Row]);
  512. end;
  514. procedure TMainForm.MRebootOsClick(Sender: TObject);
  515. var
  516.   StrCmd:TStrings;
  517. begin
  518.   if(PageWork.ActivePage<>TSClient) then
  519.   begin
  520.     TSClient.Show;
  521.   end;
  522.   if(VLClient.Row<=0) then
  523.   begin
  524.     ShowMessage('请选择你要重启的计算机。');
  525.     exit;
  526.   end;
  527.   if(MessageDlg(PAnsiChar('警告！确实要重启计算机'+VLClient.Cells[0,VLClient.Row]
  528.     +'吗？'),mtConfirmation,[mbYes,mbNo],0)=mrNo) then
  529.   begin
  530.     exit;
  531.   end;
  532.   StrCmd:=TStringList.Create;
  533.   StrCmd.Add('6');
  534.   SendCommand(StrCmd,VLClient.Cells[0,VLClient.Row]);
  535. end;
  537. procedure TMainForm.MConsoleClick(Sender: TObject);
  538. begin
  539.   TSConsole.Show;
  540. end;
  542. procedure TMainForm.MSendMsgClick(Sender: TObject);
  543. var
  544.   InputForm:TinputForm;
  545.   StrCmd:TStrings;
  546.   Addr:String;
  547. begin
  548.   if(PageWork.ActivePage<>TSClient) then
  549.   begin
  550.     TSClient.Show;
  551.   end;
  552.   if(VLClient.Row<=0) then
  553.   begin
  554.     ShowMessage('请选择你要发送消息的计算机。');
  555.     exit;
  556.   end;
  557.   Addr:=VLClient.Cells[0,VLClient.Row];
  558.   InputForm:=TInputForm.Create(Self);
  559.   InputForm.Caption:='发送消息到:'+Addr;
  560.   InputForm.ShowModal;
  561.   if(InputForm.EditInput.Text<>'') then
  562.   begin
  563.     StrCmd:=TStringList.Create;
  564.     StrCmd.Add('b0|'+InputForm.EditInput.Text);
  565.     SendCommand(StrCmd,Addr);
  566.   end;
  567.   InputForm.Free;
  568. end;
  570. procedure TMainForm.MHelpClick(Sender: TObject);
  571. begin
  572.   ShellExecute(Self.WindowHandle,'open','.help.htm','','', SW_SHOWMAXIMIZED );
  573. end;
  575. procedure TMainForm.MAboutClick(Sender: TObject);
  576. var
  577.   AboutForm:TAboutForm;
  578. begin
  579.   AboutForm:=TAboutForm.Create(Self);
  580.   AboutForm.ShowModal;
  581. end;
  583. procedure TMainForm.TBSysSettingClick(Sender: TObject);
  584. begin
  585.   MSysSetting.Click;
  586. end;
  588. procedure TMainForm.TBManClientClick(Sender: TObject);
  589. begin
  590.   MManClient.Click;
  591. end;
  593. procedure TMainForm.TBViewClientClick(Sender: TObject);
  594. begin
  595.   MViewClient.Click;
  596. end;
  598. procedure TMainForm.TBMonCpuClick(Sender: TObject);
  599. begin
  600.   MMonCpu.Click;
  601. end;
  603. procedure TMainForm.TBMonMemClick(Sender: TObject);
  604. begin
  605.   MMonMem.Click;
  606. end;
  608. procedure TMainForm.TBMonProcClick(Sender: TObject);
  609. begin
  610.   MMonProc.Click;
  611. end;
  613. procedure TMainForm.TBMonFileClick(Sender: TObject);
  614. begin
  615.   MMonFile.Click;
  616. end;
  618. procedure TMainForm.TBMonNetClick(Sender: TObject);
  619. begin
  620.   MMonNet.Click;
  621. end;
  623. procedure TMainForm.TBManProcClick(Sender: TObject);
  624. begin
  625.   MManProc.Click;
  626. end;
  628. procedure TMainForm.TBConsoleClick(Sender: TObject);
  629. begin
  630.   MConsole.Click;
  631. end;
  633. procedure TMainForm.TBSendMsgClick(Sender: TObject);
  634. begin
  635.   MSendMsg.Click;
  636. end;
  638. procedure TMainForm.TBHelpClick(Sender: TObject);
  639. begin
  640.   MHelp.Click;
  641. end;
  643. procedure TMainForm.PMMonClick(Sender: TObject);
  644. begin
  645.   TSPanelShow.Show;
  646. end;
  648. procedure TMainForm.PMManProcClick(Sender: TObject);
  649. begin
  650.   MManProc.Click;
  651. end;
  653. procedure TMainForm.PMConsoleClick(Sender: TObject);
  654. begin
  655.   MConsole.Click;
  656. end;
  658. procedure TMainForm.PMSendMsgClick(Sender: TObject);
  659. begin
  660.   MSendMsg.Click;
  661. end;
  663. procedure TMainForm.PMLogoutClick(Sender: TObject);
  664. begin
  665.   MLogout.Click;
  666. end;
  668. procedure TMainForm.PMShutdownOsClick(Sender: TObject);
  669. begin
  670.   MShutdownOs.Click;
  671. end;
  673. procedure TMainForm.PMRebootOsClick(Sender: TObject);
  674. begin
  675.   MRebootOs.Click;
  676. end;
  678. procedure TMainForm.TreeViewDblClick(Sender: TObject);
  679. begin
  680.   ExeTreeView();
  681. end;
  683. procedure TMainForm.EditScanIntervalKeyUp(Sender: TObject; var Key: Word;
  684.   Shift: TShiftState);
  685. begin
  686.   if(not ValueBetween(EditScanInterval.Text,1,99999)) then
  687.   begin
  688.     EditScanInterval.Text:='1';
  689.   end;
  690. end;
  692. procedure TMainForm.EditIntervalKeyUp(Sender: TObject; var Key: Word;
  693.   Shift: TShiftState);
  694. begin
  695.   if(not ValueBetween(EditInterval.Text,10,99999)) then
  696.   begin
  697.     EditInterval.Text:='10';
  698.   end;
  699. end;
  701. procedure TMainForm.EditConsoleMaxLineKeyUp(Sender: TObject;
  702.   var Key: Word; Shift: TShiftState);
  703. begin
  704.   if(not ValueBetween(EditConsoleMaxLine.Text,200,300)) then
  705.   begin
  706.     EditConsoleMaxLine.Text:='200';
  707.   end;
  708. end;
  710. procedure TMainForm.BtnSaveSettingClick(Sender: TObject);
  711. begin
  712.   Params.Clear;
  713.   if(CBCpuMonS.Checked) then
  714.     Params.Add('true')
  715.   else
  716.     Params.Add('false');
  717.   if(CBMemMonS.Checked) then
  718.     Params.Add('true')
  719.   else
  720.     Params.Add('false');
  721.   if(CBProcMonS.Checked) then
  722.     Params.Add('true')
  723.   else
  724.     Params.Add('false');
  725.   if(CBFileMonS.Checked) then
  726.     Params.Add('true')
  727.   else
  728.     Params.Add('false');
  729.   if(CBNetMonS.Checked) then
  730.     Params.Add('true')
  731.   else
  732.     Params.Add('false');
  733.   Params.Add(EditScanInterval.Text);
  734.   Params.Add(EditInterval.Text);
  735.   Params.Add(EditConsoleMaxLine.Text);
  736.   if(CBSaveToLogS.Checked) then
  737.     Params.Add('true')
  738.   else
  739.     Params.Add('false');
  740.   SaveConfig(Params);
  742.   UpdateClient(CBClientMC);
  743.   CBClientMC.Items.Strings[0]:='全部';
  744.   CBClientMC.ItemIndex:=0;
  745.   UpdateClient(CBCLientP);
  747. end;
  749. procedure TMainForm.BtnAddClientClick(Sender: TObject);
  750. begin
  751.   if(not IsValidAddr(EditIpAdd.Text)) then
  752.   begin
  753.     ShowMessage('请输入正确的IP地址');
  754.     EditIpAdd.SetFocus;
  755.     exit;
  756.   end;
  757.   if(ExistClient(EditIpAdd.Text)) then
  758.   begin
  759.     ShowMessage('该计算机已经存在！');
  760.     exit;
  761.   end;
  762.   AddClient(EditIpAdd.Text);
  763.   ShowClients(LVUnderMon);
  764.   LoadClientView(VLClient);
  765. end;
  767. procedure TMainForm.BtnDeleteClientClick(Sender: TObject);
  768. begin
  769.   if(LVUnderMon.Selected=nil) then
  770.   begin
  771.     ShowMessage('请选择要永久取消监控的计算机');
  772.     exit;
  773.   end;
  774.   DelClient(LVUnderMon.Selected.SubItems.Strings[0]);
  775.   ShowClients(LVUnderMon);
  776.   LoadClientView(VLClient);
  777. end;
  779. procedure TMainForm.CBClientMCChange(Sender: TObject);
  780. begin
  781.   MonBoard.Items.Clear;
  782. end;
  784. procedure TMainForm.CBViewItemChange(Sender: TObject);
  785. begin
  786.   MonBoard.Items.Clear;
  787. end;
  789. procedure TMainForm.BtnMonClick(Sender: TObject);
  790. var
  791.   StrMsg:TStrings;
  792. begin
  793.   StrMsg:=TStringList.Create;
  794.   if(BtnMon.Caption='开始监视') then
  795.   begin
  796.     if(CBCpuMon.Checked) then
  797.       StrMsg.Add('50|'+Params[6])
  798.     else
  799.       StrMsg.Add('51');
  800.     if(CBMemMon.Checked) then
  801.       StrMsg.Add('40|'+Params[6])
  802.     else
  803.       StrMsg.Add('41');
  804.     if(CBProcMon.Checked) then
  805.       StrMsg.Add('20')
  806.     else
  807.       StrMsg.Add('21');
  808.     if(CBFileMon.Checked) then
  809.       StrMsg.Add('30')
  810.     else
  811.       StrMsg.Add('31');
  812.     if(CBNetMon.Checked) then
  813.       StrMsg.Add('80')
  814.     else
  815.       StrMsg.Add('81');
  816.     BroadMessage(StrMsg);
  817.     BtnMon.Caption:='停止监视';
  818.   end
  819.   else
  820.   begin
  821.     StrMsg.Add('4');
  822.     BroadMessage(StrMsg);
  823.     BtnMon.Caption:='开始监视';
  824.   end;
  825. end;
  827. procedure TMainForm.BtnRefreshClick(Sender: TObject);
  828. begin
  829.   if(BtnRefresh.Caption='停止刷新') then
  830.   begin
  831.     BtnRefresh.Caption:='自动刷新';
  832.   end
  833.   else
  834.   begin
  835.     BtnRefresh.Caption:='停止刷新';
  836.   end;
  837. end;
  839. procedure TMainForm.BtnViewLogClick(Sender: TObject);
  840. var
  841.   ShowForm:TShowLogForm;
  842. begin
  843.   ShowForm:=TShowLogForm.Create(Self);
  844.   ShowForm.ShowModal;
  845. end;
  847. procedure TMainForm.CBPeriodMonClick(Sender: TObject);
  848. var
  849.   SecondsTotal:Cardinal;
  850. begin
  851.   DTEndMon.Date:=NOW;
  852.   if(CBPeriodMon.Checked) then
  853.   begin
  854.     if(Time>DTEndMon.DateTime) then
  855.     begin
  856.       SecondsTotal:=SecondsBetween(NOW,Date+StrToDateTime('23:59:59'));
  857.       SecondsTotal:=SecondsTotal+
  858.         SecondsBetween(Date+StrToDateTime('00:00:00'),DTEndMon.Time);
  859.     end
  860.     else
  861.     begin
  862.       SecondsTotal:=SecondsBetween(NOW,DTEndMon.Time);
  863.     end;
  864.     MonTimer.Interval:=SecondsTotal;
  865.     MonTimer.Enabled:=true;
  866.   end
  867.   else
  868.   begin
  869.     MonTimer.Enabled:=false;
  870.   end;
  871. end;
  873. procedure TMainForm.CBClientPChange(Sender: TObject);
  874. begin
  875.   BtnViewProc.Click;
  876. end;
  878. procedure TMainForm.BtnViewProcClick(Sender: TObject);
  879. var
  880.   StrCmd:TStrings;
  881. begin
  882.   LVProc.Items.Clear;
  883.   if(CBClientP.Text='请选择计算机') then
  884.   begin
  885.     ShowMessage('请选择你要查看进程的计算机！');
  886.     exit;
  887.   end;
  888.   StrCmd:=TStringList.Create;
  889.   StrCmd.Add('22');
  890.   SendCommand(StrCmd,CBClientP.Text);
  891. end;
  893. procedure TMainForm.BtnTerminateProcClick(Sender: TObject);
  894. var
  895.   StrCmd:TStrings;
  896. begin
  897.   if(LVProc.Selected=nil) then
  898.   begin
  899.     ShowMessage('请选择你要关闭的进程！');
  900.     exit;
  901.   end;
  902.   StrCmd:=TStringList.Create;
  903.   StrCmd.Add('23|'+LVProc.Selected.SubItems.Strings[1]);
  904.   SendCommand(StrCmd,CBClientP.Text);
  905. end;
  907. procedure TMainForm.CBClientCChange(Sender: TObject);
  908. begin
  909.   BtnConsoleConn.Click;
  910. end;
  912. procedure TMainForm.MemoConsoleKeyUp(Sender: TObject; var Key: Word;
  913.   Shift: TShiftState);
  914. var
  915.   StrCmd:TStrings;
  916. begin
  917.   if(Key=VK_RETURN) then
  918.   begin
  919.     if(CBClientC.Text='请选择计算机') then
  920.     begin
  921.       ShowMessage('请先选择你要执行远程命令的计算机！');
  922.       exit;
  923.     end;
  924.     MemoConsoleShow.Lines.Add(' ');
  925.     MemoConsoleShow.Lines.Add(MemoConsole.Lines.Text);
  926.     MemoConsoleShow.Lines.Add(' ');
  927.     StrCmd:=TStringList.Create;
  928.     StrCmd.Add('a0|'+Trim(MemoConsole.Lines.Text));
  929.     SendCommand(StrCmd,CBClientC.Text);
  930.     MemoConsole.Clear;
  931.   end;
  932. end;
  934. procedure TMainForm.TSSysSettingShow(Sender: TObject);
  935. var
  936.   Params:TStrings;
  937. begin
  938.   Params:=TStringList.Create;
  939.   Params.AddStrings(LoadConfig);
  940.   CBCpuMonS.Checked:=StrToBool(Params.Strings[0]);
  941.   CBMemMonS.Checked:=StrToBool(Params.Strings[1]);
  942.   CBProcMonS.Checked:=StrToBool(Params.Strings[2]);
  943.   CBFileMonS.Checked:=StrToBool(Params.Strings[3]);
  944.   CBNetMonS.Checked:=StrToBool(Params.Strings[4]);
  945.   EditScanInterval.Text:=Params.Strings[5];
  946.   EditInterval.Text:=Params.Strings[6];
  947.   EditConsoleMaxLine.Text:=Params.Strings[7];
  948.   CBSaveToLogS.Checked:=StrToBool(Params.Strings[8]);
  949. end;
  951. procedure TMainForm.TSSysSettingHide(Sender: TObject);
  952. begin
  953.   ;
  954. end;
  956. procedure TMainForm.TSManClientShow(Sender: TObject);
  957. begin
  958.   ShowClients(LVUnderMon);
  959. end;
  961. procedure TMainForm.TSManClientHide(Sender: TObject);
  962. begin
  963.   ;
  964. end;
  966. procedure TMainForm.TSPanelShowShow(Sender: TObject);
  967. begin
  968.   ;
  969. end;
  971. procedure TMainForm.TSPanelShowHide(Sender: TObject);
  972. begin
  973.   ;
  974. end;
  976. procedure TMainForm.TSFileShow(Sender: TObject);
  977. begin
  978.   ;
  979. end;
  981. procedure TMainForm.TSFileHide(Sender: TObject);
  982. begin
  983.   ;
  984. end;
  986. procedure TMainForm.TSProcShow(Sender: TObject);
  987. begin
  988.   ;
  989. end;
  991. procedure TMainForm.TSProcHide(Sender: TObject);
  992. begin
  993.   ;
  994. end;
  996. procedure TMainForm.TSClientShow(Sender: TObject);
  997. begin
  998.   ;
  999. end;
  1001. procedure TMainForm.TSClientHide(Sender: TObject);
  1002. begin
  1003.   ;
  1004. end;
  1006. procedure TMainForm.TSSCreenShow(Sender: TObject);
  1007. begin
  1008.   ;
  1009. end;
  1011. procedure TMainForm.TSSCreenHide(Sender: TObject);
  1012. begin
  1013.   ;
  1014. end;
  1016. procedure TMainForm.TSConsoleShow(Sender: TObject);
  1017. begin
  1018.   ;
  1019. end;
  1021. procedure TMainForm.TSConsoleHide(Sender: TObject);
  1022. begin
  1023.   ;
  1024. end;
  1026. procedure TMAinForm.ExeTreeView();
  1027. var
  1028.   StrSel:String;
  1029. begin
  1030.   StrSel:=TreeView.Selected.Text;
  1031.   if(StrSel='系统设置') then
  1032.     MSysSetting.Click
  1033.   else if(StrSel='后台监控') then
  1034.     MMonHide.Click
  1035.   else if(StrSel='退出监控') then
  1036.     Mexit.Click
  1037.   else if(StrSel='管理计算机') then
  1038.     MManClient.Click
  1039.   else if(StrSel='查看计算机连接情况') then
  1040.     MViewClient.Click
  1041.   else if(StrSel='远程监视') then
  1042.     PMMon.Click
  1043.   else if(StrSel='CPU使用') then
  1044.     MMonCpu.Click
  1045.   else if(StrSel='内存使用') then
  1046.     MMonMem.Click
  1047.   else if(StrSel='进程创建、终止') then
  1048.     MMonProc.Click
  1049.   else if(StrSel='文件操作') then
  1050.     MMonFile.Click
  1051.   else if(StrSel='网络数据包') then
  1052.     MMonNet.Click
  1053.   else if(StrSel='进程管理') then
  1054.     MManProc.Click
  1055.   else if(StrSel='注销登陆') then
  1056.     MLogout.Click
  1057.   else if(StrSel='关闭计算机') then
  1058.     MShutdownOs.Click
  1059.   else if(StrSel='重启计算机') then
  1060.     MRebootOs.Click
  1061.   else if(StrSel='控制台命令') then
  1062.     MConsole.Click
  1063.   else if(StrSel='发送消息') then
  1064.     MSendMsg.Click
  1065.   else
  1066.     ;
  1067. end;
  1069. procedure TMainForm.BroadMessage(StrMsg:TStrings);
  1070. const
  1071.   MAX_TRY_COUNT=5;
  1072. var
  1073.   Count:Integer;
  1074.   TryCount:Integer;
  1075.   MsgCount:Integer;
  1076. begin
  1077.   ScanThread.Suspend;
  1078.   Count:=VLClient.Strings.Count-1;
  1079.   while(Count>0) do
  1080.   begin
  1081.     for TryCount:=MAX_TRY_COUNT downto 0 do
  1082.     begin
  1083.       if(VLClient.Cells[1,Count]='是') then
  1084.       begin
  1085.         TCPSender.Host:=VLClient.Cells[0,Count];
  1086.         try
  1087.           TCPSender.Connect();
  1088.           if(TCPSender.Connected=true) then
  1089.           begin
  1090.             for MsgCount:=0 to StrMsg.Count do
  1091.             begin
  1092.               TCPSender.WriteLn(StrMsg[MsgCount]+#10#10);
  1093.             end;
  1094.             break;
  1095.           end;
  1096.         except
  1097.           ;
  1098.         end;
  1099.         TCPSender.Disconnect;
  1100.       end;
  1101.     end;
  1102.     Count:=Count-1;
  1103.   end;
  1104.   ScanThread.Resume;
  1105. end;
  1107. procedure TMainForm.SendCommand(StrCmd:TStrings;Addr:String);
  1108. const
  1109.   MAX_TRY_COUNT=5;
  1110. var
  1111.   Count:Integer;
  1112.   TryCount:Integer;
  1113. begin
  1114.   ScanThread.Suspend;
  1115.   TCPSender.Disconnect;
  1116.   TCPSender.Host:=Addr;
  1117.   for Count:=0 to StrCmd.Count-1 do
  1118.   begin
  1119.     try
  1120.       for TryCount:=MAX_TRY_COUNT downto 0 do
  1121.       begin
  1122.         if(TCPSender.Connected=true) then
  1123.         begin
  1124.           TCPSender.WriteLn(StrCmd[Count]+#10#10);
  1125.           break;
  1126.         end
  1127.         else
  1128.         begin
  1129.           TCPSender.Connect();
  1130.         end;
  1131.       end;
  1132.     except
  1133.       ;
  1134.     end;
  1135.   end;
  1136.   ScanThread.Resume;
  1137. end;
  1139. procedure TMainForm.TCPReceiverConnect(AThread: TIdPeerThread);
  1140. var
  1141.   StrCmd:TStrings;
  1142.   TmpAddr:String;
  1143. begin
  1144.   TmpAddr:=AThread.Connection.Socket.Binding.PeerIP;
  1145.   StatusBar.Panels.Items[2].Text:=TmpAddr+'已经连接';
  1146.   UpdateClientStatus(VLClient,TmpAddr,'是');  
  1147.   StrCmd:=TStringList.Create;
  1148.   if(CBCpuMon.Checked) then
  1149.     StrCmd.Add('50|'+Params[6]);
  1150.   if(CBMemMon.Checked) then
  1151.     StrCmd.Add('40|'+Params[6]);
  1152.   if(CBProcMon.Checked) then
  1153.     StrCmd.Add('20');
  1154.   if(CBFileMon.Checked) then
  1155.     StrCmd.Add('30');
  1156.   if(CBNetMon.Checked) then
  1157.       StrCmd.Add('80');
  1158.   SendCommand(StrCmd,TmpAddr); 
  1159. end;
  1161. procedure TMainForm.TCPReceiverDisconnect(AThread: TIdPeerThread);
  1162. var
  1163.   TmpAddr:String;
  1164. begin
  1165.   TmpAddr:=AThread.Connection.Socket.Binding.PeerIP;
  1166.   StatusBar.Panels.Items[2].Text:=TmpAddr+'断开连接';
  1167.   UpdateClientStatus(VLClient,TmpAddr,'否');
  1168. end;
  1170. procedure TMainForm.TCPReceiverExecute(AThread: TIdPeerThread);
  1171. var
  1172.   StrReceived,IpAddr:String;
  1173.   StrMsg:TStringList;
  1174. begin
  1175.   try
  1176.     IpAddr:=AThread.Connection.Socket.Binding.PeerIP;
  1177.     StrReceived:=AThread.Connection.ReadLn(#10#10);
  1178.     StrReceived:=Trim(StrReceived);
  1179.     if(CBSaveToLog.Checked) then
  1180.     begin
  1181.       SaveLog(IpAddr+'|'+StrReceived);//保存日志
  1182.     end;
  1183.     if(StrReceived[1]='a') then
  1184.     begin
  1185.       StrReceived[1]:=#13;
  1186.       if(MemoConsoleShow.Lines.Count>=StrToInt(Params[7])) then
  1187.         MemoConsoleShow.Lines.Delete(0);
  1188.       MemoConsoleShow.Lines.Add(StrReceived);
  1189.     end
  1190.     else
  1191.     begin
  1192.       StrMsg:=TStringList.Create;
  1193.       StrMsg.AddStrings(ExtractStr(StrReceived,'|'));
  1194.       UpdateData(IpAddr,StrMsg);
  1195.     end;
  1196.   finally
  1197.     ;
  1198.   end;
  1199. end;
  1201. procedure TMainForm.MonTimerTimer(Sender: TObject);
  1202. begin
  1203.   BtnMon.Caption:='停止监视';
  1204.   BtnMon.Click;
  1205. end;
  1207. constructor TScanThread.Create(TheForm:TMainForm);
  1208. begin
  1209.   OwnerForm:=TheForm;
  1210.   inherited Create(false);
  1211. end;
  1213. procedure TScanThread.Execute;
  1214. var
  1215.   Interval:Integer;
  1216. begin
  1217.   while not Terminated do
  1218.   begin
  1219.     ScanClient();
  1220.     Interval:=StrToInt(Params[5]);
  1221.     Sleep(Interval*1000);
  1222.   end;
  1223. end;
  1225. function TScanThread.IsValidClient(TmpAddr:String):Boolean;
  1226. begin
  1227.   MainForm.StatusBar.Panels.Items[1].Text:='扫描'+TmpAddr+'...';
  1228.   if(MainForm.TCPSender.Connected=true) then
  1229.   begin
  1230.     MainForm.TCPSender.Disconnect;
  1231.   end;
  1232.   MainForm.TCPSender.Host:=TmpAddr;
  1233.   try
  1234.     MainForm.TCPSender.Connect();
  1235.     if(MainForm.TCPSender.Connected=false) then
  1236.     begin
  1237.       result:=false;
  1238.       exit;
  1239.     end
  1240.     else
  1241.     begin
  1242.       MainForm.TCPSender.WriteLn('0|'+
  1243.         IntToStr(MainForm.TCPReceiver.DefaultPort)+#10#10);
  1244.     end;
  1245.   except
  1246.     MainForm.TCPSender.Disconnect;
  1247.     result:=false;
  1248.     exit;
  1249.   end;
  1250.   result:=true;
  1251. end;
  1253. procedure TScanThread.ScanClient();
  1254. var ClientAddr:String;
  1255.     N:Integer;
  1256. begin
  1257.   N:=MainForm.VLClient.Strings.Count-1;
  1258.   while(N>0) do
  1259.   begin
  1260.     ClientAddr:=MainForm.VLClient.Keys[N];
  1261.     if(IsValidClient(ClientAddr)) then
  1262.     begin
  1263.       MainForm.StatusBar.Panels.Items[1].Text:='与'
  1264.         +ClientAddr+'连接成功';
  1265.     end
  1266.     else
  1267.     begin
  1268.       MainForm.StatusBar.Panels.Items[1].Text:='与'
  1269.         +ClientAddr+'连接失败';
  1270.     end;
  1271.     N:=N-1;
  1272.   end;
  1273. end;
  1275. procedure TMainForm.UpdateData(Addr:String;StrMsg:TStrings);
  1276. var
  1277.   StrTmp:String;
  1278.   RetId,N,Count:Integer;
  1279. begin
  1280.   RetId:=StrToInt('$'+StrMsg[1]);
  1281.   if(RetId in MON_ITEM) then
  1282.   begin
  1283.     if(BtnRefresh.Caption<>'停止刷新') then
  1284.     begin
  1285.       exit;
  1286.     end;
  1287.     if(Addr=CBClientMC.Text) or (CBClientMC.Text='全部') then
  1288.     begin
  1289.       StrTmp:='';
  1290.     if(RetId in [$20,$21]) and
  1291.       ((CBViewItem.ItemIndex=3) or (CBViewItem.ItemIndex=0)) then
  1292.     begin
  1293.       if(RetId=$20) then
  1294.         StrTmp:=StrTmp+'创建：'
  1295.       else
  1296.         StrTmp:=StrTmp+'终止：';
  1297.       StrTmp:=StrTmp+'进程号-'+StrMsg[2];
  1298.       StrTmp:=StrTmp+'，进程文件-';
  1299.       StrTmp:=StrTmp+StrMsg[3];
  1300.     end
  1301.     else if(RetId in [$30..$33]) and
  1302.       ((CBViewItem.ItemIndex=4) or (CBViewItem.ItemIndex=0)) then
  1303.     begin
  1304.       case RetId of
  1305.         $30:StrTmp:=StrTmp+'新建文件：';
  1306.         $31:StrTmp:=StrTmp+'删除文件：';
  1307.         $32:StrTmp:=StrTmp+'文件更新：';
  1308.         $33:StrTmp:=StrTmp+'文件更名：';
  1309.       end;
  1310.       if(RetId<>$33) then
  1311.         StrTmp:=StrTmp+StrMsg[2]
  1312.       else
  1313.         StrTmp:=StrTmp+StrMsg[2]+'更名为'+StrMsg[3];
  1314.       end
  1315.     else if(RetId=$4) and
  1316.       ((CBViewItem.ItemIndex=2) or (CBViewItem.ItemIndex=0)) then
  1317.     begin
  1318.       StrTmp:=StrTmp+'内存使用率：百分之'+StrMsg[2]
  1319.         +'，可用物理内存'+StrMsg[3]+'兆';
  1320.     end
  1321.     else if(RetId=$5) and
  1322.       ((CBViewItem.ItemIndex=1) or (CBViewItem.ItemIndex=0)) then
  1323.     begin
  1324.       StrTmp:=StrTmp+'CPU使用率：百分之'+StrMsg[2];
  1325.     end
  1326.     else if(RetId in [$80,$81]) and
  1327.       ((CBViewItem.ItemIndex=5) or (CBViewItem.ItemIndex=0)) then
  1328.     begin
  1329.       StrTmp:=StrTmp+'网络数据包：';
  1330.       if(RetId=$80) then
  1331.         StrTmp:=StrTmp+'收'
  1332.       else
  1333.         StrTmp:=StrTmp+'发';
  1334.       StrTmp:=StrTmp+'，数目：'+StrMsg[2];
  1335.       StrTmp:=StrTmp+'，协议：'+StrMsg[3];
  1336.       StrTmp:=StrTmp+'，远程IP：'+StrMsg[4];
  1337.       StrTmp:=StrTmp+'，目标端口：'+StrMsg[5];
  1338.       StrTmp:=StrTmp+'，包大小：'+StrMsg[6];
  1339.     end;
  1340.     if(StrTmp='') then
  1341.     begin
  1342.       exit;
  1343.     end;
  1344.     MonBoard.Items.Add.SubItems.Add('来自：'+Addr+'，时间：'
  1345.     +StrMsg[0]);
  1346.     MonBoard.Items.Add.SubItems.Add(StrTmp);
  1347.     Count:=MonBoard.Items.Count-StrToInt(Params[7]);
  1348.     if(Count>0) then
  1349.     begin
  1350.       N:=0;
  1351.       while(N<Count) do
  1352.       begin
  1353.         MonBoard.Items.Delete(N);
  1354.         N:=N+1;
  1355.         end;
  1356.       end;
  1357.     end;
  1358.   end
  1359.   else
  1360.   begin
  1361.     case RetId of
  1362.       $22://进程列表
  1363.         begin
  1364.           N:=2;
  1365.           Count:=StrMsg.Count;
  1366.           LVProc.Items.Clear;
  1367.           while(N<Count) do
  1368.           begin
  1369.             with LVProc.Items.Add do
  1370.             begin
  1371.               try
  1372.                 SubItems.Add(StrMsg[N+1]);
  1373.                 SubItems.Add(StrMsg[N]);
  1374.                 SubItems.Add(StrMsg[N+2]);
  1375.               except
  1376.                 break;
  1377.               end;
  1378.             end;
  1379.             N:=N+3;
  1380.           end;
  1381.         end;
  1382.       $23://关闭进程
  1383.         begin
  1384.           if(StrMsg[2]='0') then
  1385.             ShowMessage('成功关闭进程！')
  1386.           else
  1387.             ShowMessage('关闭进程失败！');
  1388.           BtnViewProc.Click;
  1389.         end;
  1390.     else
  1391.       ;
  1392.     end;
  1393.   end;
  1394. end;
  1396. procedure TMainForm.BtnConsoleConnClick(Sender: TObject);
  1397. var
  1398.   StrCmd:TStrings;
  1399. begin
  1400.   if(CBClientC.Text='请选择计算机') then
  1401.   begin
  1402.     ShowMessage('请选择你要执行远程控制台的计算机！');
  1403.     exit;
  1404.   end;
  1405.   MemoConsoleShow.Lines.Clear;
  1406.   MemoConsoleShow.Lines.Add(' ');
  1407.   MemoConsoleShow.Lines.Add('SPYHOLE V 2.0 of IVISIONAL');
  1408.   MemoConsoleShow.Lines.Add('2004  ');
  1409.   MemoConsoleShow.Lines.Add(' ');
  1410.   StrCmd:=TStringList.Create;
  1411.   StrCmd.Add('a0|');
  1412.   SendCommand(StrCmd,CBClientC.Text);
  1413. end;
  1415. procedure TMainForm.TrayMessage(var message:TMessage);
  1416. var
  1417.   CurPoint:Tpoint;
  1418. begin
  1419.   Inherited;
  1420.   if(message.LParam=WM_RBUTTONUP) then
  1421.   begin
  1422.     GetCursorPos(CurPoint);
  1423.     SetForegroundWindow(Self.Handle);
  1424.     PopMemuTray.Popup(CurPoint.X,CurPoint.Y);
  1425.   end;
  1426.   message.Result:=0;
  1427. end;
  1429. procedure TMainForm.PMShowFormClick(Sender: TObject);
  1430. begin
  1431.   MainForm.Show;
  1432.   Shell_NotifyIcon(NIM_DELETE,@NotifyData);
  1433. end;
  1435. procedure TMainForm.PMAboutClick(Sender: TObject);
  1436. begin
  1437.   MAbout.Click;
  1438. end;
  1440. procedure TMainForm.PMExitSysClick(Sender: TObject);
  1441. begin
  1442.   MExit.Click;
  1443. end;
  1445. procedure TMainForm.PMHelpClick(Sender: TObject);
  1446. begin
  1447.   MHelp.Click;
  1448. end;
  1451. initialization
  1452.   hnd:=CreateMutex(nil,True,'SpyHole2.0监控');
  1453.   if(GetLastError=ERROR_ALREADY_EXISTS) then
  1454.   begin
  1455.     Halt;
  1456.   end;
  1458. finalization
  1459.   if(hnd<>0) then
  1460.     CloseHandle(hnd);
  1462. end.