delphi版不重启改ipdns网关

1、Pascal(Delphi) delphi版不重启改ip、 dns 、网关program MASK;useswindows, SysUtils;constMAX_ADAPTER_NAME_LENGTH = 256;MAX_ADAPTER_DESCRIPTION_LENGTH = 128;MAX_ADAPTER_ADDRESS_LENGTH = 8;IPHelper = 'iphlpapi.dll'typeUSHORT = WORD; ULONG = DWORD; time_t = Longint;IP_ADDRESS_STRING = recordS: array0.15 of

2、 Char;end;IP_MASK_STRING = IP_ADDRESS_STRING;PIP_MASK_STRING = IP_MASK_STRING; PIP_ADDR_STRING = IP_ADDR_STRING;IP_ADDR_STRING = recordNext: PIP_ADDR_STRING;IpAddress: IP_ADDRESS_STRING;IpMask: IP_MASK_STRING;Context: DWORD;end;PIP_ADAPTER_INFO = IP_ADAPTER_INFO;IP_ADAPTER_INFO = recordNext: PIP_ADA

3、PTER_INFO;ComboIndex: DWORD;AdapterName:array0.MAX_ADAPTER_NAME_LENGTH + 3 of Char;Description:array0.MAX_ADAPTER_DESCRIPTION_LENGTH + 3 ofChar;AddressLength: UINT;Address:array0.MAX_ADAPTER_ADDRESS_LENGTH - 1 ofBYTE;Index: DWORD;Type_: UINT;DhcpEnabled: UINT;CurrentIpAddress: PIP_ADDR_STRING;IpAddr

4、essList: IP_ADDR_STRING;GatewayList: IP_ADDR_STRING;DhcpServer: IP_ADDR_STRING;HaveWins: BOOL;PrimaryWinsServer: IP_ADDR_STRING;SecondaryWinsServer: IP_ADDR_STRING;LeaseObtained: time_t;LeaseExpires: time_t;end;function GetAdaptersInfo(pAdapterInfo: PIP_ADAPTER_INFO; var pOutBufLen: ULONG): DWORD; s

5、tdcall; external IPHelper;function StringToWideString(const S: string): WideString;varInputLength, OutputLength: Integer;beginInputLength := Length(S);OutputLength := MultiByteToWideChar(CP_ACP, 0, PChar(S), InputLength, nil, 0);SetLength(Result, OutputLength);MultiByteToWideChar(CP_ACP, 0, PChar(S)

6、, InputLength, PWideChar(Result), OutputLength);end;function NotifyIPChange(lpszAdapterName: string):bool;type TDhcpNotifyConfigChange = function(lpwszServerName: PWideChar; /本地机器为NULLlpwszAdapterName: PWideChar; /适配器名称bNewIpAddress: BOOL; / TRUE表示更改IPdwIpIndex: DWORD; /指明第几个IP 地址，如果只有该接口只有一个IP 地址则为

7、 0dwIpAddress: DWORD; / IP地址dwSubNetMask: DWORD; /子网掩码nDhcpAction: Integer): BOOL; stdcall;varhDhcpDll: dword;MyDhcpNotifyConfigChange:TDhcpNotifyConfigChange;beginhDhcpDll := LoadLibrary('dhcpcsvc.dll');if hDhcpDll <> 0 thenbeginMyDhcpNotifyConfigChange := GetProcAddress(hDhcp

8、Dll, 'DhcpNotifyConfigChange');MyDhcpNotifyConfigChange(nil, pwidechar(StringToWideString(lpszAdapterName), FALSE, 0, 0, 0, 0)end;CloseHandle(hDhcpDll);end;function RegIp(lpszAdapterName, pIPAddress, pNetMask, pNetGate, pDNSServer1, pDNSServer2: string): bool;varhkRoot: HKEY;mszDNSServer, ms

9、zIPAddress, mszNetMask, mszNetGate: string;strKeyName: string;beginstrKeyName :='SYSTEMCurrentControlSetServicesTcpipParametersInterfaces' + lpszAdapterName;if (RegOpenKeyEx(HKEY_LOCAL_MACHINE, pchar(strKeyName), 0, KEY_WRITE, hkRoot) <> ERROR_SUCCESS)then exit;mszDNSServer :=

10、pDNSServer1 + ',' + pDNSServer2;mszIPAddress := pIPAddress + #0#0;mszNetMask := pNetMask + #0#0;mszNetGate := pNetGate + #0#0;RegSetValueEx(hkRoot, 'IPAddress', 0, REG_MULTI_SZ, pchar(mszIPAddress), length(mszIPAddress);RegSetValueEx(hkRoot, 'SubnetMask', 0, REG_MULTI_SZ, pch

11、ar(mszNetMask), length(mszNetMask);RegSetValueEx(hkRoot, 'DefaultGateway', 0, REG_MULTI_SZ, pchar(mszNetGate), length(mszNetGate);RegSetValueEx(hkRoot, 'NameServer', 0, REG_SZ, pchar(mszDNSServer), length(mszDNSServer);RegCloseKey(hkRoot);end;function GetLanAdapterName: string;varInt

12、erfaceInfo, TmpPointer: PIP_ADAPTER_INFO;IP: PIP_ADDR_STRING;Len: ULONG;beginresult := ''if GetAdaptersInfo(nil, Len) =ERROR_BUFFER_OVERFLOW thenbeginGetMem(InterfaceInfo, Len);tryif GetAdaptersInfo(InterfaceInfo, Len) = ERROR_SUCCESS thenbeginTmpPointer := InterfaceInfo;result := TmpPointer.AdapterName;end;finallyFreeMem(InterfaceInfo);end;end;end;varAdapterName: string;beginAd