有没有系统提供的API可以调用呀

解决方案 »

  1.   

    var
    Reg: TRegistry;
    begin
    Reg := TRegistry.Create;
    Reg.RootKey := HKEY_LOCAL_MACHINE;
    if 
    Reg.OpenKey('\System\CurrentControlSet\Services\Class\NetTran
    s\0000', True)
    then Reg.WriteString('IPAddress','192.1.1.1');
    Reg.CloseKey;
    Reg.Free;
    end;
    end; 就这样!!!!
      

  2.   

    USES 加registry,
    就不用说了!!!
      

  3.   

    2000好象在HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Services\{2DFE3FBC-7F1C-4C72-9C96-36A950D55230}\Parameters
    自己看了!
      

  4.   

    仅仅更改注册表是不行的吧,即便的重启机器也没有用啊。
    我的方法是
    1、用 winexec 将cmd 打开 一个命令行窗口
    2、使用sendkey的东东向打开的窗口传递一系列命令,命令大概如下
    netsh
    interface ip
    set address name="网卡的在系统中的名字如本地连接XXX" xxx.xxx.xxx.xxx xxx.xxx.xxx.xx
      

  5.   

    谢谢大家,我找到了,有一个叫iphelper的函数库,我用了addipaddress()