如何编程更改IP?

我有一台电脑需要在两个固定的IP切换，如何编程实现，或者有Windows命令可以实现？ 问题点数：50、回复次数：5Top

1 楼pacers（）回复于 2002-06-19 20:59:07 得分 0

I   have   no   idear.Top

2 楼benny87（benny）回复于 2002-06-19 20:59:08 得分 0

对  
  这也是我一个未解决的问题  
  gzTop

3 楼luyuhai（大海）回复于 2002-06-19 21:17:00 得分 0

gz   tooTop

4 楼cg1120（代码最优化－§惟坚韧者始能遂其志§）回复于 2002-06-19 21:25:34 得分 0

可以用一条shell命令：  
  netsh   interface   ip   set   address   local   static   192.168.0.1   255.255.255.0   192.168.0.10   1Top

5 楼naughtyboy（重归起跑线）回复于 2002-06-30 00:28:29 得分 50

我这里有一段程序  
  unit   Unit1;    
   
  interface    
   
  uses    
      Windows,   Messages,   Classes,   Forms,   Controls,   StdCtrls,   ExtCtrls;    
   
  type    
      TForm1   =   class(TForm)    
          IPAddress:   TBevel;    
          SetIP:   TButton;    
          ClearIP:   TButton;    
          procedure   FormCreate(Sender:   TObject);    
          procedure   SetIPClick(Sender:   TObject);    
          procedure   ClearIPClick(Sender:   TObject);    
      private    
          FIPAddress:   Longint;    
          HIPAddress:   HWND;    
          PrevWndProc:   TWndMethod;    
          procedure   NewWindowProc(var   Message:   TMessage);    
      public    
      end;    
   
  var    
      Form1:   TForm1;    
   
  implementation    
   
  {$R   *.dfm}    
   
  uses    
      CommCtrl;    
   
  const    
      IP_ADDRESS_ID:   Longword   =   $0100;    
   
  procedure   TForm1.FormCreate(Sender:   TObject);    
  var    
      lpInitCtrls:   TInitCommonControlsEx;    
  begin    
      lpInitCtrls.dwSize   :=   SizeOf(TInitCommonControlsEx);    
      lpInitCtrls.dwICC     :=   ICC_INTERNET_CLASSES;    
      if   InitCommonControlsEx(lpInitCtrls)   then      
      begin    
          PrevWndProc   :=   WindowProc;    
          WindowProc     :=   NewWindowProc;    
   
          HIPAddress   :=   CreateWindowEx(WS_EX_LEFT,   WC_IPADDRESS,   nil,    
              WS_CHILD   +   WS_VISIBLE   +   WS_BORDER   +   WS_TABSTOP,    
              IPAddress.Left,   IPAddress.Top,   IPAddress.Width,   IPAddress.Height,    
              Handle,   IP_ADDRESS_ID,   HInstance,   nil);    
          SendMessage(HIPAddress,   IPM_SETFOCUS,   0,   0);    
      end;    
  end;    
   
  procedure   TForm1.NewWindowProc(var   Message:   TMessage);    
  var    
      nField:   longint;    
  begin    
      case   Message.Msg   of    
          WM_NOTIFY:      
              begin    
                  if   PNMHDR(Ptr(Message.lParam)).idFrom   =   IP_ADDRESS_ID   then      
                  begin    
                      case   PNMIPAddress(ptr(Message.lParam)).hdr.code   of    
                          IPN_FIELDCHANGED:      
                              begin    
                                  if   SendMessage(HIPAddress,   IPM_ISBLANK,   0,   0)   =   0   then    
                                      SendMessage(HIPAddress,   IPM_GETADDRESS,   0,   lParam(LPDWORD(@FIPAddress)));    
                              end;    
                      end;    
                  end;    
              end;    
          WM_COMMAND:      
              begin    
                  if   Message.WParamLo   =   IP_ADDRESS_ID   then    
                      case   Message.WParamHi   of    
                          EN_SETFOCUS:      
                              begin    
                                  nField   :=   SendMessage(HIPAddress,   IPM_GETADDRESS,   0,    
                                      lParam(LPDWORD(@FIPAddress)));    
                                  if   nField   =   4   then   nField   :=   0;    
                                  SendMessage(HIPAddress,   IPM_SETFOCUS,   wParam(nField),   0);    
                              end;    
                          EN_KILLFOCUS:      
                              begin    
                                  if   SendMessage(HIPAddress,   IPM_ISBLANK,   0,   0)   =   0   then    
                                      SendMessage(HIPAddress,   IPM_GETADDRESS,   0,   lParam(LPDWORD(@FIPAddress)));    
                              end;    
                          EN_CHANGE:      
                              begin    
                              end;    
                      end;    
              end;    
      end;    
      if   Assigned(PrevWndProc)   then   PrevWndproc(Message);    
  end;    
   
  procedure   TForm1.SetIPClick(Sender:   TObject);    
  begin    
      FIPAddress   :=   MAKEIPADDRESS(127,   0,   0,   1);    
      SendMessage(HIPAddress,   IPM_SETADDRESS,   0,   lParam(DWORD(FIPAddress)));    
  end;    
   
  procedure   TForm1.ClearIPClick(Sender:   TObject);    
  begin    
      SendMessage(HIPAddress,   IPM_CLEARADDRESS,   0,   0);    
  end;    
   
  end.    
  Top

相关问题

• ip
• lpinitctrls
• tform
• tobject
• procedure
• sender
• var

• 帖主：pharaoh
• naughtyboy

• Delphi类图书
• Delphi类源码下载
• Delphi控件下载