delphi修改电脑IP

最新推荐文章于 2014-01-20 16:25:00 发布
最新推荐文章于 2014-01-20 16:25:00 发布
阅读量3.7k 收藏
点赞数
分类专栏： DELPHI 文章标签： delphi string function integer user byte
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.youkuaiyun.com/sevenqiqi/article/details/199165
版权
博客探讨了修改IP地址和DNS的方法，提到用WinExec或ShellExecute执行DOS命令netsh可修改，也可尝试修改注册表。修改注册表中DNS可立即生效，修改IP需重启系统。还给出了注册表类型全操作的程序代码，包含多种注册表操作函数。

摘要生成于 C知道 ，由 DeepSeek-R1 满血版支持， 前往体验 >

用 WinExec或ShellExecute 执行 DOS命令 netsh ，可以修改。也或者修改注冊表，不知是否可行?
    主持人注：netsh是Win2k的一个命令行程序，可以用来动态设置IP地址。如：
    netsh -c interface ip add address "本地连接" 192.168.1.105 255.255.255.0
    关于该命令的更多信息请参考： http://www.yesky.com/20030410/1662582.shtml

修改注册表的方法只能修改DNS，可以立即生效。如果修改IP地址，则需要重新启动系统后才能生效。所以，目前找到的办法恐怕只有在dos环境下运行netsh命令了。这里是编写好的程序 LHAIPSet.rar。
    注册表类型全操作
     unit MiniReg;
    {
    ---------------------------------------------------------------------------------------------------
    
    
     Function Examples:
    
     procedure TForm1.Button1Click(Sender: TObject);
     var
     ba1, ba2: array of byte;
     n: integer;
     s: String;
     d: Cardinal;
     begin
     setlength(ba1, 10);
     for n := 0 to 9 do ba1[n] := byte(n);
    
     RegSetString(HKEY_CURRENT_USER, 'Software/My Company/Test/foo/bar/TestString', 'TestMe');
     RegSetExpandString(HKEY_CURRENT_USER, 'Software/My Company/Test/foo/bar/TestExpandString', '%SystemRoot%/Test');
     RegSetMultiString(HKEY_CURRENT_USER, 'Software/My Company/Test/foo/bar/TestMultiString', 'String1'#0'String2'#0'String3');
     RegSetDword(HKEY_CURRENT_USER, 'Software/My Company/Test/foo/bar/TestDword', 7);
     RegSetBinary(HKEY_CURRENT_USER, 'Software/My Company/Test/foo/bar/TestBinary', ba1);
    
     To set the default value for a key, end the key name with a '/':
     RegSetString(HKEY_CURRENT_USER, 'Software/My Company/Test/', 'Default Value');
     RegGetString(HKEY_CURRENT_USER, 'Software/My Company/Test/foo/bar/TestString', s);
     RegGetMultiString(HKEY_CURRENT_USER, 'Software/My Company/Test/foo/bar/TestMultiString', s);
     RegGetExpandString(HKEY_CURRENT_USER, 'Software/My Company/Test/foo/bar/TestExpandString', s);
     RegGetAnyString(HKEY_CURRENT_USER, 'Software/My Company/Test/foo/bar/TestMultiString', s, StringType);
     RegSetAnyString(HKEY_CURRENT_USER, 'Software/My Company/Test/foo/bar/TestMultiString', s, StringType);
     RegGetDWORD(HKEY_CURRENT_USER, 'Software/My Company/Test/foo/bar/TestDword', d);
     RegGetBinary(HKEY_CURRENT_USER, 'Software/My Company/Test/foo/bar/TestBinary', s);
     SetLength(ba2, Length(s));
     for n := 1 to Length(s) do ba2[n-1] := byte(s[n]);
     Button1.Caption := IntToStr(Length(ba2));
    
     if RegKeyExists(HKEY_CURRENT_USER, 'Software/My Company/Test/foo') then
     if RegValueExists(HKEY_CURRENT_USER, 'Software/My Company/Test/foo/bar/TestBinary') then
     MessageBox(GetActiveWindow, 'OK', 'OK', MB_OK);
     RegDelValue(HKEY_CURRENT_USER, 'Software/My Company/Test/foo/bar/TestString');
     RegDelKey(HKEY_CURRENT_USER, 'Software/My Company/Test/foo/bar');
     RegDelKey(HKEY_CURRENT_USER, 'Software/My Company/Test/foo');
     RegDelKey(HKEY_CURRENT_USER, 'Software/My Company/Test');
     RegDelKey(HKEY_CURRENT_USER, 'Software/My Company');
     if RegEnumKeys(HKEY_CURRENT_USER, 'Software/My Company', s) then
     ListBox1.Text := s;
     if RegEnumValues(HKEY_CURRENT_USER, 'Software/My Company', s) then
     ListBox1.Text := s;
     if RegConnect('//server1', HKEY_LOCAL_MACHINE, RemoteKey) then
     begin
     RegGetString(RemoteKey, 'Software/My Company/Test/foo/bar/TestString', s);
     RegDisconnect(RemoteKey);
     end;
     end;
    ---------------------------------------------------------------------------------------------------
    }
    interface
    
    uses Windows;
    
    function RegSetString(RootKey: HKEY; Name: String; Value: String): boolean;
    function RegSetMultiString(RootKey: HKEY; Name: String; Value: String): boolean;
    function RegSetExpandString(RootKey: HKEY; Name: String; Value: String): boolean;
    function RegSetDWORD(RootKey: HKEY; Name: String; Value: Cardinal): boolean;
    function RegSetBinary(RootKey: HKEY; Name: String; Value: Array of Byte): boolean;
    function RegGetString(RootKey: HKEY; Name: String; Var Value: String): boolean;
    function RegGetMultiString(RootKey: HKEY; Name: String; Var Value: String): boolean;
    function RegGetExpandString(RootKey: HKEY; Name: String; Var Value: String): boolean;
    function RegGetAnyString(RootKey: HKEY; Name: String; Var Value: String; Var ValueType: Cardinal): boolean;
    function RegSetAnyString(RootKey: HKEY; Name: String; Value: String; ValueType: Cardinal): boolean;
    function RegGetDWORD(RootKey: HKEY; Name: String; Var Value: Cardinal): boolean;
    function RegGetBinary(RootKey: HKEY; Name: String; Var Value: String): boolean;
    function RegGetValueType(RootKey: HKEY; Name: String; var Value: Cardinal): boolean;
    function RegValueExists(RootKey: HKEY; Name: String): boolean;
    function RegKeyExists(RootKey: HKEY; Name: String): boolean;
    function RegDelValue(RootKey: HKEY; Name: String): boolean;
    function RegDelKey(RootKey: HKEY; Name: String): boolean;
    function RegDelKeyEx(RootKey: HKEY; Name: String; WithSubKeys: Boolean = True): boolean;
    function RegConnect(MachineName: String; RootKey: HKEY; var RemoteKey: HKEY): boolean;
    function RegDisconnect(RemoteKey: HKEY): boolean;
    function RegEnumKeys(RootKey: HKEY; Name: String; var KeyList: String): boolean;
    function RegEnumValues(RootKey: HKEY; Name: String; var ValueList: String): boolean;
    
    implementation
    
    function LastPos(Needle: Char; Haystack: String): integer;
    begin
     for Result := Length(Haystack) downto 1 do
     if Haystack[Result] = Needle then
     Break;
    end;
    
    function RegConnect(MachineName: String; RootKey: HKEY; var RemoteKey: HKEY): boolean;
    begin
     Result := (RegConnectRegistry(PChar(MachineName), RootKey, RemoteKey) = ERROR_SUCCESS);
    end;
    
    function RegDisconnect(RemoteKey: HKEY): boolean;
    begin
     Result := (RegCloseKey(RemoteKey) = ERROR_SUCCESS);
    end;
    
    function RegSetValue(RootKey: HKEY; Name: String; ValType: Cardinal; PVal: Pointer; ValSize: Cardinal): boolean;
    var
     SubKey: String;
     n: integer;
     dispo: DWORD;
     hTemp: HKEY;
    begin
     Result := False;
     n := LastPos('/', Name);
     if n > 0 then
     begin
     SubKey := Copy(Name, 1, n - 1);
     if RegCreateKeyEx(RootKey, PChar(SubKey), 0, nil, REG_OPTION_NON_VOLATILE, KEY_WRITE, nil, hTemp, @dispo) = ERROR_SUCCESS then
     begin
     SubKey := Copy(Name, n + 1, Length(Name) - n);
     if SubKey = '' then
     Result := (RegSetValueEx(hTemp, nil, 0, ValType, PVal, ValSize) = ERROR_SUCCESS)
     else
     Result := (RegSetValueEx(hTemp, PChar(SubKey), 0, ValType, PVal, ValSize) = ERROR_SUCCESS);
     RegCloseKey(hTemp);
     end;
     end;
    end;
    
    function RegGetValue(RootKey: HKEY; Name: String; ValType: Cardinal; var PVal: Pointer; var ValSize: Cardinal): boolean;
    var
     SubKey: String;
     n: integer;
     MyValType: DWORD;
     hTemp: HKEY;
     Buf: Pointer;
     BufSize: Cardinal;
     PKey: PChar;
    begin
     Result := False;
     n := LastPos('/', Name);
     if n > 0 then
     begin
     SubKey := Copy(Name, 1, n - 1);
     if RegOpenKeyEx(RootKey, PChar(SubKey), 0, KEY_READ, hTemp) = ERROR_SUCCESS then
     begin
     SubKey := Copy(Name, n + 1, Length(Name) - n);
     if SubKey = '' then
     PKey := nil
     else
     PKey := PChar(SubKey);
     if RegQueryValueEx(hTemp, PKey, nil, @MyValType, nil, @BufSize) = ERROR_SUCCESS then
     begin
     GetMem(Buf, BufSize);
     if RegQueryValueEx(hTemp, PKey, nil, @MyValType, Buf, @BufSize) = ERROR_SUCCESS then
     begin
     if ValType = MyValType then
     begin
     PVal := Buf;
     ValSize := BufSize;
     Result := True;
     end else
     begin
     FreeMem(Buf);
     end;
     end else
     begin
     FreeMem(Buf);
     end;
     end;
     RegCloseKey(hTemp);
     end;
     end;
    end;
    
    function RegSetAnyString(RootKey: HKEY; Name: String; Value: String; ValueType: Cardinal): boolean;
    begin
     case ValueType of
     REG_SZ, REG_EXPAND_SZ:
     Result := RegSetValue(RootKey, Name, ValueType, PChar(Value + #0), Length(Value) + 1);
     Reg_MULTI_SZ:
     Result := RegSetValue(RootKey, Name, ValueType, PChar(Value + #0#0), Length(Value) + 2);
     else
     Result := False;
     end;
    end;
    
    function RegSetString(RootKey: HKEY; Name: String; Value: String): boolean;
    begin
     Result := RegSetValue(RootKey, Name, REG_SZ, PChar(Value + #0), Length(Value) + 1);
    end;
    
    function RegSetMultiString(RootKey: HKEY; Name: String; Value: String): boolean;
    begin
     Result := RegSetValue(RootKey, Name, REG_MULTI_SZ, PChar(Value + #0#0), Length(Value) + 2);
    end;
    
    function RegSetExpandString(RootKey: HKEY; Name: String; Value: String): boolean;
    begin
     Result := RegSetValue(RootKey, Name, REG_EXPAND_SZ, PChar(Value + #0), Length(Value) + 1);
    end;
    
    function RegSetDword(RootKey: HKEY; Name: String; Value: Cardinal): boolean;
    begin
     Result := RegSetValue(RootKey, Name, REG_DWORD, @Value, SizeOf(Cardinal));
    end;
    
    function RegSetBinary(RootKey: HKEY; Name: String; Value: Array of Byte): boolean;
    begin
     Result := RegSetValue(RootKey, Name, REG_BINARY, @Value[Low(Value)], length(Value));
    end;
    
    function RegGetString(RootKey: HKEY; Name: String; Var Value: String): boolean;
    var
     Buf: Pointer;
     BufSize: Cardinal;
    begin
     Result := False;
     Value := '';
     if RegGetValue(RootKey, Name, REG_SZ, Buf, BufSize) then
     begin
     Dec(BufSize);
     SetLength(Value, BufSize);
     if BufSize > 0 then
     Move(Buf^, Value[1], BufSize);
     FreeMem(Buf);
     Result := True;
     end;
    end;
    
    function RegGetMultiString(RootKey: HKEY; Name: String; Var Value: String): boolean;
    var
     Buf: Pointer;
     BufSize: Cardinal;
    begin
     Result := False;
     Value := '';
     if RegGetValue(RootKey, Name, REG_MULTI_SZ, Buf, BufSize) then
     begin
     Dec(BufSize);
     SetLength(Value, BufSize);
     if BufSize > 0 then
     Move(Buf^, Value[1], BufSize);
     FreeMem(Buf);
     Result := True;
     end;
    end;
    
    function RegGetExpandString(RootKey: HKEY; Name: String; Var Value: String): boolean;
    var
     Buf: Pointer;
     BufSize: Cardinal;
    begin
     Result := False;
     Value := '';
     if RegGetValue(RootKey, Name, REG_EXPAND_SZ, Buf, BufSize) then
     begin
     Dec(BufSize);
     SetLength(Value, BufSize);
     if BufSize > 0 then
     Move(Buf^, Value[1], BufSize);
     FreeMem(Buf);
     Result := True;
     end;
    end;
    
    function RegGetAnyString(RootKey: HKEY; Name: String; Var Value: String; Var ValueType: Cardinal): boolean;
    var
     Buf: Pointer;
     BufSize: Cardinal;
     bOK: Boolean;
    begin
     Result := False;
     Value := '';
     if RegGetValueType(Rootkey, Name, ValueType) then
     begin
     case ValueType of
     REG_SZ, REG_EXPAND_SZ, REG_MULTI_SZ:
     bOK := RegGetValue(RootKey, Name, ValueType, Buf, BufSize);
     else
     bOK := False;
     end;
     if bOK then
     begin
     Dec(BufSize);
     SetLength(Value, BufSize);
     if BufSize > 0 then
     Move(Buf^, Value[1], BufSize);
     FreeMem(Buf);
     Result := True;
     end;
     end;
    end;
    
    function RegGetDWORD(RootKey: HKEY; Name: String; Var Value: Cardinal): boolean;
    var
     Buf: Pointer;
     BufSize: Cardinal;
    begin
     Result := False;
     Value := 0;
     if RegGetValue(RootKey, Name, REG_DWORD, Buf, BufSize) then
     begin
     Value := PDWord(Buf)^;
     FreeMem(Buf);
     Result := True;
     end;
    end;
    
    function RegGetBinary(RootKey: HKEY; Name: String; Var Value: String): boolean;
    var
     Buf: Pointer;
     BufSize: Cardinal;
    begin
     Result := False;
     Value := '';
     if RegGetValue(RootKey, Name, REG_BINARY, Buf, BufSize) then
     begin
     SetLength(Value, BufSize);
     Move(Buf^, Value[1], BufSize);
     FreeMem(Buf);
     Result := True;
     end;
    end;
    
    function RegValueExists(RootKey: HKEY; Name: String): boolean;
    var
     SubKey: String;
     n: integer;
     hTemp: HKEY;
    begin
     Result := False;
     n := LastPos('/', Name);
     if n > 0 then
     begin
     SubKey := Copy(Name, 1, n - 1);
     if RegOpenKeyEx(RootKey, PChar(SubKey), 0, KEY_READ, hTemp) = ERROR_SUCCESS then
     begin
     SubKey := Copy(Name, n + 1, Length(Name) - n);
     Result := (RegQueryValueEx(hTemp, PChar(SubKey), nil, nil, nil, nil) = ERROR_SUCCESS);
     RegCloseKey(hTemp);
     end;
     end;
    end;
    
    function RegGetValueType(RootKey: HKEY; Name: String; var Value: Cardinal): boolean;
    var
     SubKey: String;
     n: integer;
     hTemp: HKEY;
     ValType: Cardinal;
    begin
     Result := False;
     Value := REG_NONE;
     n := LastPos('/', Name);
     if n > 0 then
     begin
     SubKey := Copy(Name, 1, n - 1);
     if (RegOpenKeyEx(RootKey, PChar(SubKey), 0, KEY_READ, hTemp) = ERROR_SUCCESS) then
     begin
     SubKey := Copy(Name, n + 1, Length(Name) - n);
     if SubKey = '' then
     Result := (RegQueryValueEx(hTemp, nil, nil, @ValType, nil, nil) = ERROR_SUCCESS)
     else
     Result := (RegQueryValueEx(hTemp, PChar(SubKey), nil, @ValType, nil, nil) = ERROR_SUCCESS);
     if Result then
     Value := ValType;
     RegCloseKey(hTemp);
     end;
     end;
    end;
    
    function RegKeyExists(RootKey: HKEY; Name: String): boolean;
    var
     hTemp: HKEY;
    begin
     Result := False;
     if RegOpenKeyEx(RootKey, PChar(Name), 0, KEY_READ, hTemp) = ERROR_SUCCESS then
     begin
     Result := True;
     RegCloseKey(hTemp);
     end;
    end;
    
    function RegDelValue(RootKey: HKEY; Name: String): boolean;
    var
     SubKey: String;
     n: integer;
     hTemp: HKEY;
    begin
     Result := False;
     n := LastPos('/', Name);
     if n > 0 then
     begin
     SubKey := Copy(Name, 1, n - 1);
     if RegOpenKeyEx(RootKey, PChar(SubKey), 0, KEY_WRITE, hTemp) = ERROR_SUCCESS then
     begin
     SubKey := Copy(Name, n + 1, Length(Name) - n);
     Result := (RegDeleteValue(hTemp, PChar(SubKey)) = ERROR_SUCCESS);
     RegCloseKey(hTemp);
     end;
     end;
    end;
    
    function RegDelKey(RootKey: HKEY; Name: String): boolean;
    var
     SubKey: String;
     n: integer;
     hTemp: HKEY;
    begin
     Result := False;
     n := LastPos('/', Name);
     if n > 0 then
     begin
     SubKey := Copy(Name, 1, n - 1);
     if RegOpenKeyEx(RootKey, PChar(SubKey), 0, KEY_WRITE, hTemp) = ERROR_SUCCESS then
     begin
     SubKey := Copy(Name, n + 1, Length(Name) - n);
     Result := (RegDeleteKey(hTemp, PChar(SubKey)) = ERROR_SUCCESS);
     RegCloseKey(hTemp);
     end;
     end;
    end;
    
    function RegDelKeyEx(RootKey: HKEY; Name: String; WithSubKeys: Boolean = True): boolean;
    const
     MaxBufSize: Cardinal = 1024;
    var
     iRes: integer;
     hTemp: HKEY;
     Buf: String;
     BufSize: Cardinal;
    begin
     Result := False;
     // no root keys...
     if pos('/', Name) <> 0 then
     begin
     iRes := RegOpenKeyEx(RootKey, PChar(Name), 0, KEY_ENUMERATE_SUB_KEYS or KEY_WRITE, hTemp);
     if WithSubKeys then
     begin
     while iRes = ERROR_SUCCESS do
     begin
     BufSize := MaxBufSize;
     SetLength(Buf, BufSize);
     iRes := RegEnumKeyEx(hTemp, 0, @Buf[1], BufSize, nil, nil, nil, nil);
     if iRes = ERROR_NO_MORE_ITEMS then
     begin
     RegCloseKey(hTemp);
     Result := (RegDeleteKey(RootKey, PChar(Name)) = ERROR_SUCCESS);
     end else
     begin
     if iRes = ERROR_SUCCESS then
     begin
     SetLength(Buf, BufSize);
     if RegDelKeyEx(RootKey, Concat(Name, '/', Buf), WithSubKeys) then
     iRes := ERROR_SUCCESS
     else
     iRES := ERROR_BADKEY;
     end;
     end;
     end;
     end else
     begin
     RegCloseKey(hTemp);
     Result := (RegDeleteKey(RootKey, PChar(Name)) = ERROR_SUCCESS);
     end;
     end;
    end;
    
    function RegEnum(RootKey: HKEY; Name: String; var ResultList: String; const DoKeys: Boolean): boolean;
    var
     i: integer;
     iRes: integer;
     s: String;
     hTemp: HKEY;
     Buf: Pointer;
     BufSize: Cardinal;
    begin
     Result := False;
     ResultList := '';
     if RegOpenKeyEx(RootKey, PChar(Name), 0, KEY_READ, hTemp) = ERROR_SUCCESS then
     begin
     Result := True;
     BufSize := 1024;
     GetMem(buf, BufSize);
     i := 0;
     iRes := ERROR_SUCCESS;
     while iRes = ERROR_SUCCESS do
     begin
     BufSize := 1024;
     if DoKeys then
     iRes := RegEnumKeyEx(hTemp, i, buf, BufSize, nil, nil, nil, nil)
     else
     iRes := RegEnumValue(hTemp, i, buf, BufSize, nil, nil, nil, nil);
     if iRes = ERROR_SUCCESS then
     begin
     SetLength(s, BufSize);
     Move(buf^, s[1], BufSize);
     if ResultList = '' then
     ResultList := s
     else
     ResultList := Concat(ResultList, #13#10, s);
     inc(i);
     end;
     end;
     FreeMem(buf);
     RegCloseKey(hTemp);
     end;
    end;
    
    function RegEnumValues(RootKey: HKEY; Name: String; var ValueList: String): boolean;
    begin
     Result := RegEnum(RootKey, Name, ValueList, False);
    end;
    
    function RegEnumKeys(RootKey: HKEY; Name: String; var KeyList: String): boolean;
    begin
     Result := RegEnum(RootKey, Name, KeyList, True);
    end;
    
    end.
delphi 编写控制IP地址修改程序
wxzhou1980的专栏
01-28 2755
如果同一个局域的计算机比较多，经常会遇到修改IP被用户修改之后造成IP冲突的情况。针对这种情况本人使用delphi开发了一个修改IP的工具。Delphi代码：unit Unit1;interfaceuses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, St
ip修改工具Delphi源码
05-12
ip修改工具Delphi源码.各位朋友可以拿去修改和做后续的开发
Delphi 调用netsh命令修改IP地址
Cui55的专栏
03-12 4782
Delphi 调用netsh命令修改IP地址 先介绍一下Netsh命令的使用方法: 在这里跟大家介绍几个简单的指令 1.Show IP 1.1Cmd Mode 直接在cmd下面输入 netsh interface ip show address 亦可简写为 netsh int ip sh ad 看看，指令是不是和Cisco的nos指令很像！非常怀疑是抄袭Cisco的。 1.2Netsh Mode
关于delphi 修改 Ip地址的运用
11-27 173
我虽然再也没有继续像大学那样没日没夜的写计算机代码了，前几天听见我的朋友说他的公司里面老是有ip冲突，他那边工程师说只要修改了ip地址就可以上网了，可是这个男生可笨了！居然换了好多IP都被人家给占用了，求我给他写个程序，免的IP换的头疼。 那么开始吧！ 首先要利用InternetGetConnectedState函数，这个函数是反应你的机器成功连网的函数，返回的是true和fa...
Delphi 使用WMI读取网卡信息及设置IP地址
08-19
MSDN中指出Netsh命令将在后续的版本中废止，今后对系统信息的操作将倾向于WMI（Windows管理工具）因此把我工作中用到的模块做了相应的改动，并分享给大家。程序中使用了AlphaControls控件，如要编译...2、设置IP地址
Delphi通过网络矫正电脑时间..rar
05-01
在Delphi中，实现NTP同步可以通过使用 Indy 组件库，这是一个强大的网络通信库，包含了许多用于处理TCP/IP协议的组件，如TIdUDPClient，可以用来实现NTP请求。首先，我们需要创建一个TIdUDPClient实例，并将其Host...
Delphi实现局域网文件共享及传输程序
05-16
内容索引:Delphi源码,网络相关,局域网,文件共享　Delphi实现局域网文件共享及传输程序，注意，本程序在编译后会被某些杀毒软件报报警。 　本程序由网上的类似程序修改而得，增加了一些功能，比如文件命名、删除、...
使用Delphi修改IP、DNS和网关无需重启的程序
"Delphi编程实现不重启电脑修改IP、DNS和网关设置" 在Delphi编程环境下，可以利用Windows API来动态更改计算机的网络配置，如IP地址、子网掩码、默认网关以及DNS服务器等，而无需重启系统。以下内容将详细解释如何...
delphi实现IP地址的切换
05-27
delphi使用netsh.exe进行ip地址的随意切换配置
IP地址切换Delphi源码
01-07
IP地址切换工具Delphi源码.各位朋友可以借鉴修改和后续的开发
delphi获取计算机名和IP地址+设置IP.zip
12-14
获取计算机名和IP地址+设置IP
delphi写的可改IP，dns，掩码，mac系统
05-11
防windows的IP设置系统，可改IP，dns，掩码，mac等，支持多网卡
Delphi修改DNS地址
05-11
摘要:Delphi源码,网络相关,DNS Delphi修改DNS的程序源代码，部分操作需要读取修改windows注册表，在窗体的文本框中输入新的DNS地址，在上述列表中选择网卡硬件，即可修改DNS。 运行环境：Windows/Delphi7
Delphi开发的IP地址修改工具
weixin_30752699的博客
06-21 235
用Delphi进行开发的，直接修改注册表，需重启电脑后才生效 procedure TForm1.SpeedButton3Click(Sender: TObject); var reg:TRegistry; IP,WG,ZY:array [0..255] of char; ID,CardNum:string; Psize:Dword; DNS:string;...
delphi局域网Ping各主机方法及设置本地ip方法
weixin_30546189的博客
01-20 477
1. 首先引用winsock单元 function PingHost(HostIP: String): Boolean; type PIPOptionInformation=^TIPOptionInformation; TIPOptionInformation=packed record TTL: Byte; TOS: ...
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值