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

源码开发语言/平台
当前位置：首页 > 源码/资料 > 系统/网络安全 > 扫描程序 > 查看源码
U_FrmSearchNetIp.pas
资源名称：ScanNetIP.rar　[点击查看]
上传用户：hbxylj
上传日期：2013-05-06
资源大小：240k
文件大小：17k
源码类别：

扫描程序

开发平台：

Delphi

U_FrmSearchNetIp.pas：源码内容
  1. unit U_FrmSearchNetIp;
  3. interface
  5. uses
  6.   Windows, Messages, SysUtils, Classes, Graphics, Controls,
  7.   WinSock,Forms, Dialogs, StdCtrls, ExtCtrls, Buttons,
  8.   Grids, ComCtrls;
  10. const
  11.   WM_SOCK = WM_USER + 1;     {自定义windows消息}
  12.   NBTPORT =  137;         {向对方的137端口发数据包(UDP包)}
  14. Type
  15.   TTGroupNet=record {网络标识}
  16.       IP:string;
  17.       ComputerName:string;
  18.       ComputerDes:string;
  19.       NetGroup:string;
  20.       NetMacCode:string;
  21.   end;
  22. type
  23.   TSearchNetIp_frm = class(TForm)
  24.     SBrnScanNetIP: TSpeedButton;
  25.     SBtnStopScan: TSpeedButton;
  26.     stabar: TStatusBar;
  27.     SgDispNetIP: TListView;
  28.     Edit1: TEdit;
  29.     Edit2: TEdit;
  30.     Label1: TLabel;
  31.     Label2: TLabel;
  32.     procedure FormCreate(Sender: TObject);
  33.     procedure FormClose(Sender: TObject; var Action: TCloseAction);
  34.     procedure SBtnStopScanClick(Sender: TObject);
  35.     procedure SBrnScanNetIPClick(Sender: TObject);
  36.     procedure SgDispNetIPSelectCell(Sender: TObject; ACol, ARow: Integer;
  37.       var CanSelect: Boolean);
  38.     procedure SgDispNetIPDblClick(Sender: TObject);
  39.     procedure RxSEdDelayKeyPress(Sender: TObject; var Key: Char);
  40.   private
  41.     { Private declarations }
  42.     procedure ReadData(var Message: TMessage); message WM_SOCK;  {消息接送}
  43.     Procedure ClearGrid();
  44.     Procedure MakeGrid(Const IntIndex:integer=3);{排序}
  46.   public
  47.     { Public declarations }
  48.   end;
  50. {*******************************************************}
  51.   TComread=class(TThread) {通讯线程}
  52.   private
  53.   public
  54.    Tagg:integer;
  55.   protected
  56.     procedure Execute; override;
  57.   end;
  58.   {始化SOCKET}
  59.   Procedure WinSockInital(Handle: HWnd);
  60.   {关闭SOCKET}
  61.   Procedure WinSockClose();
  62. const NbtstatPacket:array[0..49]of byte  {发送数据包}
  63.       =($0,$0,$0,$0,$0,$1,
  64.       $0,$0,$0,$0,$0,$0,$20,$43,$4b,
  65.       $41,$41,$41,$41,$41,$41,$41,$41,
  66.       $41,$41,$41,$41,$41,$41,$41,$41,
  67.       $41,$41,$41,$41,$41,$41,$41,$41,
  68.       $41,$41,$41,$41,$41,$41,$0,$0,$21,$0,$1);
  69. {*******************************************************}
  70. var
  71.   SearchNetIp_frm: TSearchNetIp_frm;
  73.   TF_stop:boolean;  {停止}
  74.   TempWSAData: TWSAData;
  75.   sockfd:TSocket;     {Integer socket句柄}
  76.   WAIT_ACK_EVENT:Thandle; {LongWord  句柄|}
  77.   FSockAddrIn : TSockAddrIn;
  79.   IP_count,ComputerIP:integer;
  80.   IP_end:     Dword;
  81.   StartTickCount:DWORD ; {计数器}
  82.   StopTickCount: DWORD ;
  84.   TGroupNet:array of TTGroupNet;{网络信息寄存}
  85.   IntGridCol:integer;
  86.   
  87. implementation
  89. {$R *.DFM}
  91. procedure TSearchNetIp_frm.FormCreate(Sender: TObject);
  92. begin
  93.     IntGridCol:=0;
  94.     {TRxRichEdit 去除64K的限制}
  95.     //RxRedDispinf.MaxLength := High(Integer) - 1024;
  96.     {Grid清除 ClearGrid}
  97.     ClearGrid;
  98. end;
  99. procedure TSearchNetIp_frm.FormClose(Sender: TObject;
  100.   var Action: TCloseAction);
  101. begin
  102.   TF_stop:=True;
  103.   setlength(TGroupNet,0);
  104.   {关闭SOCKET}
  105.   WinSockClose();
  106. end;
  107. {停止扫描}
  108. procedure TSearchNetIp_frm.SBtnStopScanClick(Sender: TObject);
  109. begin
  110.  TF_stop:=True;
  111.  close;
  112. end;
  115. {****************** SOCKET通讯  *****************}
  116. {始化SOCKET}
  117. Procedure WinSockInital(Handle: HWnd);
  118. begin
  119.      { 1 初始化SOCKET}
  120.      TF_stop:=false;
  121.      if WSAStartup(2, TempWSAData)=1 then
  122.      begin
  123.        showmessage('Socket初始化出错');
  124.        exit
  125.      end;
  126.      {若是用UDP通信，则用}
  127.      sockfd:=Socket(AF_INET,SOCK_DGRAM,0);
  129.      FSockAddrIn.SIn_Family := AF_INET;
  130.      FSockAddrIn.SIn_Port := htons(NBTPORT);  {137端口}
  132.     {Socket的信息传递--》From.Handle 窗体， FD_READ 在读就绪的时候, WM_SOCK 自定义消息号}
  133.      WSAAsyncSelect(sockfd, Handle , WM_SOCK, FD_READ);
  134.     {创建事件}
  135.      WAIT_ACK_EVENT:=CreateEvent(nil,true,false,pchar('WAIT_ACK') );
  136.      ResetEvent(WAIT_ACK_EVENT);
  137. end;
  138. {关闭SOCKET}
  139. Procedure WinSockClose();
  140. begin
  141.    TF_stop:=True;
  142.    CloseSocket(sockfd); {closesocket函数用来关闭一个描述符为sockfd套接字}
  143.    WSACleanup;
  144.    sleep(2);
  145. end;
  146. {****************** SOCKET通讯  *****************}
  147. {扫描开始}
  148. procedure TSearchNetIp_frm.SBrnScanNetIPClick(Sender: TObject);
  149. var
  150.   DWx1,Dwx:Dword;
  151.   IP,Str_Ip,begin_ip,end_ip:string;
  152.   Tcomr:TComread;
  153. begin
  154.    //RxRichEdit1.text:='';
  155.    Setlength(TGroupNet,0);
  156.    {始化SOCKET}
  157.    WinSockInital(SearchNetIp_frm.Handle);
  159.    {清除Grid}
  160.    ClearGrid;
  161.    TF_stop:=false;
  162.    begin_ip:=edit1.Text;
  163.    IP:=begin_ip;
  164.    //RxRedDispinf.Text :='';
  165.    stabar.Panels[0].Text:='';
  166.    stabar.Panels[1].Text:='';
  168.    stabar.Panels[1].Text:='扫描用时：';
  169.    if Longword(inet_addr(pchar(IP)))=INADDR_NONE then
  170.    begin
  171.       Messagebox(Application.handle,pchar(IP + ' TP 出错'),'警告',MB_OK+MB_ICONERROR);
  172.       exit;
  173.    end;
  174.    end_ip:=edit2.Text;
  175.    IP:=end_ip;
  176.    if Longword(inet_addr(pchar(IP)))=INADDR_NONE then
  177.    begin
  178.       Messagebox(Application.handle,pchar(IP + ' TP 出错'),'警告',MB_OK+MB_ICONERROR);
  179.       exit;
  180.    end;
  181.     IP:=begin_ip;
  182.     ComputerIP:=inet_addr(PChar(IP)) ;  // 192.168.0.1 ===>01 00 A8 C0
  183.     str_ip:=inttohex(ComputerIP,8);    //01 00 A8 C0
  184.     str_ip:=copy(str_ip,7,2)+copy(str_ip,5,2)+copy(str_ip,3,2)+copy(str_ip,1,2);   //==> C0 A8 00 01
  185.     DWx:=strtoint('$'+str_ip); {转换成为一个长整形数}
  187.     str_ip:=inttohex(ComputerIP,8);
  188.     str_ip:=inttostr(strtoint('$' + copy(str_ip,7,2)))
  189.                 +'.' + inttostr(strtoint('$' + copy(str_ip,5,2)))
  190.                 +'.' + inttostr(strtoint('$' + copy(str_ip,3,2)))
  191.                 +'.' + inttostr(strtoint('$' + copy(str_ip,1,2)));
  192.     //EdNetIP1.text:=str_ip;  {允许输入 一个数值表示IP}
  194.     IP:=end_ip;
  195.     ComputerIP:=inet_addr(PChar(IP)) ;  // 192.168.0.1 ===>01 00 A8 C0
  196.     str_ip:=inttohex(ComputerIP,8);    //01 00 A8 C0
  197.     str_ip:=copy(str_ip,7,2)+copy(str_ip,5,2)+copy(str_ip,3,2)+copy(str_ip,1,2);   //==> C0 A8 00 01
  198.     DWx1:=strtoint('$'+str_ip);   {转换成为一个长整形数}
  200.     str_ip:=inttohex(ComputerIP,8);
  201.     str_ip:=inttostr(strtoint('$' + copy(str_ip,7,2)))
  202.                +'.' + inttostr(strtoint('$' + copy(str_ip,5,2)))
  203.                +'.' + inttostr(strtoint('$' + copy(str_ip,3,2)))
  204.                +'.' + inttostr(strtoint('$' + copy(str_ip,1,2)));
  205.     //EdNetIP2.text:=str_ip;  {允许输入 一个数值表示IP}
  207.      if DWx1>Dwx then
  208.      begin
  209.         IP_count:=DWx1-Dwx;
  210.         ComputerIP:=inet_addr(PChar(begin_ip));
  211.         IP_end:=DWx1;
  213.      end
  214.      else begin
  215.         IP_count:=DWx-Dwx1;
  216.         ComputerIP:=inet_addr(PChar(end_ip));
  217.         IP_end:=DWx;
  219.      end;
  221.     SBrnScanNetIP.Enabled :=false;  {屏蔽按键}
  222.     Tcomr:=TComread.Create(True);
  223.     StartTickCount:=GetTickCount;
  224.     Tcomr.Resume ;  {开始线程}
  225. end;
  226. { TComread }
  227. {通讯线程}
  228. procedure TComread.Execute;
  229. var
  230.    str_ip:string;
  231.    IP_now:Dword;
  232.    Procedure MakeEnd();
  233.    begin
  234.      SearchNetIp_frm.SBrnScanNetIP.Enabled :=True;
  235.      StopTickCount:=GetTickCount;
  236.      SearchNetIp_frm.stabar.Panels[1].Text:='扫描用时：' +FloatToStr(StopTickCount-startTickCount)+' mS';
  237.      SearchNetIp_frm.stabar.Panels[0].Text:='IP个数：'+inttostr(SearchNetIp_frm.SgDispNetIP.Items.Count);
  239.  {排序
  240.  'TP地址'0  '计算机名称'1  '计算机描述' 2
  241.  '网络组'3  '网卡MAC码'4
  242.   MakeGrid(const IntIndex: integer=3);}
  243.    end;
  244. begin
  246.   with SearchNetIp_frm do
  247.   begin
  248.      str_ip:=inttohex(ComputerIP,8);    //01 00 A8 C0
  249.      str_ip:=copy(str_ip,7,2)+copy(str_ip,5,2)+copy(str_ip,3,2)+copy(str_ip,1,2);   //==> C0 A8 00 01
  250.      IP_now:=strtoint('$'+str_ip);
  252.       while IP_end>=IP_now do         ////IP_end==> C0 A8 00 01
  253.       begin
  254.          if TF_stop=True then
  255.          begin
  256.           MakeEnd();
  257.           {关闭SOCKET}
  258.           WinSockClose();
  259.           exit;
  260.          end;
  261.          str_ip:=inttohex(ComputerIP,8);
  262.          str_ip:=inttostr(strtoint('$' + copy(str_ip,7,2)))
  263.                 +'.' + inttostr(strtoint('$' + copy(str_ip,5,2)))
  264.                 +'.' + inttostr(strtoint('$' + copy(str_ip,3,2)))
  265.                 +'.' + inttostr(strtoint('$' + copy(str_ip,1,2)));
  266.          stabar.Panels[0].Text:=str_ip;  {目前扫描的IP}
  268.          FSockAddrIn.SIn_Addr.S_addr := ComputerIP;//inet_addr(pchar(IP));
  269.          str_ip:=inttohex(ComputerIP,8);    //01 00 A8 C0
  270.          str_ip:=copy(str_ip,7,2)+copy(str_ip,5,2)+copy(str_ip,3,2)+copy(str_ip,1,2);   //==> C0 A8 00 01
  271.          str_ip:=inttohex( strtoint(('$' + str_ip))+1,8);      //==> 加一C0 A8 00 02
  272.          IP_now:=strtoint('$'+str_ip);
  273.          str_ip:=copy(str_ip,7,2)+copy(str_ip,5,2)+copy(str_ip,3,2)+copy(str_ip,1,2);  //==>02 00 A8 C0
  274.          ComputerIP:=strtoint('$'+str_ip);
  275.          sendto(sockfd, NbtstatPacket,50, 0, FSockAddrIn, sizeof(FSockAddrIn));
  276.          //发送数据后
  277.          waitforsingleobject(WAIT_ACK_EVENT,10); // 等待事件变成有信号
  278.          ResetEvent(WAIT_ACK_EVENT);      // 设为没有信号
  279.       end;
  280.       MakeEnd();
  281.   end;
  282.  {关闭SOCKET}
  283.   WinSockClose();
  284. end;
  287. { TFrmSearchNetIp }
  288. {消息接送}
  289. procedure TSearchNetIp_frm.ReadData(var Message: TMessage);
  290. var
  291.   list:Tlistitem;
  292. var
  293.    Buffer: Array [1..500] of byte;
  294.    flen,len,i,j,pos,name_num: integer;
  295.    Event: word;
  296.    IP:string;
  297.    str_tp,str:string;
  298.    str_list_IP,str_list_name,str_list_disp,str_list_group,str_list_MAC:string;
  299.    StrTp:string;
  300. begin
  301.      flen:=sizeof(FSockAddrIn);
  302.      Event := WSAGetSelectEvent(Message.LParam);
  303.      if Event = FD_READ then
  304.      begin
  305.           len := recvfrom(sockfd, buffer, sizeof(buffer), 0, FSockAddrIn, flen);
  306.           if len> 0 then
  307.           begin
  308.             //FSockAddrIn.sin_addr.S_un_b.s_b1
  309.             with FSockAddrIn.sin_addr.S_un_b  do
  310.               IP:=format('%d.%d.%d.%d',[ord(s_b1),ord(s_b2),ord(s_b3),ord(s_b4)]);
  311.               str_list_IP:=IP;
  312.               //数据分析
  313.               name_num:=0;
  314.               str_tp:='';
  315.       for i:=1 to len do
  316.       begin
  317.         if((buffer[i]=$21)and(buffer[i+1]=$00)and(buffer[i+2]=$01)) then
  318.                 begin
  319.             name_num:=buffer[i+9];
  320.             break;
  321.         end;
  322.       end;
  323.       if name_num=0 then exit;
  324.       pos:=i+10;
  325.               str:='';
  326.       for i:=pos to (pos+18*name_num-1) do
  327.       begin
  328.          if (((i-pos)mod 18) =0) then
  329.          begin
  330.            for j:=0 to 14 do
  331.            begin
  332.              if trim(char(buffer[i+j]))='' then buffer[i+j]:=ord(' ');
  333.              str:=str+char(buffer[i+j]);
  334.            end;
  335.            if (buffer[i+16] and $80)=$80 then
  336.            begin
  337.                       if buffer[i+15]=$0 then str_list_GROUP:=trim(str);  //网络组
  338.               str:=str+format('<%x>',[buffer[i+15]]);
  339.       str:=str+'<GROUP>';
  340.    end
  341.    else begin
  342.                    if buffer[i+15]=$20 then str_list_name:=trim(str) //计算机名
  343.            else
  344.            if buffer[i+15]=$3 then str_list_disp:=trim(str);//计算机说明
  345.         str:=str+format('<%x>',[buffer[i+15]]);
  346.         str:=str+'<UNIQUE>';
  347.    end;
  348.     str_tp:=str_tp + str +#13+#10;
  349.     str:='';
  350.  end;
  351.       end;
  352.       for i:=0 to 5 do
  353.       begin
  354.           str:=str+format('%.2x.',[buffer[i+pos+18*name_num]]);
  355.       end;
  356.       delete(str,length(str),1);
  357.               str_list_MAC:=trim(str); //网卡的MAC码
  358.       str:='MAC:     '+str;
  359.               str_tp:=str_tp + str + #13+#10;
  360.               {网络信息}
  361.               //RxRedDispinf.Text :=RxRedDispinf.Text +IP +  #13+#10+  str_tp+ #13+#10;
  362.               {Grid}
  363.               list:=sgdispnetip.Items.Add;
  364.               list.Caption:=str_list_ip;  //'IP地址'
  365.               list.SubItems.Add(str_list_name);//'计算机名称'
  366.               list.SubItems.Add(str_list_GROUP);//'工作组名称'
  367.               list.SubItems.Add(str_list_MAC);//'Mac 地址'
  368.             {
  369.               I:=SgDispNetIP.Items.Count;
  370.               if I=2 then
  371.               begin
  372.                 if trim(SgDispNetIP.Items[1].Caption)<>'' then
  373.                  begin
  374.                     Inc(i);
  375.                     SgDispNetIP.RowCount:=I;
  376.                  end;
  377.               end
  378.               else begin
  379.                    Inc(i);
  380.                    SgDispNetIP.RowCount:=I;
  381.               end;
  382.               Dec(i);
  384.               SgDispNetIP.Cells[0,i]:=str_list_IP;//'TP地址'
  385.               SgDispNetIP.Cells[1,i]:=str_list_name;//'计算机名称'
  386.               SgDispNetIP.Cells[2,i]:=str_list_disp;//'计算机描述'
  387.               SgDispNetIP.Cells[3,i]:=str_list_GROUP;//'网络组'
  388.               SgDispNetIP.Cells[4,i]:=str_list_MAC;//'网卡MAC码'
  389.               }
  390.               {
  391.               RichEdit1.Text :=RichEdit1.Text + str_list_IP + ' ' + str_list_name + '  ' +
  392.               str_list_disp + '  ' + str_list_GROUP +'    '  + str_list_MAC+ #13+#10
  393.               }
  394.               setlength(TGroupNet,high(TGroupNet)+2);
  395.               TGroupNet[high(TGroupNet)].IP:=str_list_IP;//'TP地址'
  396.               TGroupNet[high(TGroupNet)].ComputerName :=str_list_name;//'计算机名称'
  397.               TGroupNet[high(TGroupNet)].ComputerDes:=str_list_disp;//'计算机描述'
  398.               TGroupNet[high(TGroupNet)].NetGroup:=str_list_GROUP;//'网络组'
  399.               TGroupNet[high(TGroupNet)].NetMacCode :=str_list_MAC;//'网卡MAC码'
  401.               StrTp:=str_list_IP + '   ' +str_list_name+ '   ' +
  402.                 str_list_disp + '   ' + str_list_GROUP + '   ' +
  403.                 str_list_MAC;
  404.               //RxRichEdit1.Lines.Add(StrTp);
  406.           end;
  407.           SetEvent(WAIT_ACK_EVENT);//有信号
  408.      end;
  409. end;
  410. {Grid清除 ClearGrid}
  411. procedure TSearchNetIp_frm.ClearGrid;
  412. begin
  413.    SgDispNetIP.Items.Clear;
  414. end;
  416.  
  417. {排序}
  418. {
  419. 'TP地址'0
  420. '计算机名称'1
  421. '计算机描述' 2
  422. '网络组'3
  423. '网卡MAC码'4
  424. }
  425. procedure TSearchNetIp_frm.MakeGrid(const IntIndex: integer=3);
  426. Var
  427.   X,XCount:integer;
  428.   GroupNet:TtGroupNet;
  429.   IntMin:integer;
  430.   list:Tlistitem;
  431.     Procedure GetMinTGroupNet();{获取最小TGroupNet}
  432.     Var
  433.        Y:integer;
  434.        NetMinIP, NetIP:integer;
  435.        DWxMin,DWx:Dword;
  436.        str_ip:string;       
  437.     begin
  438.        GroupNet:= tGroupNet[x] ;
  439.        IntMin:=x;
  440.        for Y:=x+1 to XCount do
  441.        begin
  442.          case Intindex of
  443.            0:begin //'TP地址'0
  445.                 NetMinIP:=inet_addr(PChar(GroupNet.IP)) ;  // 192.168.0.1 ===>01 00 A8 C0
  446.                 str_ip:=inttohex(NetMinIP,8);    //01 00 A8 C0
  447.                 str_ip:=copy(str_ip,7,2)+copy(str_ip,5,2)+copy(str_ip,3,2)+copy(str_ip,1,2);   //==> C0 A8 00 01
  448.                 DWxMin:=strtoint('$'+str_ip);   {转换成为一个长整形数}
  450.                 NetIP:=inet_addr(PChar(tGroupNet[y].IP)) ;  // 192.168.0.1 ===>01 00 A8 C0
  451.                 str_ip:=inttohex(NetIP,8);    //01 00 A8 C0
  452.                 str_ip:=copy(str_ip,7,2)+copy(str_ip,5,2)+copy(str_ip,3,2)+copy(str_ip,1,2);   //==> C0 A8 00 01
  453.                 DWx:=strtoint('$'+str_ip);   {转换成为一个长整形数}
  455.                 if DWxMin> DWx then
  456. //                if inet_addr(PChar(GroupNet.IP))> inet_addr(PChar(tGroupNet[y].IP)) then
  457.                 begin
  458.                   IntMin:=y;
  459.                   GroupNet:=tGroupNet[IntMin];
  460.                 end;
  461.              end;
  462.            1:begin //'计算机名称'1
  463.                 if GroupNet.ComputerName > tGroupNet[y].ComputerName then
  464.                 begin
  465.                   IntMin:=y;
  466.                   GroupNet:=tGroupNet[IntMin];
  467.                 end;
  468.              end;
  469.            2:begin //'计算机描述' 2
  470.                 if GroupNet.ComputerDes > tGroupNet[y].ComputerDes then
  471.                 begin
  472.                   IntMin:=y;
  473.                   GroupNet:=tGroupNet[IntMin];
  474.                 end;
  475.              end;
  476.            3:begin //'网络组'3
  477.                 if GroupNet.NetGroup > tGroupNet[y].NetGroup then
  478.                 begin
  479.                   IntMin:=y;
  480.                   GroupNet:=tGroupNet[IntMin];
  481.                 end;
  482.              end;
  483.            4:begin //'网卡MAC码'4
  484.                 if GroupNet.NetMacCode > tGroupNet[y].NetMacCode then
  485.                 begin
  486.                   IntMin:=y;
  487.                   GroupNet:=tGroupNet[IntMin];
  488.                 end;
  489.              end;
  490.          end;{case}
  491.        end;{For}
  492.     end;
  493.     Procedure MakeGrid();{重写Grid}
  494.     Var
  495.       Y:integer;
  496.       StrTp:string;
  497.     begin
  498.        //SgDispNetIP.RowCount:=Xcount+2;
  499.        //RxRichEdit1.Text :='';
  500.        StrTp:='';
  501.        For y:=0 to Xcount do
  502.        begin
  503.           list:=sgdispnetip.Items.Add;
  504.           list.Caption:=TGroupNet[y].IP;  //'IP地址'
  505.           list.SubItems.Add(tGroupNet[y].ComputerName);//'计算机名称'
  506.           list.SubItems.Add(tGroupNet[y].NetGroup);//'工作组名称'
  507.           list.SubItems.Add(tGroupNet[y].NetMacCode);//'Mac 地址'
  508.          StrTp:=TGroupNet[y].IP + '   ' +tGroupNet[y].ComputerName+ '   ' +
  509.                 tGroupNet[y].ComputerDes + '   ' + tGroupNet[y].NetGroup + '   ' +
  510.                 tGroupNet[y].NetMacCode;
  511.          //RxRichEdit1.Lines.Add(StrTp);
  512.        end;{for}
  513.     end;
  514. begin
  515.     XCount:=high(TGroupNet);
  516.     if XCount<0 then exit;
  517.     {清除Grid}
  518.     ClearGrid;
  519.     for x:=0 to XCount do
  520.     begin
  521.         GetMinTGroupNet();
  522.         if x<>IntMin then
  523.         begin
  524.            GroupNet:=TGroupNet[x];
  525.            TGroupNet[x]:=TGroupNet[IntMin];
  526.            TGroupNet[IntMin]:=GroupNet;
  527.         end;
  528.     end;{for}
  529.     MakeGrid();{重写Grid}
  530. end;
  532. procedure TSearchNetIp_frm.SgDispNetIPSelectCell(Sender: TObject; ACol,
  533.   ARow: Integer; var CanSelect: Boolean);
  534. begin
  535.     IntGridCol:=ACol;
  536. end;
  538. procedure TSearchNetIp_frm.SgDispNetIPDblClick(Sender: TObject);
  539. begin
  540.    MakeGrid(IntGridCol);
  541. end;
  543. procedure TSearchNetIp_frm.RxSEdDelayKeyPress(Sender: TObject;
  544.   var Key: Char);
  545. begin
  546.       if key=#13 then
  547.          SBrnScanNetIPClick(nil);
  548. end;
  550. end.