pascaldelphidelphi版不重启改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 = A|P MASK STRING;PIP _ADDR_STRING =仲 _ADDR_STRING;IP ADDR STRING = recordNext: PIP ADDR STRING;Ip Address: IP _ADDRESS_STRING;IpMask: IP_MASK_STRING;Context: DWORD;end;PIP _ADA PTER_INFO =仲 _ADA PTER_INFO;IP_ADAPTER_INFO = recordNext: PI

3、P_ADAPTER_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;I

4、pAddressList: 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

5、; stdcall; external IPHelper;functionStringToWideString(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 地址，如果只有该接口只有一个 I

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

8、s(hDhcpDll, '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;mszDNSServe

9、r, mszIPAddress, mszNetMask, mszNetGate: string;strKeyName: string;beginstrKeyName := 'SYSTEMCurrentControlSetServicesTcpipParametersI nterfaces' + lpszAdapterName;if (RegOpenKeyEx(HKEY_LOCAL_MACHINE, pchar(strKeyName), 0, KEY_WRITE, hkRoot) <>ERROR_SUCCESS)then exit;mszDNSServ

10、er := 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,

11、 pchar(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;var

12、InterfaceInfo, 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